Rosetta Code

Cumulative standard deviation: Difference between revisions

Page Discussion

Cumulative standard deviation (view source)

Revision as of 17:57, 22 November 2021

283 bytes removed ,  2 years ago
Using Real Math module
(Added solution for Action!)
(Using Real Math module)
Line 168:
=={{header|Action!}}==
{{libheader|Action! Tool Kit}}
{{libheader|Action! Real Math}}
<lang Action!>INCLUDE "D2H6:REALREALMATH.ACT" ;from the Action! Tool Kit
 
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 ⟶ 202:
 
Put(125) PutE() ;clear screen
MathInit()
IntToReal(0,sum)
IntToReal(0,sum2)
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/116653"