aprenda ajuste 
atr "a primeiro mostretextodacaixacombinao "cb1 
atr "b primeiro mostretextodacaixacombinao "cb2 
se soiguais [Z]selecionecaixalistagem "lis1 [ponto :a :b 1 pare]
se soiguais [CONJUGADO DE Z]selecionecaixalistagem "lis1 [conjugado :a :b 11 pare]
atr "c primeiro mostretextodacaixacombinao "cb3 
atr "d primeiro mostretextodacaixacombinao "cb4
se soiguais [CONJUGADO DE W]selecionecaixalistagem "lis1 [conjugado :c :d 14]
se soiguais [DIVISO (Z / W)]selecionecaixalistagem "lis1 [diviso :a :b :c :d 10]
se soiguais [MULTIPLICAO (Z x W)]selecionecaixalistagem "lis1 [vezes :a :b :c :d 6]
se soiguais [SOMA (Z + W)]selecionecaixalistagem "lis1 [mais :a :b :c :d 4]
se soiguais [SUBTRAO (Z - W)]selecionecaixalistagem "lis1 [mais :a :b :c*-1 :d*-1 3]
se soiguais [W]selecionecaixalistagem "lis1 [ponto :c :d 2]
fim

aprenda complexos
dt eixos
criejanela "main "comp [Trabalhando com nmeros complexos] 150 150 175 93
crieesttico "comp "es1 [No. complexo Z= a + bi] 3 5 100 10
crieesttico "comp "es2 [valor de a] 3 15 40 10
criecaixacombinao "comp "cb1 40 15 15 12
crieesttico "comp "es3 [valor de b] 3 28 40 10
criecaixacombinao "comp "cb2 40 27 15 12
crieesttico "comp "es4 [No. complexo W= c + di] 3 45 100 10
crieesttico "comp "es5 [valor de c] 3 55 40 10
criecaixacombinao "comp "cb3 40 55 15 12
crieesttico "comp "es6 [valor de d] 3 68 40 10
criecaixacombinao "comp "cb4 40 67 15 12
crieesttico "comp "es7 [Operaes com Z e W] 90 5 50 10
criecaixalistagem "comp "lis1 80 15 90 30
adicionenacaixalistagem "lis1 "Z 
adicionenacaixalistagem "lis1 "W
adicionenacaixalistagem "lis1 [ SOMA (Z + W)]
adicionenacaixalistagem "lis1 [ SUBTRAO (Z - W)]
adicionenacaixalistagem "lis1 [ MULTIPLICAO (Z x W)]
adicionenacaixalistagem "lis1 [ DIVISO (Z / W)]
adicionenacaixalistagem "lis1 [ CONJUGADO  DE Z]
adicionenacaixalistagem "lis1 [ CONJUGADO DE  W]
crieboto "comp "bo1 "DESENHA 95 55 70 10 [ajuste]
crieboto "comp "bo2 "LIMPA 95 70 30 10 [tat eixos]
crieboto "comp "bo3 "SAI 135 70 30 10 [apaguejanela "comp tat at]
fim

aprenda conjugado :a :b :z
ponto :a :b*-1 :z
atr "lis [+]
atr "lis jf :b*-1 :lis
atr "lis jf "i :lis
atr "lis ji :a :lis
atr "lis ji " :lis
se :z=11[atr "lis ji "z :lis]
se :z=14[atr "lis ji "w :lis]
atr "lis ji "de :lis
atr "lis ji "conjugado :lis
atr "lis ji "o :lis
esc :lis
fim

aprenda diviso :a :b :c :d :z
atr "k1 ((:a*:c+:b*:d)/(:c*:c+:d*:d))
atr "k2 ((:b*:c-:a*:d)/(:c*:c+:d*:d))
ponto :k1 :k2 :z
atr "lis [+]
atr "lis jf :k2 :lis
atr "lis jf "i :lis
atr "lis ji :k1 :lis
atr "lis ji " :lis
atr "lis ji "diviso :lis
atr "lis ji "a :lis
esc :lis
fim

aprenda eixos
mudecl 7
pt 200
repita 20[pf 20 pd 90 pf 3 pt 6 pf 3 pe 90]
pt 200 pd 90 pt 200
repita 20[pf 20 pd 90 pf 3 pt 6 pf 3 pe 90]
pt 200 pe 90
numeros
mudecl 0
fim

aprenda flecha :x :y
pf raizq ((:x*:x)+(:y*:y)) pd 30 pt 5 pf 5 pe 60 pt 5 pf 5 pd 30
pt raizq ((:x*:x)+(:y*:y)) 
fim

aprenda lado
mudeesttico "es2 sentena [valor de a] mostrebarrarolagem "rol1
fim

aprenda mais :a :b :c :d :z
atr "s1 :a+:c
atr "s2 :b+:d
ponto :s1 :s2 :z
atr "lis [+]
atr "lis jf :s2 :lis
atr "lis jf "i :lis
atr "lis ji :s1 :lis
atr "lis ji " :lis
se :z=4[atr "lis ji "soma :lis]
se :z=3[atr "lis ji "subtrao :lis]
atr "lis ji "a :lis
esc :lis
fim

aprenda mudecl :cor
atr "valido 0
se lista pri :cor [mudecll (pri :cor) atr "valido 1 atr "cor 16]
se lista :cor [mudecll (:cor) atr "valido 1]
se ou :cor = 0  :cor = "preto          [ mudecll ( lista 0 0 0 ) atr "valido 1]
se ou :cor = 1  :cor = "azul           [ mudecll ( lista 0 0 128 ) atr "valido 1]
se ou :cor = 2  :cor = "verde          [ mudecll ( lista 0 128 0 ) atr "valido 1]
se ou :cor = 3  :cor = "ciano          [ mudecll ( lista 0 128 128 ) atr "valido 1]
se ou :cor = 4  :cor = "vermelho       [ mudecll ( lista 255 0 0 ) atr "valido 1]
se ou :cor = 5  :cor = "roxo           [ mudecll ( lista 128 0 128 ) atr "valido 1]
se ou :cor = 6  :cor = "marrom         [ mudecll ( lista 128 64 0 ) atr "valido 1]
se ou :cor = 7  :cor = "cinzaclaro     [ mudecll ( lista 192 192 192 ) atr "valido 1]
se ou :cor = 8  :cor = "cinzaescuro    [ mudecll ( lista 128 128 128 ) atr "valido 1]
se ou :cor = 9  :cor = "verdegua      [ mudecll ( lista 128 255 255 ) atr "valido 1]
se ou :cor = 10 :cor = "verdeclaro     [ mudecll ( lista 0 255 0 ) atr "valido 1]
se ou :cor = 11 :cor = "cianoclaro     [ mudecll ( lista 0 255 255 ) atr "valido 1]
se ou :cor = 12 :cor = "vermelhoescuro [ mudecll ( lista 128 0 0  ) atr "valido 1]
se ou :cor = 13 :cor = "rosachoque     [ mudecll ( lista 255 0 255 ) atr "valido 1]
se ou :cor = 14 :cor = "amarelo        [ mudecll ( lista 255 255 0 ) atr "valido 1]
se ou :cor = 15 :cor = "branco         [ mudecll ( lista 255 255 255 ) atr "valido 1]
se :valido = 0 [esc [Est cor no  vlida!]]
fim

aprenda numeros
pf 30 pd 90 un pf 5 ul pe 90 rotule "1 pd 90 un pt 5 ul pe 90 
prog 1 1 10 20
pt 210 
pt 10 pd 90 un pf 5 ul pe 90 rotule "-1 pd 90 un pt 5 pe 90 ul
prog -1 -1 -9 -20
pf 170 pd 90 
pf 15 pd 90 un pf 5 ul pe 90 rotule "1 pd 90 un pt 5 ul pe 90
prog 1 1 10 20
pt 195 
pt 30 pd 90 un pf 5 ul pe 90 rotule "-1 pd 90 un pt 5 pe 90 ul
prog -1 -1 -9 -20
pf 190
pe 90
fim

aprenda ponto :x :y :z
mudecl 7
pf :y*20 pd 90 mudecl :z 
pf :x*20 pd 90 pf :y*20 mudecl 7
pd 90 pf :x*20 pd 180
mudecl 0
se :x>0 [pe arctan (:y/:x) flecha :x*20 :y*20 pd arctan (:y/:x) pe 90]
se :x<0 [pe arctan (:y/:x) pe 180  flecha :x*20 :y*20 pd arctan (:y/:x) pd 90]
se :x=0 [pe 90 pf :y*20 pd 45 pt 5 pf 5 pe 90 pt 5 pf 5 pd 45 pt :y*20]
fim

aprenda prog :i :c :k :w
faaat[pf :w atr "i :i+:c pd 90 un pf 5 ul pe 90 rotule :i pd 90 un pt 5 ul pe 90][:i=:k]
fim

aprenda vezes :a :b :c :d :z
atr "v1 (:a*:c-:b*:d)
atr "v2 (:b*:c+:a*:d)
ponto :v1 :v2 :z
atr "lis [+]
atr "lis jf :v2 :lis
atr "lis jf "i :lis
atr "lis ji :v1 :lis
atr "lis ji " :lis
atr "lis ji "multiplicao :lis
atr "lis ji "a :lis
esc :lis
fim

Atribua " 4
Atribua ":lis [25]
Atribua ":x=120 3
Atribua ":x=40 1
Atribua ":x=80 2
Atribua ":y=30 -1
Atribua ":y=40 0
Atribua "a 2
Atribua "a1 1091
Atribua "b 2
Atribua "c 3
Atribua "cor 8
Atribua "d 2
Atribua "e 4
Atribua "f 350
Atribua "i 1
Atribua "k 1
Atribua "k1 0.769230769230769
Atribua "k2 0.153846153846154
Atribua "k3 3
Atribua "k4 2
Atribua "l 120
Atribua "lis [a subtrao  -1 + 0 i]
Atribua "m 3
Atribua "mmc 760
Atribua "n 5
Atribua "q 2
Atribua "r 194.164078649987
Atribua "s 22486549
Atribua "s1 -1
Atribua "s2 0
Atribua "t 72
Atribua "until.cond [:n=1]
Atribua "until.instr [atr "a1 :a1+2 atr "n :n-1 atr "s :s+:a1+2]
Atribua "v1 2
Atribua "v2 10
Atribua "valido 1
Atribua "w 0.0174524064372835
Atribua "x 3
Atribua "y 451
Atribua "z 0.999847695156391
