Cumulative standard deviation: Difference between revisions

Content added Content deleted

Inline

@@ Line 168: / Line 168: @@
 =={{header|Action!}}==
 {{libheader|Action! Tool Kit}}
+{{libheader|Action! Real Math}}
-<lang Action!>INCLUDE "D2:REAL.ACT" ;from the Action! Tool Kit
+<lang Action!>INCLUDE "H6:REALMATH.ACT"
 REAL sum,sum2
 INT count
-BYTE FUNC Equal(REAL POINTER a,b)
-  BYTE ARRAY x,y
-  x=a y=b
-  IF x(0)=y(0) AND x(1)=y(1) AND x(2)=y(2) THEN
-    RETURN (1)
-  FI
-RETURN (0)
-PROC Sqrt(REAL POINTER a,b)
-  REAL z,half
-  IntToReal(0,z)
-  ValR("0.5",half)
-  IF Equal(a,z) THEN
-    RealAssign(z,b)
-  ELSE
-    Power(a,half,b)
-  FI
-RETURN
 PROC Calc(REAL POINTER x,sd)
@@ Line 223: / Line 202: @@
   Put(125) PutE() ;clear screen
+  MathInit()
   IntToReal(0,sum)
   IntToReal(0,sum2)