Dessin

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



END