Version: 1.0
Author: Thomas Perraudin thomas@perraudin.net
you should visit my homepage at http://www.multimania.com/spectre3
Size: not so big , you can choose the options
Model: fx 6990
This is a series of program you should type in your calculator. The
main part of the
program is [dessin], [D1] and [D2].
I am sorry the program is in French but you can translate.
Be patient and learn how to use it and you will be able to draw
fabulous pictures.
Notations:
-> Single arrow on the keyboard
=> Double arrow
_ Display, -Disp-
<= Less or equal
>= Greater or equal
=/= Not equal
/ Division or fraction
I have written my variables in small characters so make
differences between 1 and l (L) or between 0 (zero) and o.
DESSIN
[dessin]
Lbl A
Plot 0,0
Plot 0,0
Line-disp-
"nouveau"
"dessin"
"oui® 1,non® 2"
?® a
a=1=>ViewWindow 1,100,0,1,60,0
Lbl 1
Prog "D1"
c¹ 4=>Plot-disp-
x® a
y® b
c=1=>Prog "CERCLE"
c=2=>Prog "RECT"
c=3=>Prog "TRAIT"
c=4=>Prog "D2"
c=5=>Prog "POLY"
c=6=>Prog "ML"
c=7=>Prog "ELIP"
c=8=>Goto 1
c=9=>goto A
goto 1
[cercle]
"rayon..."-disp-
Plot a,b-disp-
Ö ((x-a)2+(y-b) 2)® t
0® z
Lbl 1
Tcos z+a® g
Tsin z+b® h
Plot g,h
Z+5® z
Z=5=>Goto 1
g>2=>h>2=>g<99=>h<59=>Line
z³ 363=>Goto 2
Goto 1
Lbl 2
Plot 0,0
Plot 0,0
Line-disp-
[rect]
"autre bout.."-disp-
Plot a,b-disp-
x® g
y® h
Plot a,b
Plot g,b
Line
Plot g,h
Line
Plot a,h
Line
Plot a,b
Line-disp-
[trait]
"a… "-disp-
Lbl 1
Plot a,b-disp-
x® g
y® h
Plot a,b
Plot g,h
Line-disp-
[poly]
"calcule :1"
"main :2"
?® j
j=1=>Prog "P2"
j=1=>Goto 2
0® w
"nombre de"
"cotes " ?® z
Lbl 1
W+1® w
Plot x,y-disp-
Line
If w=z-1
Then Plot x,y
Line
Plot a,b
Line-disp-
IfEnd
W=z-1=>Goto 2
Goto 1
Lbl 2
[P2]
"rayon…"-disp-
Plot a,b-disp-
Ö ((x-a)2+(y-b)2)® t
"nombre"
"de cotes "?® v
360¸ v® w
0® z
Lbl 1
Tcos z+a® g
Tsin z+b® h
Z=0=>Plot g,h
Plot g,h
Line
Z+w® z
z>360=>Goto 2
Goto 1
Lbl 2
Plot g,h
Line-disp-
[D2]
ClrText
"polygone :5 mainleve :6 elipse :7"
"autres :8"
?® c
c¹ 8=>Plot -disp-
x® a
y® b
[D1]
ClrText
"cercle :1"
"rectangle :2 trait :3"
"autres :4"
?® c
[ML]
"traits :1"
"points :2"
?® u
u=2=>
Prog "PTS"
Lbl 1
Plot x,y-disp-
Line
Goto 1
[elip]
"bout…"-disp-
Plot a,b-disp-
x® c
y® d
Abs (a-c)® e
Abs (b-d)® f
0® z
Lbl 1
Ecos z+a® g
Fsin z+b® h
Z=0=>Plot g,h
Plot g,h
g>2=>h>2=>g<99=>h<59=>Line
z+5® z
z>360=>Goto 2
Goto 1
Lbl 2
Plot g,h
Line-disp-
[pts]
0® a
0® b
Lbl 1
Plot x,y-disp-
C=1=>Line
0® c
X=a=>y=b=>1® c
C=1=>Line
x® a
y® b
Goto 1