Cemetech | Projects | BASIC Elite

Home Archives Projects Forum Tools About

Login [Register]

Don't have an account? Register now to chat, post, use our tools, and much more.

Latest Headlines

» Cemetech Member Carves Intricate Wooden TI-83+
» HP Prime Multitouch Graphing Calculator: The Scoop
» More Details on the Casio fx-CP400 Touchscreen Calculator
» Editorial: On Choosing and Shelving Projects

Online Users

There are 114 users online: 4 members, 83 guests and 27 bots.
Members: fortytwo, legodude, nsg.
Bots: VoilaBot (4), MSN/Bing (1), Magpie Crawler (3), Googlebot (18), MSN/Bing (1).

RSS & Social Media

Follow @cemetech

'Like' Cemetech

News Headlines

Latest Posts

SAX

You must log in to view the SAX chat widget

SourceCoder 2.5 :: Code Output

« Return to Project List/Parse Another File
File Type: TI-83/+/SE file
Total File Size: 6655 bytes

AAAWIB2

Program Data Size:6579
Type: Protected Program

Then	27
While	0
Repeat	0
For(	0
End	28

SourceCoder 2 has detected that you have 1 too many closing tags for your number of opening tags.

:AxesOff
:FnOff 
:ZoomSto
:Lbl ST
:ClrHome
:FnOff 
:ClrDraw
:AxesOff
:0→Xmin
:94→Xmax
:0→Ymin
:62→Ymax
:1→P
:Horizontal 62
:Text(1,2,"WiskB CE2011-1-Algebra"
:Horizontal 54
:Text(10,5,"[1] Logaritmes
:Text(16,5,"[2] Machten
:Text(22,5,"[3] Differentieren
:Text(28,5,"[4] Intergreren
:Text(34,5,"[5] [Sy]mmetrie
:Text(40,5,"[6] Ans->Wortel
:
:Text(49,5,"[ENTER] Meer
:Text(55,5,"[CLEAR] QUIT
:Text(43,77,"
:Text(50,70,"PIM
:Text(57,55,"VELDHUISEN
:
:Lbl θ
:getKey→θ
:If θ=0
:Goto θ
:If θ=92
:Then
:ZStandard
:AxesOff
:ClrDraw
:Text(4,1,"Y=     log(X)
:Text(0,9,"a
:Text(4,39,"<->      X=a"
:Text(2,68,"Y
:Text(14,4,"log(X) +   log(Y) =   log(X*Y)
:Text(10,1,"a
:Text(10,30,"a
:Text(10,59,"a
:Text(24,4,"log(X) -   log(Y)]=   log(X/Y)
:Text(20,1,"a
:Text(20,30,"a
:Text(20,59," a
:Text(34,1,"n *    log(X)]=  log(X    )
:Text(30,13,"a
:Text(30,42," a
:Text(30,63," n
:Text(50,1,"    log(X) = 
:Text(46,38,"log(X)
:Text(56,38,"log(a)
:Line(‾3.2,‾7,2.4,‾7
:Text(46,1,"a
:Text(44,34,"b
:Text(54,34,"b
:Pause 
:ClrDraw
:Goto ST
:End
:
:If θ=93
:Then
:ZStandard
:AxesOff
:ClrDraw
:Text(4,1,"A    * A    = A
:Text(0,4,"b
:Text(0,19,"c
:Text(0,32,"b+c
:Text(14,1,"A    / A    = A
:Text(10,4,"b
:Text(10,18,"c
:Text(10,32,"b-c
:Text(24,1,"(A    )   = A
:Text(21,8,"b
:Text(20,14,"c
:Text(22,28,"b*c
:Text(34,1,"(A*B)   = A  * B 
:Text(30,21,"b
:Text(30,32,"b
:Text(30,45,"b
:Text(44,1,"√(A) =A
:Text(40,25,"1/2
:Text(54,4,"√(A) =A
:Text(50,1,"b
:Text(50,28,"(1/b)
:Line(.5,10,.5,‾10)
:Text(4,51,"(1/X) =X^-1
:Text(14,51,"(1/X     ) =X
:Text(10,66,"b
:Text(10,83,"‾b
:Text(24,51,"X    = 1
:Text(20,55,"0
:Pause 
:ClrDraw
:Goto ST
:End
:
:If θ=94
:Then
:AxesOff
:ZStandard
:ClrDraw
:Text(0,2,"F"
:Line(‾10,8,‾1,8
:Text(7,0,"eA^X"
:Text(14,0,"ln(AX)"
:Text(21,0,"sin(AX+B)
:Text(28,0,"cos(AX+B)
:Text(35,0,"tan(X)
:Line(0,10,0,‾3.6
:Line(‾10,‾3.6,10,‾3.6
:Text(0,50,"F'"
:Line(0,8,9,8
:Text(7,50,"A*e^(AX)"
:Text(14,50,"1/X"
:Text(21,50,"A*cos(AX+B)
:Text(28,50,"‾A*sin(AX+B)
:Text(35,50,"1/(cos²(X))
:Text(43,0,"KETTING :F'(G(X))*G'(X)"
:Text(50,0,"PRODUCT :UV'+U'V
:Text(57,0,"QUOTIENT: (NT'-TN')/N²
:Pause 
:ClrDraw
:
:
:
:
:
:Goto ST
:End
:
:
:If θ=82
:Then
:AxesOff
:ZStandard
:ClrDraw
:Text(0,1,"f(x)"
:Line(‾10,7.7,20,7.7
:Text(8,0,"x^n
:Text(15,0,"g^x
:Text(22,0,"e^(ax)
:Text(29,0,"1/x
:Text(36,0,"ln(x)
:Text(43,4,"log(x)
:Text(46,0,"g
:Text(50,4,"sin(ax)
:Text(57,0,"cos(ax)
:
:Line(‾4,10,‾4,‾11
:
:Text(0,30,"F(x)"
:
:Text(8,30,"(x^(n+1))/(n+1) +C
:Text(15,30,"g^x/ln(g) +C
:Text(22,30,"(1/a)*e^(ax)+C
:Text(29,30,"ln]x]+C 
:Line(‾2,0,‾2,‾1
:Line(‾0.5,0,‾0.5,‾1
:Text(36,30,"x ln(x)-x+C
:Text(43,30,"ln(g)^-1*(xln(x)-x) +C
:Text(50,30,"(‾1/a)*cos(ax)+C
:Text(57,30,"(1/a)*sin(ax)+C
:
:
:Pause 
:ClrDraw
:
:Text(8,1,"Notatie:
:
:Pxl-On(59,4
:Pxl-On(59,5
:
:Pxl-On(58,6
:
:Pxl-On(57,7
:Pxl-On(56,7
:Pxl-On(55,7
:Pxl-On(54,7
:Pxl-On(53,7
:Pxl-On(52,7
:Pxl-On(51,8
:
:Pxl-On(50,9
:Pxl-On(50,10
:Text(45,12,"b
:Text(55,0,"a
:Text(52,9,"f(X)d(X)
:Text(52,37,"= 
:Line(‾1.2,‾9,‾1.2,‾6
:Pxl-On(59,42
:Pxl-On(50,42
:Text(52,43,"F(X)
:Text(52,59,"= F(b)-F(a)
:Line(2.2,‾9,2.2,‾6
:Pxl-On(59,56
:Pxl-On(50,56
:Text(44,59,"b
:Text(57,59,"a
:
:Pause 
:ClrDraw
:
:0→Xmin
:94→Xmax
:0→Ymin
:62→Ymax
:
:
:
:Text(4,3,"InhoudKegel:
:Text(12,3,"   I=(1/3)πr²h
:Text(16,3,"
:Text(22,3,"Inhoud Bol:
:Text(30,3,"   I=(4/3)πr^3
:Text(34,3,"
:Text(40,3,"Booglengte:
:Text(46,3,"
:Text(52,3,"
:
:61→Y
:4→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(√(1+(f'(x))²))dx
:
:
:
:Pause 
:ClrDraw
:
:Text(0,3,"ZWAARTEPUNT:
:Horizontal 53
:
:Text(11,3,"vlakdeel V boven x-as
:Text(17,3,"ingesloten door grafiek f,
:Text(23,3,"x-as, x=a e nx=b
:Horizontal 31
:Text(45,3,"x  = 
:Text(47,8,"z
:
:46→Y
:23→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(x *f(x))dx
:
:Line(30,16,70,16)
:
:61→Y
:26→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(f(x)) dx
:
:
:Pause 
:ClrDraw
:
:
:Text(0,3,"ZWAARTEPUNT:
:Horizontal 53
:
:Text(11,3,"omwentelingslichaam
:Horizontal 42
:
:Text(45,3,"x  = 
:Text(47,8,"z
:
:46→Y
:23→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(πxy²) dx
:
:Line(30,16,70,16)
:
:61→Y
:26→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(πy²) dx
:
:
:
:
:Pause 
:ClrDraw
:
:
:Goto ST
:End
:
:
:If θ=83
:Then
:
:ClrDraw
:
:Text(4,3,"
:Text(10,3,"lijnsymmetrisch inx=a:
:Text(16,3,"f(a -p)=f(a+p)
:Text(22,3,"
:Text(28,3,"
:Text(34,3,"puntsymmetrisch in(a,b):
:Text(40,3,"f(a -p)+f(a+p)=2b
:Text(46,3,"
:Text(52,3,"
:
:Pause 
:ClrDraw
:
:
:
:Goto ST
:End
:
:
:
:If θ=84
:Then
:
:"REM:Vars inuse:W,V,G,Q,D"
:Disp "VOER JE GETAL IN
:Disp "BV:sin(60)
:Disp "(Degrees)
:Disp "OF:√(80)
:Prompt W
:Lbl 1:
:abs(W)*12→V
:V→Q
:prgmGEHEEL
:If G=1
:Then
:Disp W
:Pause 
:Goto ST
:Else
:
:(V/√(2))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(2)),"√(2)"
:Pause 
:Goto ST
:Else
:
:(V/√(3))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(3)),"√(3)"
:Pause 
:Goto ST
:Else
:
:(V/√(5))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(5)),"√(5)"
:Pause 
:Goto ST
:Else
:
:(V/√(6))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(6)),"√(6)"
:Pause 
:Goto ST
:Else
:
:(V/√(7))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(7)),"√(7)"
:Pause 
:Goto ST
:Else
:
:(V/√(10))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(10)),"√(10)"
:Pause 
:Goto ST
:Else
:
:(V/√(11))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp W/√(11),"√(11)"
:Pause 
:Goto ST
:Else
:
:(V/√(13))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(13)),"√(13)"
:Pause 
:Goto ST
:Else
:
:(V/√(14))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(14)),"√(14)"
:Pause 
:Goto ST
:Else
:
:(V/√(15))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(15)),"√(15)"
:Pause 
:Goto ST
:Else
:
:Disp "NIKS GEVONDEN.
:Pause 
:Goto ST
:End
:End
:End
:End
:End
:End
:End
:End
:End
:End
:End
:End
:
:
:
:If θ=45
:Then
:ClrDraw
:ZoomRcl
:ClrDraw
:ClrHome
:AxesOn
:FnOn 
:Stop
:Stop
:End
:
:If θ=105
:Then
:2→P
:AxesOff
:ClrDraw
:Horizontal 62
:Text(1,2,"WiskB CE2011-2-Gonio"
:Horizontal 54
:Text(10,5,"[1] Basis-Gonio
:Text(16,5,"[2] Eenheidscirkel
:Text(22,5,"[3] Pythagoras-Driehoeken
:Text(28,5,"[4] Sin/Cos-omzetten
:
:Text(49,5,"[ENTER] Terug
:Text(55,5,"[CLEAR] QUIT
:
:
:
:Lbl θ2
:getKey→K
:If K=0
:Goto θ2
:
:If K=105
:Then
:Goto ST
:End
:
:If K=93
:Then
:
:ClrDraw
:Circle(47,31,24)
:Horizontal 31
:Vertical 47
:Line(30,48,64,14)
:Line(30,14,64,48)
:Line(35,52,59,10)
:Line(26,43,68,19)
:Line(26,19,68,43)
:Line(35,10,59,52)
:Text(16,72,"1/6π"
:Text(9,67,"1/4π"
:Text(2,59,"1/3π"
:Text(2,18,"2/3π"
:Text(9,10,"3/4π"
:Text(16,5,"5/6π"
:Text(39,5,"7/6π"
:Text(46,10,"5/4π"
:Text(53,18,"4/3π"
:Text(53,59,"5/3π"
:Text(46,67,"7/4π"
:Text(39,72,"11/6π"
:Pause 
:ClrDraw
:Circle(0,0,40)
:Line(0,0,28,28)
:Line(0,0,20,35)
:Line(0,0,35,20)
:Line(0,35,48,35)
:Line(0,28,48,28)
:Line(0,20,48,20)
:Line(20,0,20,40)
:Line(28,0,28,49)
:Line(35,0,35,40)
:Text(39,50,".5√(1)=.5"
:Text(31,50,".5√(2)"
:Text(24,50,".5√(3)"
:Text(14,17,".5"
:Text(5,20,".5√(2)"
:Text(14,32,".5√(3)"
:Pause 
:ClrDraw
:
:Goto ST
:End
:
:
:If K=92
:Then
:AxesOff
:ClrDraw
:ZStandard
:Line(‾7,‾8.2,7,‾8.2
:Line(7,‾8.2,7,0
:Line(7,0,‾7,‾8.2
:Text(55,10,"A
:Text(55,82,"B
:Text(26,82,"C
:Text(57,45,"a
:Text(40,82,"o
:Text(37,45,"s
:Line(‾2,‾8,‾2.4,‾5.8
:Text(48,40,"θ
:Text(2,5,"sin(θ)= (o/s)
:Text(12,5,"cos(θ)= (a/s)
:Text(22,5,"tan(θ)= (o/a)
:Pause 
:ClrDraw
:
:ClrHome
:Disp "1)a         b","-----=-----","sin(A)sin(B)",""
:Disp "2)a²=b²+c²-2bc","*cos(A)"
:Pause 
:ClrHome
:
:
:
:Goto ST
:End
:
:If K=94
:Then
:AxesOff
:ClrDraw
:ZStandard
:Line(0,‾10,0,10
:Text(51,26,"□
:Line(‾4,‾8,‾4,8
:Line(‾4,‾8,‾10,‾8
:Line(‾10,‾8,‾4,8
:Text(30,30,"X√(3
:Text(30,3,"2X
:Text(57,16,"X
:Text(0,25,"30^o
:Text(57,0,"60^o
:Text(35,83,"□
:Line(2,‾3,8,‾3
:Line(8,‾3,8,6.4
:Line(8,6.4,2,‾3
:Text(23,88,"X
:Text(42,70,"X
:Text(20,56,"X√(2
:Text(7,71,"45^o
:Text(41,49,"45^o
:Pause 
:ClrDraw
:ZStandard
:ZSquare
:Line(‾6,‾4.5,6,‾4.5
:Line(6,‾4.5,6,4.5
:Line(6,4.5,‾6,‾4.5
:Line(5,‾4.5,5,‾3.5
:Line(5,‾3.5,6,‾3.5
:Text(30,70,"3X
:Text(50,45,"4X
:Text(20,45,"5X
:Pause 
:ClrDraw
:Goto ST
:End
:
:
:
:
:
:
:If K=82
:Then
:ClrDraw
:
:
:Text(4,3,"sin(-A) =-sin(A)
:Text(10,3,"-sin(A) =sin(A+π)
:Text(16,3,"sin(A) =cos(A-1/2π)
:Text(22,3,"
:Text(28,3,"cos(-A) =cos(A)
:Text(34,3,"-cos(A) =cos(A+π)
:Text(40,3,"cos(A) =sin(A+1/2π)
:Text(46,3,"
:Text(52,3,"tan(A) =sin(A)/cos(A)
:
:Pause 
:ClrDraw
:
:Text(4,3,"sin²(A) +cos²(A)=1
:Text(10,3,"
:Text(16,3,"sin(A) =√(1-cos²(A))
:Text(22,3,"cos(A) =√(1-sin²(A))
:Horizontal 32
:Text(31,3,"sin(A)=sin(B) geeft:
:Text(37,3,"A= B+k2πvA=π-B+k2π
:Horizontal 18
:Text(45,3,"cos(A)=cos(B) geeft:
:Text(51,3,"A= B+k2πvA=-B+k2π
:Text(52,3,"
:Horizontal 4
:
:Pause 
:ClrDraw
:
:Text(4,3,"sin(2A) =2sin(A)*cos(A)
:Text(10,3,"cos(2A) =cos²(A)-sin²(A)
:Text(16,3,"cos(2A) =2cos²-1
:Text(22,3,"cos(2A) =1-2sin²(A)
:
:
:Pause 
:ClrDraw
:
:Goto ST
:End
:
:
:
:If K=45
:Then
:ClrDraw
:ZoomRcl
:ClrDraw
:ClrHome
:AxesOn
:FnOn 
:Stop
:End
:End
:If P=1
:Then
:Goto θ
:End
:If P=2
:Then
:Goto θ2
:End
:End
:Disp "42"
:

HTML:

Use this in any HTML document, including readmes. Please keep copyright line intact.

:AxesOff :FnOff :ZoomSto :Lbl ST :ClrHome :FnOff :ClrDraw :AxesOff :0→Xmin :94→Xmax :0→Ymin :62→Ymax :1→P :Horizontal 62 :Text(1,2,"WiskB CE2011-1-Algebra" :Horizontal 54 :Text(10,5,"[1] Logaritmes :Text(16,5,"[2] Machten :Text(22,5,"[3] Differentieren :Text(28,5,"[4] Intergreren :Text(34,5,"[5] [Sy]mmetrie :Text(40,5,"[6] Ans->Wortel : :Text(49,5,"[ENTER] Meer :Text(55,5,"[CLEAR] QUIT :Text(43,77," :Text(50,70,"PIM :Text(57,55,"VELDHUISEN : :Lbl θ :getKey→θ :If θ=0 :Goto θ :If θ=92 :Then :ZStandard :AxesOff :ClrDraw :Text(4,1,"Y=     log(X) :Text(0,9,"a :Text(4,39,"<->      X=a" :Text(2,68,"Y :Text(14,4,"log(X) +   log(Y) =   log(X*Y) :Text(10,1,"a :Text(10,30,"a :Text(10,59,"a :Text(24,4,"log(X) -   log(Y)]=   log(X/Y) :Text(20,1,"a :Text(20,30,"a :Text(20,59," a :Text(34,1,"n *    log(X)]=  log(X    ) :Text(30,13,"a :Text(30,42," a :Text(30,63," n :Text(50,1,"    log(X) =  :Text(46,38,"log(X) :Text(56,38,"log(a) :Line(‾3.2,‾7,2.4,‾7 :Text(46,1,"a :Text(44,34,"b :Text(54,34,"b :Pause :ClrDraw :Goto ST :End : :If θ=93 :Then :ZStandard :AxesOff :ClrDraw :Text(4,1,"A    * A    = A :Text(0,4,"b :Text(0,19,"c :Text(0,32,"b+c :Text(14,1,"A    / A    = A :Text(10,4,"b :Text(10,18,"c :Text(10,32,"b-c :Text(24,1,"(A    )   = A :Text(21,8,"b :Text(20,14,"c :Text(22,28,"b*c :Text(34,1,"(A*B)   = A  * B  :Text(30,21,"b :Text(30,32,"b :Text(30,45,"b :Text(44,1,"√(A) =A :Text(40,25,"1/2 :Text(54,4,"√(A) =A :Text(50,1,"b :Text(50,28,"(1/b) :Line(.5,10,.5,‾10) :Text(4,51,"(1/X) =X-1 :Text(14,51,"(1/X     ) =X :Text(10,66,"b :Text(10,83,"‾b :Text(24,51,"X    = 1 :Text(20,55,"0 :Pause :ClrDraw :Goto ST :End : :If θ=94 :Then :AxesOff :ZStandard :ClrDraw :Text(0,2,"F" :Line(‾10,8,‾1,8 :Text(7,0,"eA^X" :Text(14,0,"ln(AX)" :Text(21,0,"sin(AX+B) :Text(28,0,"cos(AX+B) :Text(35,0,"tan(X) :Line(0,10,0,‾3.6 :Line(‾10,‾3.6,10,‾3.6 :Text(0,50,"F'" :Line(0,8,9,8 :Text(7,50,"A*e^(AX)" :Text(14,50,"1/X" :Text(21,50,"A*cos(AX+B) :Text(28,50,"‾A*sin(AX+B) :Text(35,50,"1/(cos2(X)) :Text(43,0,"KETTING :F'(G(X))*G'(X)" :Text(50,0,"PRODUCT :UV'+U'V :Text(57,0,"QUOTIENT: (NT'-TN')/N2 :Pause :ClrDraw : : : : : :Goto ST :End : : :If θ=82 :Then :AxesOff :ZStandard :ClrDraw :Text(0,1,"f(x)" :Line(‾10,7.7,20,7.7 :Text(8,0,"x^n :Text(15,0,"g^x :Text(22,0,"e^(ax) :Text(29,0,"1/x :Text(36,0,"ln(x) :Text(43,4,"log(x) :Text(46,0,"g :Text(50,4,"sin(ax) :Text(57,0,"cos(ax) : :Line(‾4,10,‾4,‾11 : :Text(0,30,"F(x)" : :Text(8,30,"(x^(n+1))/(n+1) +C :Text(15,30,"g^x/ln(g) +C :Text(22,30,"(1/a)*e^(ax)+C :Text(29,30,"ln]x]+C  :Line(‾2,0,‾2,‾1 :Line(‾0.5,0,‾0.5,‾1 :Text(36,30,"x ln(x)-x+C :Text(43,30,"ln(g)-1*(xln(x)-x) +C :Text(50,30,"(‾1/a)*cos(ax)+C :Text(57,30,"(1/a)*sin(ax)+C : : :Pause :ClrDraw : :Text(8,1,"Notatie: : :Pxl-On(59,4 :Pxl-On(59,5 : :Pxl-On(58,6 : :Pxl-On(57,7 :Pxl-On(56,7 :Pxl-On(55,7 :Pxl-On(54,7 :Pxl-On(53,7 :Pxl-On(52,7 :Pxl-On(51,8 : :Pxl-On(50,9 :Pxl-On(50,10 :Text(45,12,"b :Text(55,0,"a :Text(52,9,"f(X)d(X) :Text(52,37,"=  :Line(‾1.2,‾9,‾1.2,‾6 :Pxl-On(59,42 :Pxl-On(50,42 :Text(52,43,"F(X) :Text(52,59,"= F(b)-F(a) :Line(2.2,‾9,2.2,‾6 :Pxl-On(59,56 :Pxl-On(50,56 :Text(44,59,"b :Text(57,59,"a : :Pause :ClrDraw : :0→Xmin :94→Xmax :0→Ymin :62→Ymax : : : :Text(4,3,"InhoudKegel: :Text(12,3,"   I=(1/3)πr2h :Text(16,3," :Text(22,3,"Inhoud Bol: :Text(30,3,"   I=(4/3)πr^3 :Text(34,3," :Text(40,3,"Booglengte: :Text(46,3," :Text(52,3," : :61→Y :4→X :Pxl-On(Y,X :Pxl-On(Y,X+1 : :Pxl-On(Y-1,X+2 : :Pxl-On(Y-2,X+3 :Pxl-On(Y-3,X+3 :Pxl-On(Y-4,X+3 :Pxl-On(Y-5,X+3 :Pxl-On(Y-6,X+3 :Pxl-On(Y-7,X+3 :Pxl-On(Y-8,X+4 : :Pxl-On(Y-9,X+5 :Pxl-On(Y-10,X+6 :Text(Y-14,X+8,"b :Text(Y-4,X-4,"a : :Text(Y-8,X+6,"(√(1+(f'(x))2))dx : : : :Pause :ClrDraw : :Text(0,3,"ZWAARTEPUNT: :Horizontal 53 : :Text(11,3,"vlakdeel V boven x-as :Text(17,3,"ingesloten door grafiek f, :Text(23,3,"x-as, x=a e nx=b :Horizontal 31 :Text(45,3,"x  =  :Text(47,8,"z : :46→Y :23→X :Pxl-On(Y,X :Pxl-On(Y,X+1 : :Pxl-On(Y-1,X+2 : :Pxl-On(Y-2,X+3 :Pxl-On(Y-3,X+3 :Pxl-On(Y-4,X+3 :Pxl-On(Y-5,X+3 :Pxl-On(Y-6,X+3 :Pxl-On(Y-7,X+3 :Pxl-On(Y-8,X+4 : :Pxl-On(Y-9,X+5 :Pxl-On(Y-10,X+6 :Text(Y-14,X+8,"b :Text(Y-4,X-4,"a : :Text(Y-8,X+6,"(x *f(x))dx : :Line(30,16,70,16) : :61→Y :26→X :Pxl-On(Y,X :Pxl-On(Y,X+1 : :Pxl-On(Y-1,X+2 : :Pxl-On(Y-2,X+3 :Pxl-On(Y-3,X+3 :Pxl-On(Y-4,X+3 :Pxl-On(Y-5,X+3 :Pxl-On(Y-6,X+3 :Pxl-On(Y-7,X+3 :Pxl-On(Y-8,X+4 : :Pxl-On(Y-9,X+5 :Pxl-On(Y-10,X+6 :Text(Y-14,X+8,"b :Text(Y-4,X-4,"a : :Text(Y-8,X+6,"(f(x)) dx : : :Pause :ClrDraw : : :Text(0,3,"ZWAARTEPUNT: :Horizontal 53 : :Text(11,3,"omwentelingslichaam :Horizontal 42 : :Text(45,3,"x  =  :Text(47,8,"z : :46→Y :23→X :Pxl-On(Y,X :Pxl-On(Y,X+1 : :Pxl-On(Y-1,X+2 : :Pxl-On(Y-2,X+3 :Pxl-On(Y-3,X+3 :Pxl-On(Y-4,X+3 :Pxl-On(Y-5,X+3 :Pxl-On(Y-6,X+3 :Pxl-On(Y-7,X+3 :Pxl-On(Y-8,X+4 : :Pxl-On(Y-9,X+5 :Pxl-On(Y-10,X+6 :Text(Y-14,X+8,"b :Text(Y-4,X-4,"a : :Text(Y-8,X+6,"(πxy2) dx : :Line(30,16,70,16) : :61→Y :26→X :Pxl-On(Y,X :Pxl-On(Y,X+1 : :Pxl-On(Y-1,X+2 : :Pxl-On(Y-2,X+3 :Pxl-On(Y-3,X+3 :Pxl-On(Y-4,X+3 :Pxl-On(Y-5,X+3 :Pxl-On(Y-6,X+3 :Pxl-On(Y-7,X+3 :Pxl-On(Y-8,X+4 : :Pxl-On(Y-9,X+5 :Pxl-On(Y-10,X+6 :Text(Y-14,X+8,"b :Text(Y-4,X-4,"a : :Text(Y-8,X+6,"(πy2) dx : : : : :Pause :ClrDraw : : :Goto ST :End : : :If θ=83 :Then : :ClrDraw : :Text(4,3," :Text(10,3,"lijnsymmetrisch inx=a: :Text(16,3,"f(a -p)=f(a+p) :Text(22,3," :Text(28,3," :Text(34,3,"puntsymmetrisch in(a,b): :Text(40,3,"f(a -p)+f(a+p)=2b :Text(46,3," :Text(52,3," : :Pause :ClrDraw : : : :Goto ST :End : : : :If θ=84 :Then : :"REM:Vars inuse:W,V,G,Q,D" :Disp "VOER JE GETAL IN :Disp "BV:sin(60) :Disp "(Degrees) :Disp "OF:√(80) :Prompt W :Lbl 1: :abs(W)*12→V :V→Q :prgmGEHEEL :If G=1 :Then :Disp W :Pause :Goto ST :Else : :(V/√(2))→Q :prgmGEHEEL :If G=1 :Then :Disp (W/√(2)),"√(2)" :Pause :Goto ST :Else : :(V/√(3))→Q :prgmGEHEEL :If G=1 :Then :Disp (W/√(3)),"√(3)" :Pause :Goto ST :Else : :(V/√(5))→Q :prgmGEHEEL :If G=1 :Then :Disp (W/√(5)),"√(5)" :Pause :Goto ST :Else : :(V/√(6))→Q :prgmGEHEEL :If G=1 :Then :Disp (W/√(6)),"√(6)" :Pause :Goto ST :Else : :(V/√(7))→Q :prgmGEHEEL :If G=1 :Then :Disp (W/√(7)),"√(7)" :Pause :Goto ST :Else : :(V/√(10))→Q :prgmGEHEEL :If G=1 :Then :Disp (W/√(10)),"√(10)" :Pause :Goto ST :Else : :(V/√(11))→Q :prgmGEHEEL :If G=1 :Then :Disp W/√(11),"√(11)" :Pause :Goto ST :Else : :(V/√(13))→Q :prgmGEHEEL :If G=1 :Then :Disp (W/√(13)),"√(13)" :Pause :Goto ST :Else : :(V/√(14))→Q :prgmGEHEEL :If G=1 :Then :Disp (W/√(14)),"√(14)" :Pause :Goto ST :Else : :(V/√(15))→Q :prgmGEHEEL :If G=1 :Then :Disp (W/√(15)),"√(15)" :Pause :Goto ST :Else : :Disp "NIKS GEVONDEN. :Pause :Goto ST :End :End :End :End :End :End :End :End :End :End :End :End : : : :If θ=45 :Then :ClrDraw :ZoomRcl :ClrDraw :ClrHome :AxesOn :FnOn :Stop :Stop :End : :If θ=105 :Then :2→P :AxesOff :ClrDraw :Horizontal 62 :Text(1,2,"WiskB CE2011-2-Gonio" :Horizontal 54 :Text(10,5,"[1] Basis-Gonio :Text(16,5,"[2] Eenheidscirkel :Text(22,5,"[3] Pythagoras-Driehoeken :Text(28,5,"[4] Sin/Cos-omzetten : :Text(49,5,"[ENTER] Terug :Text(55,5,"[CLEAR] QUIT : : : :Lbl θ2 :getKey→K :If K=0 :Goto θ2 : :If K=105 :Then :Goto ST :End : :If K=93 :Then : :ClrDraw :Circle(47,31,24) :Horizontal 31 :Vertical 47 :Line(30,48,64,14) :Line(30,14,64,48) :Line(35,52,59,10) :Line(26,43,68,19) :Line(26,19,68,43) :Line(35,10,59,52) :Text(16,72,"1/6π" :Text(9,67,"1/4π" :Text(2,59,"1/3π" :Text(2,18,"2/3π" :Text(9,10,"3/4π" :Text(16,5,"5/6π" :Text(39,5,"7/6π" :Text(46,10,"5/4π" :Text(53,18,"4/3π" :Text(53,59,"5/3π" :Text(46,67,"7/4π" :Text(39,72,"11/6π" :Pause :ClrDraw :Circle(0,0,40) :Line(0,0,28,28) :Line(0,0,20,35) :Line(0,0,35,20) :Line(0,35,48,35) :Line(0,28,48,28) :Line(0,20,48,20) :Line(20,0,20,40) :Line(28,0,28,49) :Line(35,0,35,40) :Text(39,50,".5√(1)=.5" :Text(31,50,".5√(2)" :Text(24,50,".5√(3)" :Text(14,17,".5" :Text(5,20,".5√(2)" :Text(14,32,".5√(3)" :Pause :ClrDraw : :Goto ST :End : : :If K=92 :Then :AxesOff :ClrDraw :ZStandard :Line(‾7,‾8.2,7,‾8.2 :Line(7,‾8.2,7,0 :Line(7,0,‾7,‾8.2 :Text(55,10,"A :Text(55,82,"B :Text(26,82,"C :Text(57,45,"a :Text(40,82,"o :Text(37,45,"s :Line(‾2,‾8,‾2.4,‾5.8 :Text(48,40,"θ :Text(2,5,"sin(θ)= (o/s) :Text(12,5,"cos(θ)= (a/s) :Text(22,5,"tan(θ)= (o/a) :Pause :ClrDraw : :ClrHome :Disp "1)a         b","-----=-----","sin(A)sin(B)","" :Disp "2)a2=b2+c2-2bc","*cos(A)" :Pause :ClrHome : : : :Goto ST :End : :If K=94 :Then :AxesOff :ClrDraw :ZStandard :Line(0,‾10,0,10 :Text(51,26,"□ :Line(‾4,‾8,‾4,8 :Line(‾4,‾8,‾10,‾8 :Line(‾10,‾8,‾4,8 :Text(30,30,"X√(3 :Text(30,3,"2X :Text(57,16,"X :Text(0,25,"30o :Text(57,0,"60o :Text(35,83,"□ :Line(2,‾3,8,‾3 :Line(8,‾3,8,6.4 :Line(8,6.4,2,‾3 :Text(23,88,"X :Text(42,70,"X :Text(20,56,"X√(2 :Text(7,71,"45o :Text(41,49,"45o :Pause :ClrDraw :ZStandard :ZSquare :Line(‾6,‾4.5,6,‾4.5 :Line(6,‾4.5,6,4.5 :Line(6,4.5,‾6,‾4.5 :Line(5,‾4.5,5,‾3.5 :Line(5,‾3.5,6,‾3.5 :Text(30,70,"3X :Text(50,45,"4X :Text(20,45,"5X :Pause :ClrDraw :Goto ST :End : : : : : : :If K=82 :Then :ClrDraw : : :Text(4,3,"sin(-A) =-sin(A) :Text(10,3,"-sin(A) =sin(A+π) :Text(16,3,"sin(A) =cos(A-1/2π) :Text(22,3," :Text(28,3,"cos(-A) =cos(A) :Text(34,3,"-cos(A) =cos(A+π) :Text(40,3,"cos(A) =sin(A+1/2π) :Text(46,3," :Text(52,3,"tan(A) =sin(A)/cos(A) : :Pause :ClrDraw : :Text(4,3,"sin2(A) +cos2(A)=1 :Text(10,3," :Text(16,3,"sin(A) =√(1-cos2(A)) :Text(22,3,"cos(A) =√(1-sin2(A)) :Horizontal 32 :Text(31,3,"sin(A)=sin(B) geeft: :Text(37,3,"A= B+k2πvA=π-B+k2π :Horizontal 18 :Text(45,3,"cos(A)=cos(B) geeft: :Text(51,3,"A= B+k2πvA=-B+k2π :Text(52,3," :Horizontal 4 : :Pause :ClrDraw : :Text(4,3,"sin(2A) =2sin(A)*cos(A) :Text(10,3,"cos(2A) =cos2(A)-sin2(A) :Text(16,3,"cos(2A) =2cos2-1 :Text(22,3,"cos(2A) =1-2sin2(A) : : :Pause :ClrDraw : :Goto ST :End : : : :If K=45 :Then :ClrDraw :ZoomRcl :ClrDraw :ClrHome :AxesOn :FnOn :Stop :End :End :If P=1 :Then :Goto θ :End :If P=2 :Then :Goto θ2 :End :End :Disp "42" : Generated by <a href="http://sc.cemetech.net">SourceCoder</a>, © 2005-2013 <a href="http://www.cemetech.net">Cemetech</a>

ASCII:

Use this in any HTML document, including readmes. Please keep copyright line intact.

:AxesOff
:FnOff 
:ZoomSto
:Lbl ST
:ClrHome
:FnOff 
:ClrDraw
:AxesOff
:0→Xmin
:94→Xmax
:0→Ymin
:62→Ymax
:1→P
:Horizontal 62
:Text(1,2,"WiskB CE2011-1-Algebra"
:Horizontal 54
:Text(10,5,"[1] Logaritmes
:Text(16,5,"[2] Machten
:Text(22,5,"[3] Differentieren
:Text(28,5,"[4] Intergreren
:Text(34,5,"[5] [Sy]mmetrie
:Text(40,5,"[6] Ans->Wortel
:
:Text(49,5,"[ENTER] Meer
:Text(55,5,"[CLEAR] QUIT
:Text(43,77,"
:Text(50,70,"PIM
:Text(57,55,"VELDHUISEN
:
:Lbl θ
:getKey→θ
:If θ=0
:Goto θ
:If θ=92
:Then
:ZStandard
:AxesOff
:ClrDraw
:Text(4,1,"Y=     log(X)
:Text(0,9,"a
:Text(4,39,"<->      X=a"
:Text(2,68,"Y
:Text(14,4,"log(X) +   log(Y) =   log(X*Y)
:Text(10,1,"a
:Text(10,30,"a
:Text(10,59,"a
:Text(24,4,"log(X) -   log(Y)]=   log(X/Y)
:Text(20,1,"a
:Text(20,30,"a
:Text(20,59," a
:Text(34,1,"n *    log(X)]=  log(X    )
:Text(30,13,"a
:Text(30,42," a
:Text(30,63," n
:Text(50,1,"    log(X) = 
:Text(46,38,"log(X)
:Text(56,38,"log(a)
:Line({-}3.2,{-}7,2.4,{-}7
:Text(46,1,"a
:Text(44,34,"b
:Text(54,34,"b
:Pause 
:ClrDraw
:Goto ST
:End
:
:If θ=93
:Then
:ZStandard
:AxesOff
:ClrDraw
:Text(4,1,"A    * A    = A
:Text(0,4,"b
:Text(0,19,"c
:Text(0,32,"b+c
:Text(14,1,"A    / A    = A
:Text(10,4,"b
:Text(10,18,"c
:Text(10,32,"b-c
:Text(24,1,"(A    )   = A
:Text(21,8,"b
:Text(20,14,"c
:Text(22,28,"b*c
:Text(34,1,"(A*B)   = A  * B 
:Text(30,21,"b
:Text(30,32,"b
:Text(30,45,"b
:Text(44,1,"sqrt(A) =A
:Text(40,25,"1/2
:Text(54,4,"sqrt(A) =A
:Text(50,1,"b
:Text(50,28,"(1/b)
:Line(.5,10,.5,{-}10)
:Text(4,51,"(1/X) =X{^-1}
:Text(14,51,"(1/X     ) =X
:Text(10,66,"b
:Text(10,83,"{-}b
:Text(24,51,"X    = 1
:Text(20,55,"0
:Pause 
:ClrDraw
:Goto ST
:End
:
:If θ=94
:Then
:AxesOff
:ZStandard
:ClrDraw
:Text(0,2,"F"
:Line({-}10,8,{-}1,8
:Text(7,0,"{e}A^X"
:Text(14,0,"ln(AX)"
:Text(21,0,"sin(AX+B)
:Text(28,0,"cos(AX+B)
:Text(35,0,"tan(X)
:Line(0,10,0,{-}3.6
:Line({-}10,{-}3.6,10,{-}3.6
:Text(0,50,"F'"
:Line(0,8,9,8
:Text(7,50,"A*{e}^(AX)"
:Text(14,50,"1/X"
:Text(21,50,"A*cos(AX+B)
:Text(28,50,"{-}A*sin(AX+B)
:Text(35,50,"1/(cos{^2}(X))
:Text(43,0,"KETTING :F'(G(X))*G'(X)"
:Text(50,0,"PRODUCT :UV'+U'V
:Text(57,0,"QUOTIENT: (NT'-TN')/N{^2}
:Pause 
:ClrDraw
:
:
:
:
:
:Goto ST
:End
:
:
:If θ=82
:Then
:AxesOff
:ZStandard
:ClrDraw
:Text(0,1,"f(x)"
:Line({-}10,7.7,20,7.7
:Text(8,0,"x^n
:Text(15,0,"g^x
:Text(22,0,"{e}^(ax)
:Text(29,0,"1/x
:Text(36,0,"ln(x)
:Text(43,4,"log(x)
:Text(46,0,"g
:Text(50,4,"sin(ax)
:Text(57,0,"cos(ax)
:
:Line({-}4,10,{-}4,{-}11
:
:Text(0,30,"{F}(x)"
:
:Text(8,30,"(x^(n+1))/(n+1) +C
:Text(15,30,"g^x/ln(g) +C
:Text(22,30,"(1/a)*{e}^(ax)+C
:Text(29,30,"ln]x]+C 
:Line({-}2,0,{-}2,{-}1
:Line({-}0.5,0,{-}0.5,{-}1
:Text(36,30,"x ln(x)-x+C
:Text(43,30,"ln(g){^-1}*(xln(x)-x) +C
:Text(50,30,"({-}1/a)*cos(ax)+C
:Text(57,30,"(1/a)*sin(ax)+C
:
:
:Pause 
:ClrDraw
:
:Text(8,1,"Notatie:
:
:Pxl-On(59,4
:Pxl-On(59,5
:
:Pxl-On(58,6
:
:Pxl-On(57,7
:Pxl-On(56,7
:Pxl-On(55,7
:Pxl-On(54,7
:Pxl-On(53,7
:Pxl-On(52,7
:Pxl-On(51,8
:
:Pxl-On(50,9
:Pxl-On(50,10
:Text(45,12,"b
:Text(55,0,"a
:Text(52,9,"f(X)d(X)
:Text(52,37,"= 
:Line({-}1.2,{-}9,{-}1.2,{-}6
:Pxl-On(59,42
:Pxl-On(50,42
:Text(52,43,"{F}(X)
:Text(52,59,"= {F}(b)-{F}(a)
:Line(2.2,{-}9,2.2,{-}6
:Pxl-On(59,56
:Pxl-On(50,56
:Text(44,59,"b
:Text(57,59,"a
:
:Pause 
:ClrDraw
:
:0→Xmin
:94→Xmax
:0→Ymin
:62→Ymax
:
:
:
:Text(4,3,"InhoudKegel:
:Text(12,3,"   I=(1/3)πr{^2}h
:Text(16,3,"
:Text(22,3,"Inhoud Bol:
:Text(30,3,"   I=(4/3)πr^3
:Text(34,3,"
:Text(40,3,"Booglengte:
:Text(46,3,"
:Text(52,3,"
:
:61→Y
:4→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(sqrt(1+(f'(x)){^2}))dx
:
:
:
:Pause 
:ClrDraw
:
:Text(0,3,"ZWAARTEPUNT:
:Horizontal 53
:
:Text(11,3,"vlakdeel V boven x-as
:Text(17,3,"ingesloten door grafiek f,
:Text(23,3,"x-as, x=a e nx=b
:Horizontal 31
:Text(45,3,"x  = 
:Text(47,8,"z
:
:46→Y
:23→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(x *f(x))dx
:
:Line(30,16,70,16)
:
:61→Y
:26→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(f(x)) dx
:
:
:Pause 
:ClrDraw
:
:
:Text(0,3,"ZWAARTEPUNT:
:Horizontal 53
:
:Text(11,3,"omwentelingslichaam
:Horizontal 42
:
:Text(45,3,"x  = 
:Text(47,8,"z
:
:46→Y
:23→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(πxy{^2}) dx
:
:Line(30,16,70,16)
:
:61→Y
:26→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(πy{^2}) dx
:
:
:
:
:Pause 
:ClrDraw
:
:
:Goto ST
:End
:
:
:If θ=83
:Then
:
:ClrDraw
:
:Text(4,3,"
:Text(10,3,"lijnsymmetrisch inx=a:
:Text(16,3,"f(a -p)=f(a+p)
:Text(22,3,"
:Text(28,3,"
:Text(34,3,"puntsymmetrisch in(a,b):
:Text(40,3,"f(a -p)+f(a+p)=2b
:Text(46,3,"
:Text(52,3,"
:
:Pause 
:ClrDraw
:
:
:
:Goto ST
:End
:
:
:
:If θ=84
:Then
:
:"REM:Vars inuse:W,V,G,Q,D"
:Disp "VOER JE GETAL IN
:Disp "BV:sin(60)
:Disp "(Degrees)
:Disp "OF:sqrt(80)
:Prompt W
:Lbl 1:
:abs(W)*12→V
:V→Q
:prgmGEHEEL
:If G=1
:Then
:Disp W
:Pause 
:Goto ST
:Else
:
:(V/sqrt(2))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/sqrt(2)),"sqrt(2)"
:Pause 
:Goto ST
:Else
:
:(V/sqrt(3))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/sqrt(3)),"sqrt(3)"
:Pause 
:Goto ST
:Else
:
:(V/sqrt(5))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/sqrt(5)),"sqrt(5)"
:Pause 
:Goto ST
:Else
:
:(V/sqrt(6))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/sqrt(6)),"sqrt(6)"
:Pause 
:Goto ST
:Else
:
:(V/sqrt(7))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/sqrt(7)),"sqrt(7)"
:Pause 
:Goto ST
:Else
:
:(V/sqrt(10))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/sqrt(10)),"sqrt(10)"
:Pause 
:Goto ST
:Else
:
:(V/sqrt(11))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp W/sqrt(11),"sqrt(11)"
:Pause 
:Goto ST
:Else
:
:(V/sqrt(13))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/sqrt(13)),"sqrt(13)"
:Pause 
:Goto ST
:Else
:
:(V/sqrt(14))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/sqrt(14)),"sqrt(14)"
:Pause 
:Goto ST
:Else
:
:(V/sqrt(15))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/sqrt(15)),"sqrt(15)"
:Pause 
:Goto ST
:Else
:
:Disp "NIKS GEVONDEN.
:Pause 
:Goto ST
:End
:End
:End
:End
:End
:End
:End
:End
:End
:End
:End
:End
:
:
:
:If θ=45
:Then
:ClrDraw
:ZoomRcl
:ClrDraw
:ClrHome
:AxesOn
:FnOn 
:Stop
:Stop
:End
:
:If θ=105
:Then
:2→P
:AxesOff
:ClrDraw
:Horizontal 62
:Text(1,2,"WiskB CE2011-2-Gonio"
:Horizontal 54
:Text(10,5,"[1] Basis-Gonio
:Text(16,5,"[2] Eenheidscirkel
:Text(22,5,"[3] Pythagoras-Driehoeken
:Text(28,5,"[4] Sin/Cos-omzetten
:
:Text(49,5,"[ENTER] Terug
:Text(55,5,"[CLEAR] QUIT
:
:
:
:Lbl θ2
:getKey→K
:If K=0
:Goto θ2
:
:If K=105
:Then
:Goto ST
:End
:
:If K=93
:Then
:
:ClrDraw
:Circle(47,31,24)
:Horizontal 31
:Vertical 47
:Line(30,48,64,14)
:Line(30,14,64,48)
:Line(35,52,59,10)
:Line(26,43,68,19)
:Line(26,19,68,43)
:Line(35,10,59,52)
:Text(16,72,"1/6π"
:Text(9,67,"1/4π"
:Text(2,59,"1/3π"
:Text(2,18,"2/3π"
:Text(9,10,"3/4π"
:Text(16,5,"5/6π"
:Text(39,5,"7/6π"
:Text(46,10,"5/4π"
:Text(53,18,"4/3π"
:Text(53,59,"5/3π"
:Text(46,67,"7/4π"
:Text(39,72,"11/6π"
:Pause 
:ClrDraw
:Circle(0,0,40)
:Line(0,0,28,28)
:Line(0,0,20,35)
:Line(0,0,35,20)
:Line(0,35,48,35)
:Line(0,28,48,28)
:Line(0,20,48,20)
:Line(20,0,20,40)
:Line(28,0,28,49)
:Line(35,0,35,40)
:Text(39,50,".5sqrt(1)=.5"
:Text(31,50,".5sqrt(2)"
:Text(24,50,".5sqrt(3)"
:Text(14,17,".5"
:Text(5,20,".5sqrt(2)"
:Text(14,32,".5sqrt(3)"
:Pause 
:ClrDraw
:
:Goto ST
:End
:
:
:If K=92
:Then
:AxesOff
:ClrDraw
:ZStandard
:Line({-}7,{-}8.2,7,{-}8.2
:Line(7,{-}8.2,7,0
:Line(7,0,{-}7,{-}8.2
:Text(55,10,"A
:Text(55,82,"B
:Text(26,82,"C
:Text(57,45,"a
:Text(40,82,"o
:Text(37,45,"s
:Line({-}2,{-}8,{-}2.4,{-}5.8
:Text(48,40,"θ
:Text(2,5,"sin(θ)= (o/s)
:Text(12,5,"cos(θ)= (a/s)
:Text(22,5,"tan(θ)= (o/a)
:Pause 
:ClrDraw
:
:ClrHome
:Disp "1)a         b","-----=-----","sin(A)sin(B)",""
:Disp "2)a{^2}=b{^2}+c{^2}-2bc","*cos(A)"
:Pause 
:ClrHome
:
:
:
:Goto ST
:End
:
:If K=94
:Then
:AxesOff
:ClrDraw
:ZStandard
:Line(0,{-}10,0,10
:Text(51,26,"{box}
:Line({-}4,{-}8,{-}4,8
:Line({-}4,{-}8,{-}10,{-}8
:Line({-}10,{-}8,{-}4,8
:Text(30,30,"Xsqrt(3
:Text(30,3,"2X
:Text(57,16,"X
:Text(0,25,"30º
:Text(57,0,"60º
:Text(35,83,"{box}
:Line(2,{-}3,8,{-}3
:Line(8,{-}3,8,6.4
:Line(8,6.4,2,{-}3
:Text(23,88,"X
:Text(42,70,"X
:Text(20,56,"Xsqrt(2
:Text(7,71,"45º
:Text(41,49,"45º
:Pause 
:ClrDraw
:ZStandard
:ZSquare
:Line({-}6,{-}4.5,6,{-}4.5
:Line(6,{-}4.5,6,4.5
:Line(6,4.5,{-}6,{-}4.5
:Line(5,{-}4.5,5,{-}3.5
:Line(5,{-}3.5,6,{-}3.5
:Text(30,70,"3X
:Text(50,45,"4X
:Text(20,45,"5X
:Pause 
:ClrDraw
:Goto ST
:End
:
:
:
:
:
:
:If K=82
:Then
:ClrDraw
:
:
:Text(4,3,"sin(-A) =-sin(A)
:Text(10,3,"-sin(A) =sin(A+π)
:Text(16,3,"sin(A) =cos(A-1/2π)
:Text(22,3,"
:Text(28,3,"cos(-A) =cos(A)
:Text(34,3,"-cos(A) =cos(A+π)
:Text(40,3,"cos(A) =sin(A+1/2π)
:Text(46,3,"
:Text(52,3,"tan(A) =sin(A)/cos(A)
:
:Pause 
:ClrDraw
:
:Text(4,3,"sin{^2}(A) +cos{^2}(A)=1
:Text(10,3,"
:Text(16,3,"sin(A) =sqrt(1-cos{^2}(A))
:Text(22,3,"cos(A) =sqrt(1-sin{^2}(A))
:Horizontal 32
:Text(31,3,"sin(A)=sin(B) geeft:
:Text(37,3,"A= B+k2πvA=π-B+k2π
:Horizontal 18
:Text(45,3,"cos(A)=cos(B) geeft:
:Text(51,3,"A= B+k2πvA=-B+k2π
:Text(52,3,"
:Horizontal 4
:
:Pause 
:ClrDraw
:
:Text(4,3,"sin(2A) =2sin(A)*cos(A)
:Text(10,3,"cos(2A) =cos{^2}(A)-sin{^2}(A)
:Text(16,3,"cos(2A) =2cos{^2}-1
:Text(22,3,"cos(2A) =1-2sin{^2}(A)
:
:
:Pause 
:ClrDraw
:
:Goto ST
:End
:
:
:
:If K=45
:Then
:ClrDraw
:ZoomRcl
:ClrDraw
:ClrHome
:AxesOn
:FnOn 
:Stop
:End
:End
:If P=1
:Then
:Goto θ
:End
:If P=2
:Then
:Goto θ2
:End
:End
:Disp "42"
:
Generated by SourceCoder (http://sc.cemetech.net)
© 2005-2013 Cemetech (http://www.cemetech.net)

phpBBCode:

Compatible with phpBB and several others; for InvisionFree/Invision see below.

[quote="BASIC Code"]:AxesOff
:FnOff 
:ZoomSto
:Lbl ST
:ClrHome
:FnOff 
:ClrDraw
:AxesOff
:0→Xmin
:94→Xmax
:0→Ymin
:62→Ymax
:1→P
:Horizontal 62
:Text(1,2,"WiskB CE2011-1-Algebra"
:Horizontal 54
:Text(10,5,"[1] Logaritmes
:Text(16,5,"[2] Machten
:Text(22,5,"[3] Differentieren
:Text(28,5,"[4] Intergreren
:Text(34,5,"[5] [Sy]mmetrie
:Text(40,5,"[6] Ans->Wortel
:
:Text(49,5,"[ENTER] Meer
:Text(55,5,"[CLEAR] QUIT
:Text(43,77,"
:Text(50,70,"PIM
:Text(57,55,"VELDHUISEN
:
:Lbl θ
:getKey→θ
:If θ=0
:Goto θ
:If θ=92
:Then
:ZStandard
:AxesOff
:ClrDraw
:Text(4,1,"Y=     log(X)
:Text(0,9,"a
:Text(4,39,"<->      X=a"
:Text(2,68,"Y
:Text(14,4,"log(X) +   log(Y) =   log(X*Y)
:Text(10,1,"a
:Text(10,30,"a
:Text(10,59,"a
:Text(24,4,"log(X) -   log(Y)]=   log(X/Y)
:Text(20,1,"a
:Text(20,30,"a
:Text(20,59," a
:Text(34,1,"n *    log(X)]=  log(X    )
:Text(30,13,"a
:Text(30,42," a
:Text(30,63," n
:Text(50,1,"    log(X) = 
:Text(46,38,"log(X)
:Text(56,38,"log(a)
:Line(‾3.2,‾7,2.4,‾7
:Text(46,1,"a
:Text(44,34,"b
:Text(54,34,"b
:Pause 
:ClrDraw
:Goto ST
:End
:
:If θ=93
:Then
:ZStandard
:AxesOff
:ClrDraw
:Text(4,1,"A    * A    = A
:Text(0,4,"b
:Text(0,19,"c
:Text(0,32,"b+c
:Text(14,1,"A    / A    = A
:Text(10,4,"b
:Text(10,18,"c
:Text(10,32,"b-c
:Text(24,1,"(A    )   = A
:Text(21,8,"b
:Text(20,14,"c
:Text(22,28,"b*c
:Text(34,1,"(A*B)   = A  * B 
:Text(30,21,"b
:Text(30,32,"b
:Text(30,45,"b
:Text(44,1,"√(A) =A
:Text(40,25,"1/2
:Text(54,4,"√(A) =A
:Text(50,1,"b
:Text(50,28,"(1/b)
:Line(.5,10,.5,‾10)
:Text(4,51,"(1/X) =X(^-1)
:Text(14,51,"(1/X     ) =X
:Text(10,66,"b
:Text(10,83,"‾b
:Text(24,51,"X    = 1
:Text(20,55,"0
:Pause 
:ClrDraw
:Goto ST
:End
:
:If θ=94
:Then
:AxesOff
:ZStandard
:ClrDraw
:Text(0,2,"F"
:Line(‾10,8,‾1,8
:Text(7,0,"[i]e[/i]A^X"
:Text(14,0,"ln(AX)"
:Text(21,0,"sin(AX+B)
:Text(28,0,"cos(AX+B)
:Text(35,0,"tan(X)
:Line(0,10,0,‾3.6
:Line(‾10,‾3.6,10,‾3.6
:Text(0,50,"F'"
:Line(0,8,9,8
:Text(7,50,"A*e^(AX)"
:Text(14,50,"1/X"
:Text(21,50,"A*cos(AX+B)
:Text(28,50,"‾A*sin(AX+B)
:Text(35,50,"1/(cos²(X))
:Text(43,0,"KETTING :F'(G(X))*G'(X)"
:Text(50,0,"PRODUCT :UV'+U'V
:Text(57,0,"QUOTIENT: (NT'-TN')/N²
:Pause 
:ClrDraw
:
:
:
:
:
:Goto ST
:End
:
:
:If θ=82
:Then
:AxesOff
:ZStandard
:ClrDraw
:Text(0,1,"f(x)"
:Line(‾10,7.7,20,7.7
:Text(8,0,"x^n
:Text(15,0,"g^x
:Text(22,0,"e^(ax)
:Text(29,0,"1/x
:Text(36,0,"ln(x)
:Text(43,4,"log(x)
:Text(46,0,"g
:Text(50,4,"sin(ax)
:Text(57,0,"cos(ax)
:
:Line(‾4,10,‾4,‾11
:
:Text(0,30,"[b]F[/b](x)"
:
:Text(8,30,"(x^(n+1))/(n+1) +C
:Text(15,30,"g^x/ln(g) +C
:Text(22,30,"(1/a)*e^(ax)+C
:Text(29,30,"ln]x]+C 
:Line(‾2,0,‾2,‾1
:Line(‾0.5,0,‾0.5,‾1
:Text(36,30,"x ln(x)-x+C
:Text(43,30,"ln(g)(^-1)*(xln(x)-x) +C
:Text(50,30,"(‾1/a)*cos(ax)+C
:Text(57,30,"(1/a)*sin(ax)+C
:
:
:Pause 
:ClrDraw
:
:Text(8,1,"Notatie:
:
:Pxl-On(59,4
:Pxl-On(59,5
:
:Pxl-On(58,6
:
:Pxl-On(57,7
:Pxl-On(56,7
:Pxl-On(55,7
:Pxl-On(54,7
:Pxl-On(53,7
:Pxl-On(52,7
:Pxl-On(51,8
:
:Pxl-On(50,9
:Pxl-On(50,10
:Text(45,12,"b
:Text(55,0,"a
:Text(52,9,"f(X)d(X)
:Text(52,37,"= 
:Line(‾1.2,‾9,‾1.2,‾6
:Pxl-On(59,42
:Pxl-On(50,42
:Text(52,43,"[b]F[/b](X)
:Text(52,59,"= [b]F[/b](b)-[b]F[/b](a)
:Line(2.2,‾9,2.2,‾6
:Pxl-On(59,56
:Pxl-On(50,56
:Text(44,59,"b
:Text(57,59,"a
:
:Pause 
:ClrDraw
:
:0→Xmin
:94→Xmax
:0→Ymin
:62→Ymax
:
:
:
:Text(4,3,"InhoudKegel:
:Text(12,3,"   I=(1/3)πr²h
:Text(16,3,"
:Text(22,3,"Inhoud Bol:
:Text(30,3,"   I=(4/3)πr^3
:Text(34,3,"
:Text(40,3,"Booglengte:
:Text(46,3,"
:Text(52,3,"
:
:61→Y
:4→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(√(1+(f'(x))²))dx
:
:
:
:Pause 
:ClrDraw
:
:Text(0,3,"ZWAARTEPUNT:
:Horizontal 53
:
:Text(11,3,"vlakdeel V boven x-as
:Text(17,3,"ingesloten door grafiek f,
:Text(23,3,"x-as, x=a e nx=b
:Horizontal 31
:Text(45,3,"x  = 
:Text(47,8,"z
:
:46→Y
:23→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(x *f(x))dx
:
:Line(30,16,70,16)
:
:61→Y
:26→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(f(x)) dx
:
:
:Pause 
:ClrDraw
:
:
:Text(0,3,"ZWAARTEPUNT:
:Horizontal 53
:
:Text(11,3,"omwentelingslichaam
:Horizontal 42
:
:Text(45,3,"x  = 
:Text(47,8,"z
:
:46→Y
:23→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(πxy²) dx
:
:Line(30,16,70,16)
:
:61→Y
:26→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(πy²) dx
:
:
:
:
:Pause 
:ClrDraw
:
:
:Goto ST
:End
:
:
:If θ=83
:Then
:
:ClrDraw
:
:Text(4,3,"
:Text(10,3,"lijnsymmetrisch inx=a:
:Text(16,3,"f(a -p)=f(a+p)
:Text(22,3,"
:Text(28,3,"
:Text(34,3,"puntsymmetrisch in(a,b):
:Text(40,3,"f(a -p)+f(a+p)=2b
:Text(46,3,"
:Text(52,3,"
:
:Pause 
:ClrDraw
:
:
:
:Goto ST
:End
:
:
:
:If θ=84
:Then
:
:"REM:Vars inuse:W,V,G,Q,D"
:Disp "VOER JE GETAL IN
:Disp "BV:sin(60)
:Disp "(Degrees)
:Disp "OF:√(80)
:Prompt W
:Lbl 1:
:abs(W)*12→V
:V→Q
:prgmGEHEEL
:If G=1
:Then
:Disp W
:Pause 
:Goto ST
:Else
:
:(V/√(2))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(2)),"√(2)"
:Pause 
:Goto ST
:Else
:
:(V/√(3))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(3)),"√(3)"
:Pause 
:Goto ST
:Else
:
:(V/√(5))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(5)),"√(5)"
:Pause 
:Goto ST
:Else
:
:(V/√(6))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(6)),"√(6)"
:Pause 
:Goto ST
:Else
:
:(V/√(7))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(7)),"√(7)"
:Pause 
:Goto ST
:Else
:
:(V/√(10))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(10)),"√(10)"
:Pause 
:Goto ST
:Else
:
:(V/√(11))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp W/√(11),"√(11)"
:Pause 
:Goto ST
:Else
:
:(V/√(13))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(13)),"√(13)"
:Pause 
:Goto ST
:Else
:
:(V/√(14))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(14)),"√(14)"
:Pause 
:Goto ST
:Else
:
:(V/√(15))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(15)),"√(15)"
:Pause 
:Goto ST
:Else
:
:Disp "NIKS GEVONDEN.
:Pause 
:Goto ST
:End
:End
:End
:End
:End
:End
:End
:End
:End
:End
:End
:End
:
:
:
:If θ=45
:Then
:ClrDraw
:ZoomRcl
:ClrDraw
:ClrHome
:AxesOn
:FnOn 
:Stop
:Stop
:End
:
:If θ=105
:Then
:2→P
:AxesOff
:ClrDraw
:Horizontal 62
:Text(1,2,"WiskB CE2011-2-Gonio"
:Horizontal 54
:Text(10,5,"[1] Basis-Gonio
:Text(16,5,"[2] Eenheidscirkel
:Text(22,5,"[3] Pythagoras-Driehoeken
:Text(28,5,"[4] Sin/Cos-omzetten
:
:Text(49,5,"[ENTER] Terug
:Text(55,5,"[CLEAR] QUIT
:
:
:
:Lbl θ2
:getKey→K
:If K=0
:Goto θ2
:
:If K=105
:Then
:Goto ST
:End
:
:If K=93
:Then
:
:ClrDraw
:Circle(47,31,24)
:Horizontal 31
:Vertical 47
:Line(30,48,64,14)
:Line(30,14,64,48)
:Line(35,52,59,10)
:Line(26,43,68,19)
:Line(26,19,68,43)
:Line(35,10,59,52)
:Text(16,72,"1/6π"
:Text(9,67,"1/4π"
:Text(2,59,"1/3π"
:Text(2,18,"2/3π"
:Text(9,10,"3/4π"
:Text(16,5,"5/6π"
:Text(39,5,"7/6π"
:Text(46,10,"5/4π"
:Text(53,18,"4/3π"
:Text(53,59,"5/3π"
:Text(46,67,"7/4π"
:Text(39,72,"11/6π"
:Pause 
:ClrDraw
:Circle(0,0,40)
:Line(0,0,28,28)
:Line(0,0,20,35)
:Line(0,0,35,20)
:Line(0,35,48,35)
:Line(0,28,48,28)
:Line(0,20,48,20)
:Line(20,0,20,40)
:Line(28,0,28,49)
:Line(35,0,35,40)
:Text(39,50,".5√(1)=.5"
:Text(31,50,".5√(2)"
:Text(24,50,".5√(3)"
:Text(14,17,".5"
:Text(5,20,".5√(2)"
:Text(14,32,".5√(3)"
:Pause 
:ClrDraw
:
:Goto ST
:End
:
:
:If K=92
:Then
:AxesOff
:ClrDraw
:ZStandard
:Line(‾7,‾8.2,7,‾8.2
:Line(7,‾8.2,7,0
:Line(7,0,‾7,‾8.2
:Text(55,10,"A
:Text(55,82,"B
:Text(26,82,"C
:Text(57,45,"a
:Text(40,82,"o
:Text(37,45,"s
:Line(‾2,‾8,‾2.4,‾5.8
:Text(48,40,"θ
:Text(2,5,"sin(θ)= (o/s)
:Text(12,5,"cos(θ)= (a/s)
:Text(22,5,"tan(θ)= (o/a)
:Pause 
:ClrDraw
:
:ClrHome
:Disp "1)a         b","-----=-----","sin(A)sin(B)",""
:Disp "2)a²=b²+c²-2bc","*cos(A)"
:Pause 
:ClrHome
:
:
:
:Goto ST
:End
:
:If K=94
:Then
:AxesOff
:ClrDraw
:ZStandard
:Line(0,‾10,0,10
:Text(51,26,"□
:Line(‾4,‾8,‾4,8
:Line(‾4,‾8,‾10,‾8
:Line(‾10,‾8,‾4,8
:Text(30,30,"X√(3
:Text(30,3,"2X
:Text(57,16,"X
:Text(0,25,"30°
:Text(57,0,"60°
:Text(35,83,"□
:Line(2,‾3,8,‾3
:Line(8,‾3,8,6.4
:Line(8,6.4,2,‾3
:Text(23,88,"X
:Text(42,70,"X
:Text(20,56,"X√(2
:Text(7,71,"45°
:Text(41,49,"45°
:Pause 
:ClrDraw
:ZStandard
:ZSquare
:Line(‾6,‾4.5,6,‾4.5
:Line(6,‾4.5,6,4.5
:Line(6,4.5,‾6,‾4.5
:Line(5,‾4.5,5,‾3.5
:Line(5,‾3.5,6,‾3.5
:Text(30,70,"3X
:Text(50,45,"4X
:Text(20,45,"5X
:Pause 
:ClrDraw
:Goto ST
:End
:
:
:
:
:
:
:If K=82
:Then
:ClrDraw
:
:
:Text(4,3,"sin(-A) =-sin(A)
:Text(10,3,"-sin(A) =sin(A+π)
:Text(16,3,"sin(A) =cos(A-1/2π)
:Text(22,3,"
:Text(28,3,"cos(-A) =cos(A)
:Text(34,3,"-cos(A) =cos(A+π)
:Text(40,3,"cos(A) =sin(A+1/2π)
:Text(46,3,"
:Text(52,3,"tan(A) =sin(A)/cos(A)
:
:Pause 
:ClrDraw
:
:Text(4,3,"sin²(A) +cos²(A)=1
:Text(10,3,"
:Text(16,3,"sin(A) =√(1-cos²(A))
:Text(22,3,"cos(A) =√(1-sin²(A))
:Horizontal 32
:Text(31,3,"sin(A)=sin(B) geeft:
:Text(37,3,"A= B+k2πvA=π-B+k2π
:Horizontal 18
:Text(45,3,"cos(A)=cos(B) geeft:
:Text(51,3,"A= B+k2πvA=-B+k2π
:Text(52,3,"
:Horizontal 4
:
:Pause 
:ClrDraw
:
:Text(4,3,"sin(2A) =2sin(A)*cos(A)
:Text(10,3,"cos(2A) =cos²(A)-sin²(A)
:Text(16,3,"cos(2A) =2cos²-1
:Text(22,3,"cos(2A) =1-2sin²(A)
:
:
:Pause 
:ClrDraw
:
:Goto ST
:End
:
:
:
:If K=45
:Then
:ClrDraw
:ZoomRcl
:ClrDraw
:ClrHome
:AxesOn
:FnOn 
:Stop
:End
:End
:If P=1
:Then
:Goto θ
:End
:If P=2
:Then
:Goto θ2
:End
:End
:Disp "42"
:
Generated by [url=http://sc.cemetech.net]SourceCoder[/url], © 2005-2013 [url=http://www.cemetech.net]Cemetech[/url][/quote]

InvisionBBCode:

Compatible with Invision, InvisionFree, and similar boards.

[quote="BASIC Code"]:AxesOff
:FnOff 
:ZoomSto
:Lbl ST
:ClrHome
:FnOff 
:ClrDraw
:AxesOff
:0→Xmin
:94→Xmax
:0→Ymin
:62→Ymax
:1→P
:Horizontal 62
:Text(1,2,"WiskB CE2011-1-Algebra"
:Horizontal 54
:Text(10,5,"[1] Logaritmes
:Text(16,5,"[2] Machten
:Text(22,5,"[3] Differentieren
:Text(28,5,"[4] Intergreren
:Text(34,5,"[5] [Sy]mmetrie
:Text(40,5,"[6] Ans->Wortel
:
:Text(49,5,"[ENTER] Meer
:Text(55,5,"[CLEAR] QUIT
:Text(43,77,"
:Text(50,70,"PIM
:Text(57,55,"VELDHUISEN
:
:Lbl θ
:getKey→θ
:If θ=0
:Goto θ
:If θ=92
:Then
:ZStandard
:AxesOff
:ClrDraw
:Text(4,1,"Y=     log(X)
:Text(0,9,"a
:Text(4,39,"<->      X=a"
:Text(2,68,"Y
:Text(14,4,"log(X) +   log(Y) =   log(X*Y)
:Text(10,1,"a
:Text(10,30,"a
:Text(10,59,"a
:Text(24,4,"log(X) -   log(Y)]=   log(X/Y)
:Text(20,1,"a
:Text(20,30,"a
:Text(20,59," a
:Text(34,1,"n *    log(X)]=  log(X    )
:Text(30,13,"a
:Text(30,42," a
:Text(30,63," n
:Text(50,1,"    log(X) = 
:Text(46,38,"log(X)
:Text(56,38,"log(a)
:Line(‾3.2,‾7,2.4,‾7
:Text(46,1,"a
:Text(44,34,"b
:Text(54,34,"b
:Pause 
:ClrDraw
:Goto ST
:End
:
:If θ=93
:Then
:ZStandard
:AxesOff
:ClrDraw
:Text(4,1,"A    * A    = A
:Text(0,4,"b
:Text(0,19,"c
:Text(0,32,"b+c
:Text(14,1,"A    / A    = A
:Text(10,4,"b
:Text(10,18,"c
:Text(10,32,"b-c
:Text(24,1,"(A    )   = A
:Text(21,8,"b
:Text(20,14,"c
:Text(22,28,"b*c
:Text(34,1,"(A*B)   = A  * B 
:Text(30,21,"b
:Text(30,32,"b
:Text(30,45,"b
:Text(44,1,"√(A) =A
:Text(40,25,"1/2
:Text(54,4,"√(A) =A
:Text(50,1,"b
:Text(50,28,"(1/b)
:Line(.5,10,.5,‾10)
:Text(4,51,"(1/X) =X(^-1)
:Text(14,51,"(1/X     ) =X
:Text(10,66,"b
:Text(10,83,"‾b
:Text(24,51,"X    = 1
:Text(20,55,"0
:Pause 
:ClrDraw
:Goto ST
:End
:
:If θ=94
:Then
:AxesOff
:ZStandard
:ClrDraw
:Text(0,2,"F"
:Line(‾10,8,‾1,8
:Text(7,0,"[i]e[/i]A^X"
:Text(14,0,"ln(AX)"
:Text(21,0,"sin(AX+B)
:Text(28,0,"cos(AX+B)
:Text(35,0,"tan(X)
:Line(0,10,0,‾3.6
:Line(‾10,‾3.6,10,‾3.6
:Text(0,50,"F'"
:Line(0,8,9,8
:Text(7,50,"A*e^(AX)"
:Text(14,50,"1/X"
:Text(21,50,"A*cos(AX+B)
:Text(28,50,"‾A*sin(AX+B)
:Text(35,50,"1/(cos²(X))
:Text(43,0,"KETTING :F'(G(X))*G'(X)"
:Text(50,0,"PRODUCT :UV'+U'V
:Text(57,0,"QUOTIENT: (NT'-TN')/N²
:Pause 
:ClrDraw
:
:
:
:
:
:Goto ST
:End
:
:
:If θ=82
:Then
:AxesOff
:ZStandard
:ClrDraw
:Text(0,1,"f(x)"
:Line(‾10,7.7,20,7.7
:Text(8,0,"x^n
:Text(15,0,"g^x
:Text(22,0,"e^(ax)
:Text(29,0,"1/x
:Text(36,0,"ln(x)
:Text(43,4,"log(x)
:Text(46,0,"g
:Text(50,4,"sin(ax)
:Text(57,0,"cos(ax)
:
:Line(‾4,10,‾4,‾11
:
:Text(0,30,"[b]F[/b](x)"
:
:Text(8,30,"(x^(n+1))/(n+1) +C
:Text(15,30,"g^x/ln(g) +C
:Text(22,30,"(1/a)*e^(ax)+C
:Text(29,30,"ln]x]+C 
:Line(‾2,0,‾2,‾1
:Line(‾0.5,0,‾0.5,‾1
:Text(36,30,"x ln(x)-x+C
:Text(43,30,"ln(g)(^-1)*(xln(x)-x) +C
:Text(50,30,"(‾1/a)*cos(ax)+C
:Text(57,30,"(1/a)*sin(ax)+C
:
:
:Pause 
:ClrDraw
:
:Text(8,1,"Notatie:
:
:Pxl-On(59,4
:Pxl-On(59,5
:
:Pxl-On(58,6
:
:Pxl-On(57,7
:Pxl-On(56,7
:Pxl-On(55,7
:Pxl-On(54,7
:Pxl-On(53,7
:Pxl-On(52,7
:Pxl-On(51,8
:
:Pxl-On(50,9
:Pxl-On(50,10
:Text(45,12,"b
:Text(55,0,"a
:Text(52,9,"f(X)d(X)
:Text(52,37,"= 
:Line(‾1.2,‾9,‾1.2,‾6
:Pxl-On(59,42
:Pxl-On(50,42
:Text(52,43,"[b]F[/b](X)
:Text(52,59,"= [b]F[/b](b)-[b]F[/b](a)
:Line(2.2,‾9,2.2,‾6
:Pxl-On(59,56
:Pxl-On(50,56
:Text(44,59,"b
:Text(57,59,"a
:
:Pause 
:ClrDraw
:
:0→Xmin
:94→Xmax
:0→Ymin
:62→Ymax
:
:
:
:Text(4,3,"InhoudKegel:
:Text(12,3,"   I=(1/3)πr²h
:Text(16,3,"
:Text(22,3,"Inhoud Bol:
:Text(30,3,"   I=(4/3)πr^3
:Text(34,3,"
:Text(40,3,"Booglengte:
:Text(46,3,"
:Text(52,3,"
:
:61→Y
:4→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(√(1+(f'(x))²))dx
:
:
:
:Pause 
:ClrDraw
:
:Text(0,3,"ZWAARTEPUNT:
:Horizontal 53
:
:Text(11,3,"vlakdeel V boven x-as
:Text(17,3,"ingesloten door grafiek f,
:Text(23,3,"x-as, x=a e nx=b
:Horizontal 31
:Text(45,3,"x  = 
:Text(47,8,"z
:
:46→Y
:23→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(x *f(x))dx
:
:Line(30,16,70,16)
:
:61→Y
:26→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(f(x)) dx
:
:
:Pause 
:ClrDraw
:
:
:Text(0,3,"ZWAARTEPUNT:
:Horizontal 53
:
:Text(11,3,"omwentelingslichaam
:Horizontal 42
:
:Text(45,3,"x  = 
:Text(47,8,"z
:
:46→Y
:23→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(πxy²) dx
:
:Line(30,16,70,16)
:
:61→Y
:26→X
:Pxl-On(Y,X
:Pxl-On(Y,X+1
:
:Pxl-On(Y-1,X+2
:
:Pxl-On(Y-2,X+3
:Pxl-On(Y-3,X+3
:Pxl-On(Y-4,X+3
:Pxl-On(Y-5,X+3
:Pxl-On(Y-6,X+3
:Pxl-On(Y-7,X+3
:Pxl-On(Y-8,X+4
:
:Pxl-On(Y-9,X+5
:Pxl-On(Y-10,X+6
:Text(Y-14,X+8,"b
:Text(Y-4,X-4,"a
:
:Text(Y-8,X+6,"(πy²) dx
:
:
:
:
:Pause 
:ClrDraw
:
:
:Goto ST
:End
:
:
:If θ=83
:Then
:
:ClrDraw
:
:Text(4,3,"
:Text(10,3,"lijnsymmetrisch inx=a:
:Text(16,3,"f(a -p)=f(a+p)
:Text(22,3,"
:Text(28,3,"
:Text(34,3,"puntsymmetrisch in(a,b):
:Text(40,3,"f(a -p)+f(a+p)=2b
:Text(46,3,"
:Text(52,3,"
:
:Pause 
:ClrDraw
:
:
:
:Goto ST
:End
:
:
:
:If θ=84
:Then
:
:"REM:Vars inuse:W,V,G,Q,D"
:Disp "VOER JE GETAL IN
:Disp "BV:sin(60)
:Disp "(Degrees)
:Disp "OF:√(80)
:Prompt W
:Lbl 1:
:abs(W)*12→V
:V→Q
:prgmGEHEEL
:If G=1
:Then
:Disp W
:Pause 
:Goto ST
:Else
:
:(V/√(2))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(2)),"√(2)"
:Pause 
:Goto ST
:Else
:
:(V/√(3))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(3)),"√(3)"
:Pause 
:Goto ST
:Else
:
:(V/√(5))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(5)),"√(5)"
:Pause 
:Goto ST
:Else
:
:(V/√(6))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(6)),"√(6)"
:Pause 
:Goto ST
:Else
:
:(V/√(7))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(7)),"√(7)"
:Pause 
:Goto ST
:Else
:
:(V/√(10))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(10)),"√(10)"
:Pause 
:Goto ST
:Else
:
:(V/√(11))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp W/√(11),"√(11)"
:Pause 
:Goto ST
:Else
:
:(V/√(13))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(13)),"√(13)"
:Pause 
:Goto ST
:Else
:
:(V/√(14))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(14)),"√(14)"
:Pause 
:Goto ST
:Else
:
:(V/√(15))→Q
:prgmGEHEEL
:If G=1
:Then
:Disp (W/√(15)),"√(15)"
:Pause 
:Goto ST
:Else
:
:Disp "NIKS GEVONDEN.
:Pause 
:Goto ST
:End
:End
:End
:End
:End
:End
:End
:End
:End
:End
:End
:End
:
:
:
:If θ=45
:Then
:ClrDraw
:ZoomRcl
:ClrDraw
:ClrHome
:AxesOn
:FnOn 
:Stop
:Stop
:End
:
:If θ=105
:Then
:2→P
:AxesOff
:ClrDraw
:Horizontal 62
:Text(1,2,"WiskB CE2011-2-Gonio"
:Horizontal 54
:Text(10,5,"[1] Basis-Gonio
:Text(16,5,"[2] Eenheidscirkel
:Text(22,5,"[3] Pythagoras-Driehoeken
:Text(28,5,"[4] Sin/Cos-omzetten
:
:Text(49,5,"[ENTER] Terug
:Text(55,5,"[CLEAR] QUIT
:
:
:
:Lbl θ2
:getKey→K
:If K=0
:Goto θ2
:
:If K=105
:Then
:Goto ST
:End
:
:If K=93
:Then
:
:ClrDraw
:Circle(47,31,24)
:Horizontal 31
:Vertical 47
:Line(30,48,64,14)
:Line(30,14,64,48)
:Line(35,52,59,10)
:Line(26,43,68,19)
:Line(26,19,68,43)
:Line(35,10,59,52)
:Text(16,72,"1/6π"
:Text(9,67,"1/4π"
:Text(2,59,"1/3π"
:Text(2,18,"2/3π"
:Text(9,10,"3/4π"
:Text(16,5,"5/6π"
:Text(39,5,"7/6π"
:Text(46,10,"5/4π"
:Text(53,18,"4/3π"
:Text(53,59,"5/3π"
:Text(46,67,"7/4π"
:Text(39,72,"11/6π"
:Pause 
:ClrDraw
:Circle(0,0,40)
:Line(0,0,28,28)
:Line(0,0,20,35)
:Line(0,0,35,20)
:Line(0,35,48,35)
:Line(0,28,48,28)
:Line(0,20,48,20)
:Line(20,0,20,40)
:Line(28,0,28,49)
:Line(35,0,35,40)
:Text(39,50,".5√(1)=.5"
:Text(31,50,".5√(2)"
:Text(24,50,".5√(3)"
:Text(14,17,".5"
:Text(5,20,".5√(2)"
:Text(14,32,".5√(3)"
:Pause 
:ClrDraw
:
:Goto ST
:End
:
:
:If K=92
:Then
:AxesOff
:ClrDraw
:ZStandard
:Line(‾7,‾8.2,7,‾8.2
:Line(7,‾8.2,7,0
:Line(7,0,‾7,‾8.2
:Text(55,10,"A
:Text(55,82,"B
:Text(26,82,"C
:Text(57,45,"a
:Text(40,82,"o
:Text(37,45,"s
:Line(‾2,‾8,‾2.4,‾5.8
:Text(48,40,"θ
:Text(2,5,"sin(θ)= (o/s)
:Text(12,5,"cos(θ)= (a/s)
:Text(22,5,"tan(θ)= (o/a)
:Pause 
:ClrDraw
:
:ClrHome
:Disp "1)a         b","-----=-----","sin(A)sin(B)",""
:Disp "2)a²=b²+c²-2bc","*cos(A)"
:Pause 
:ClrHome
:
:
:
:Goto ST
:End
:
:If K=94
:Then
:AxesOff
:ClrDraw
:ZStandard
:Line(0,‾10,0,10
:Text(51,26,"□
:Line(‾4,‾8,‾4,8
:Line(‾4,‾8,‾10,‾8
:Line(‾10,‾8,‾4,8
:Text(30,30,"X√(3
:Text(30,3,"2X
:Text(57,16,"X
:Text(0,25,"30°
:Text(57,0,"60°
:Text(35,83,"□
:Line(2,‾3,8,‾3
:Line(8,‾3,8,6.4
:Line(8,6.4,2,‾3
:Text(23,88,"X
:Text(42,70,"X
:Text(20,56,"X√(2
:Text(7,71,"45°
:Text(41,49,"45°
:Pause 
:ClrDraw
:ZStandard
:ZSquare
:Line(‾6,‾4.5,6,‾4.5
:Line(6,‾4.5,6,4.5
:Line(6,4.5,‾6,‾4.5
:Line(5,‾4.5,5,‾3.5
:Line(5,‾3.5,6,‾3.5
:Text(30,70,"3X
:Text(50,45,"4X
:Text(20,45,"5X
:Pause 
:ClrDraw
:Goto ST
:End
:
:
:
:
:
:
:If K=82
:Then
:ClrDraw
:
:
:Text(4,3,"sin(-A) =-sin(A)
:Text(10,3,"-sin(A) =sin(A+π)
:Text(16,3,"sin(A) =cos(A-1/2π)
:Text(22,3,"
:Text(28,3,"cos(-A) =cos(A)
:Text(34,3,"-cos(A) =cos(A+π)
:Text(40,3,"cos(A) =sin(A+1/2π)
:Text(46,3,"
:Text(52,3,"tan(A) =sin(A)/cos(A)
:
:Pause 
:ClrDraw
:
:Text(4,3,"sin²(A) +cos²(A)=1
:Text(10,3,"
:Text(16,3,"sin(A) =√(1-cos²(A))
:Text(22,3,"cos(A) =√(1-sin²(A))
:Horizontal 32
:Text(31,3,"sin(A)=sin(B) geeft:
:Text(37,3,"A= B+k2πvA=π-B+k2π
:Horizontal 18
:Text(45,3,"cos(A)=cos(B) geeft:
:Text(51,3,"A= B+k2πvA=-B+k2π
:Text(52,3,"
:Horizontal 4
:
:Pause 
:ClrDraw
:
:Text(4,3,"sin(2A) =2sin(A)*cos(A)
:Text(10,3,"cos(2A) =cos²(A)-sin²(A)
:Text(16,3,"cos(2A) =2cos²-1
:Text(22,3,"cos(2A) =1-2sin²(A)
:
:
:Pause 
:ClrDraw
:
:Goto ST
:End
:
:
:
:If K=45
:Then
:ClrDraw
:ZoomRcl
:ClrDraw
:ClrHome
:AxesOn
:FnOn 
:Stop
:End
:End
:If P=1
:Then
:Goto θ
:End
:If P=2
:Then
:Goto θ2
:End
:End
:Disp "42"
:
Generated by [url=http://sc.cemetech.net]SourceCoder[/url], © 2005-2013 [url=http://www.cemetech.net]Cemetech[/url][/quote]

Parse Another File

Complete! 6099 tokens rendered in 0.121924 seconds.

» Need help with TI-BASIC? Check out the book "Programming the TI-83+/84+" by Christopher Mitchell.
» Feel free to post specific code questions in the TI-BASIC subforum here at Cemetech.

[Switch to Mobile view]