Filter
Top Products
108
Program code Key operations
If S<100 Goto AGAIN
i 8 ; S i D 100
; s
i 9 @ a
AGAIN ; e
S=S˚10^(-3) ; S ; = ; S k @
Y ( S 3 ) e
If N>6 Goto SIX i 8 ; N i G 6 ;
s i 9 @ a SIX ;
e
If N>3 Goto THREE i 8 ; N i G 3 ;
s i 9 @ a THREE
; e
Q=ipart(Sx10^N) ; Q ; = I 1 (
; S k @ Y ; N )
e
Goto DISPLAY i 9 @ a DISPLAY ;
e
Label SIX i 6 @ a SIX ; e
; Q ; = I 1 (
; S k @ Y ( ; N
- 6 ) ) k @ Y 6
+ @ w 0 k @
Y 6 + @ w 0 k
@ Y 3 e
Goto DISPLAY i 9 @ a DISPLAY ;
e
Label THREE
i 6 @ a THREE ; e
; Q ; = I 1 (
; S k @ Y ( ; N
- 3 ) ) k @ Y 3
+ @ w 0 k @
Y 3 e
Label DISPLAY i 6 @ a DISPLAY ;
e
Clrt i 7 e
Print Q i 0 ; Q e
Chapter 8: Application Examples
Q=ipart(S˚10^(N-6))˚10^6
+random˚10^6+random˚10^3
Q=ipart(S˚10^(N-3))˚10^3
+random˚10^3