-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathCIXY.pas
More file actions
37 lines (36 loc) · 783 Bytes
/
CIXY.pas
File metadata and controls
37 lines (36 loc) · 783 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
#cas
CIXY(X,C):=
BEGIN
STARTAPP("Statistiken_2_Var");
STARTVIEW(−6)
A=Corr
B=sY
D=MeanY
PredY(X)▶L3(2);
√(1-A^2)*B*NORMALD_ICDF(1-((1-C)/2))▶L3(4)
L3(4)+L3(2)▶L3(3)
L3(2)-L3(4)▶L3(1)
C▶L3(5)
ZWERT(L3(1),D,B)▶L4(1)
ZWERT(L3(2),D,B)▶L4(2)
ZWERT(L3(3),D,B)▶L4(3)
L4(1)▶U
L4(3)▶O
ZWERT(X,MeanX,sX)▶Q
STARTAPP("Arbeitsblatt");
"ŷ-"▶A1;L3(1)▶B1;L4(1)▶C1
"ŷ"▶A2;L3(2)▶B2;L4(2)▶C2
"ŷ+"▶A3;L3(3)▶B3;L4(3)▶C3
"±"▶A4;L3(4)▶B4;L3(4)/B▶C4
"CI"▶A5;L3(5)▶B5;
"Y=A*X"▶V3
"Y>0 AND (Y<A^(-1)*X AND Y>A*X) OR Y<0 AND (Y>A^(-1)*X AND Y<A*X)"▶V4
"Y=√(1-X^2)"▶V5
"Y=-1*√(1-X^2)"▶V6
"X<A AND X>0 AND Y<A AND Y>0"▶V7
CAS((X,Y)->((Y<O) AND (Y>U)) AND ((X==Q))▶V0)
STARTAPP("Erweiterte_Grafiken");
STARTVIEW(1)
RETURN(L3);
END;
#end