View.Set ("graphics: max, max; nobuttonbar")
const midx := maxx div 2
const midy := maxy div 2
fcn convert (org : string) : real
if strintok (org) then
result strint (org)
elsif Str.Upper (org) = "PI" then
result Math.PI
else
result 0
end if
end convert
var txt := Font.New ("Times New Roman:8")
var y1, y2, x2 : int
var a, p, tv, th : real
var A, P, TV, TH : string
var pick : string
fcn valid : boolean
if pick = "SINE" or pick = "COSINE" then
result true
else
result false
end if
end valid
View.Set ("text")
put "Do you wish to draw a sine or cosine curve?"
get pick
pick := Str.Upper (pick)
if valid then
put "What's the amplitude?"
get A
put "What's the period? (times 2pi)"
get P
put "What's the vertical translation?"
get TV
put "What's the horizantal translation?"
get TH
a := convert (A)
p := convert (P)
tv := convert (TV)
th := convert (TH)
end if
View.Set ("graphics: max, max")
cls
Draw.Line (0, midy, maxx, midy, 7)
Draw.Line (midx, 0, midx, maxy, 7)
Draw.Oval (midx, midy, 5, 5, 7) %The point (0, 0)
for i : 0 .. maxx
if (i - midx) not= 0 then
if (i - midx) mod 100 = 0 then
Draw.Text (intstr (i - midx), i, midy + 5, txt, 7)
end if
end if
end for
for i : 0 .. maxy
if (i - midy) not= 0 then
if (i - midy) mod 100 = 0 then
Draw.Text (intstr (i - midy), midx + 5, i, txt, 7)
end if
end if
end for
if pick = "SINE" then
for x1 : -maxx .. maxx - 1
x2 := x1 + 1
y1 := round (a * sind ((x1 / p) + th) + tv)
y2 := round (a * sind ((x2 / p) + th) + tv)
Draw.Line (x1 + midx, y1 + midy, x2 + midx, y2 + midy, 7)
delay (1)
end for
elsif pick = "COSINE" then
for x1 : -maxx .. maxx - 1
x2 := x1 + 1
y1 := round (a * cosd ((x1 / p) - th) + tv)
y2 := round (a * cosd ((x2 / p) - th) + tv)
Draw.Line (x1 + midx, y1 + midy, x2 + midx, y2 + midy, 7)
delay (1)
end for
else
cls
put "Your choice was invalid!!!"
end if |
Register
Wiki
Blog
Search
Turing
Chat Room
Members
