- Removed extra End command on line 23, caused a SYNTAX error.
- Changed the space on line 20 to a '>', to show what the user selected. Nothing was there before, so the space character didn't show anything that the user selected. It doesn't take extra memory.
- Moved the second colon on line 40 to under Lbl 2 in the digital clock to improve speed.
- Changed lines 87-89 and put them in a For( loop.

**Note that the original program will need proper editing to be sent via TI-Connect CE.**

I just decided to do this, I like optimizing random programs. And wow, this (account deleted) guy has spammed the living crap out of that thread lol

]]>` ``2→A //height of the line 0→X //X-coor of the ball 0→Y //Y-coor of the ball -1→S //direction of the ball (left/right) .1→T //direction of the ball (up/down) Line(-15, A, -15, A-4 Repeat X=-16 Pt-Off(X, Y, 3 X+S→X Y+T→Y Pt-On(X,Ans,3 Line(-15, A, -15, A-4, 20 min(10, max(-6, A+sum(ΔList(getKey={34, 25→A //got the idea for this from the wiki's movement page, makes sure the line doesn't go off the screen Line(-15, A, -15, A-4 If X=15 or X=-15 and Y≤A and Y≥A-4 -S→S If Y=10 or Y=-10 -T→T End Text(10, 10, "YOU LOSE! :(`

The user sees numbers 0-9 (based on the keypad) on the graph screen. The user has to press those numbers very quickly. It starts slow and gets faster over time. If the user misses a number for too long they lose. If they hit the key quickly enough, the number vanishes from the graph screen and the user continues to wait. If they hit it quickly enough, their score increments by one. Sort of those bash-it games from arcades. Two main lists are used. One to see if a value is going up or not. The second list for the values increasing. How can I increase all the values in the list at once without using a slow loop? Will seq( work?

EXAMPLE:

` ``L₁ = {0,1,0,0,1,0,0,1,1} L₂ = {0,3,0,0,4,0,0,6,8} Only elements 2, 5, 8, and 9 increase if those same elements in the first list are 1`

In the past used a ti89 for automate electronics calculation using BASIC language to avoid repetition.

Now got a brand TI cxii-T Nspire, since the ti89 is under repair and would like to learn some BASIC related to Nspire to re-create programs for automated calcs to ease at work and jobs.

Would like to learn more of BASIC Nspire for CXII-T since it differs a lot from the ti89 in OS and programming. Manual is good but doesn't cover all scenarios.

Best Regards,

]]>Does anybody know how to disassemble (mechanically) the CX II ?

My daughter let some undefined french fries sauce get in between the keypad and the housing.

I tried to teardown the CX II (of course brand new) - without any luck. I removed 4 screws and one screw for the battery compartment and removed the battery itself.

then I tried to set apart the white housing from the black backplate. Without any luck. Do I need some additional information? Or just raw brute force? I tried to open up the left side and tried to open the gap between white and black …

Kind regards

Peter

` ``AxesOff PlotsOff GridOff FnOff 0→Xscl 0→Yscl Lbl 0 Menu(" ACT Ver. 7a R² "," DIST./PYTHAG.",A," QUAD FORMULA",B," SYSTEM OF EQ.",C," TRIANGLES",D," NUMBER THEORY",I," FORMULAS/GRFS",L," QUIT (10/01)",Z) Lbl A Menu(" OPTIONS "," DIST./SLOPE",1," PYTHAG.",2," MAIN MENU",0) Lbl 1:ClrHome Disp "(x₁,y₁) (x₂,y₂)","" Input "x₁ = ",A Input "y₁ = ",B Input "x₂ = ",C Input "y₂ = ",D 2→dim(L₁) (A+C)/2→L₁(1) (B+D)/2→L₁(2) √((A-C)²+(B-D)²)→E ClrHome:Disp "DIST.=" Output(1,8,"√("):Output(1,9,E²) Disp E Output(2,3,"OR") If C-A=0:Then Disp "",A:Output(4,1,"EQN. IS X = ") Else Disp "",L₁Frac Output(3,1,"MIDPT=") (D-B)/(C-A)→M M*A+B→Y Output(5,1,"EQUATION: Y=MX+B") Disp "",MFrac,YFrac Output(6,3,"M =") Output(7,3,"B =") End Pause :Goto A Lbl 2 Menu(" WHAT IS KNOWN? "," LEG-HYP",3," 2 LEGS",4) Lbl 3:ClrHome Input "LEG = ",B Input "HYP = ",A If (A²-B²)<0:Then Disp "NOT A TRIANGLE" Pause :Goto A End Output(4,1,"HYP = √(") Output(4,9,A²-B²) Disp "","","",√(A²-B²) Output(6,1,"OR") Pause :Goto A Lbl 4:ClrHome Input "LEG 1 = ",B Input "LEG 2 = ",C Output(4,1,"HYP = √(") Output(4,9,B²+C²) Disp "","","",√(B²+C²) Output(6,1,"OR") Pause :Goto A Lbl B:ClrHome FnOff Disp "AX²+BX+C = 0" Lbl G:Input "A (≠0) ",A If A=0:Goto G Input "B = ",B Input "C = ",C B²-4AC→D B/(2A)→L₆(1) AL₆(1)²+BL₆(1)+C→L₆(2) ClrDraw Text(1,1,"DISCRIMINANT =") Text(1,55,D) Text(8,1,"ZEROS:") Text(15,1,"---------------------------------------") If D>0:Goto J If D<0:Goto H Text(24,1,"DOUBLE ZERO =") Text(24,50,B/(2A)) Text(57,67,"<ENTER>") Text(47,1,"VERTEX = (",L₆(1),", ",L₆(2),")") Pause :Goto 0 Lbl J (B+√(D))/(2A)→X (B-√(D))/(2A)→Y Text(24,1,"REAL ZEROS =") Text(24,47,X) Text(31,47,Y) Text(57,67,"<ENTER>") Text(47,1,"VERTEX = (",L₆(1),", ",L₆(2),")") Pause :Goto 0 Lbl H B/(2A)→L₅(1) √(D)/(2A)→L₅(2) round(L₅,5)→L₅ Text(24,1,"COMPLEX ZEROS") Text(31,10,L₅(1)) Text(31,39,"+") Text(31,44,L₅(2)) Text(31,72,"") Text(38,10,L₅(1)) Text(38,39,"-") Text(38,44,L₅(2)) Text(38,72,"") Text(57,67,"<ENTER>") Text(47,1,"VERTEX = (",L₆(1),", ",L₆(2),")") Pause :Goto 0 Lbl C:ClrHome Input "WHAT SIZE? ",N Lbl N:ClrHome {N,N}→dim([A]):{N,1}→dim([B]) For(θ,1,N) ClrHome Output(1,1,"EQN:"):Output(1,6,θ) Disp "" If N=2:Disp "AX + BY = C" If N=3:Disp "AX + BY + CZ = D" Input "A = ",X X→[A](θ,1) Input "B = ",X X→[A](θ,2) If N=2:Then Input "C = ",X X→[B](θ,1) End If N=3:Then Input "C = ",X X→[A](θ,3) Input "D = ",X X→[B](θ,1) End End If det([A])=0 Then:ClrHome:Disp "NO SOLUTION" Disp "DETERMINANT = 0" Pause :Goto 0 End ClrHome If [B](1,1)*[A](2,1)-[B](2,1)*[A](1,1)=0 Then:Disp "INF. SOLUTIONS" Pause :Goto 0 End [A][B]→[C]:N→dim(L₁) For(θ,1,N) [C](θ,1)→L₁(θ):[C](θ,1)→L₁(θ) End If N=2:Then Disp "(X,Y) =" Disp L₁ Pause L₁Frac:End If N=3:Then Disp "(X,Y,Z) = " Disp L₁ Pause L₁Frac:End Goto 0 Lbl D:ClrHome:Degree Menu(" GIVEN INFO "," ASA",5," AAS",6," SAS",7," SSS",8," MAIN MENU",0) Lbl 5:ClrHome Input "ANGLE = ",A Input "SIDE = ",E Input "ANGLE = ",C 180-A-C→B:Esin(A)/sin(B)→D Esin(C)/sin(B)→F:Goto E Lbl 6:ClrHome Input "ANGLE = ",A Input "ANGLE = ",B Input "SIDE = ",D 180-A-B→C:Dsin(B)/sin(A)→E Dsin(C)/sin(A)→F:Goto E Lbl 7:ClrHome Input "SIDE = ",E Input "ANGLE = ",A Input "SIDE = ",F (E²+F²-2EFcos(A)→Q If Q≤0:Goto U √(Q→D:((E²-D²-F²)/(2DF))→Q If abs(Q)>1:Goto U cos(Q)→B:180-A-B→C:Goto E Lbl 8:ClrHome Input "SIDE = ",D Input "SIDE = ",E Input "SIDE = ",F If D+E≤F or E+F≤D or D+F≤E:Goto U cos((D²-E²-F²)/(2EF))→A cos((E²-D²-F²)/(2DF))→B 180-A-B→C:Goto E Lbl U:ClrHome Disp "NO TRIANGLE" Pause :Goto D Lbl Y:ClrHome 90→C:√((F²-D²)→E 90-A→B:Goto 6 Lbl 9:ClrHome sin(Fsin(A)/D)→C 180-A-C→B Dsin(B)/sin(A)→E:Goto 6 Lbl E:AxesOff:FnOff :ClrDraw Text(5,5,"ANGLE"):Text(5,60,"SIDE") Text(12,5,"-----"):Text(12,60,"----") Text(18,5,"1= ",A) Text(18,60,"1= ",D) Text(25,5,"2= ",B) Text(25,60,"2= ",E) Text(32,5,"3= ",C) Text(32,60,"3= ",F) .5EFsin(A)→Z Text(45,5,"AREA =",Z) Text(55,5,"HIT <ENTER> FOR MENU") Pause :AxesOn :ClrDraw FnOn :Goto D Lbl I:Menu(" NUMBER THEORY "," FACTORIAL",S," LCM / GCD",T," PERM./COMB.",V," PRIME FACTORS",W," MAIN MENU",0) Lbl S:ClrHome Disp "FACTORIAL N!" Disp "----------------" Disp "ENTER N" Input "(N<70) -> ",N Disp "",N! Output(6,1,N) Output(6,3,"!=") Pause :Goto I Lbl T:ClrHome Disp "LCM / GCD" Disp "----------------" Input "1ST NUM -> ",N Input "2ND NUM -> ",M lcm(N,M)→A:gcd(N,M)→B Disp "",A,B:Output(6,1,"LCM =") Output(7,1,"GCD ="):Pause :Goto I Lbl V:ClrHome Disp "PERM./COMB." Input "N = ",N Input "R = ",R N nPr R→A:N nCr R→B Disp "",A,"",B Output(4,1,"nPr =") Output(6,1,"nCr =") Pause :Goto I Lbl W:ClrHome 20→dim(⌊PR):Fill(0,⌊PR) Disp "PRIME FACTORS:" Disp "----------------" 1→I:2→Q Input "NUMBER ",N ClrHome Disp "PRIME FACTORS OF","" Disp "----------------" Output(2,3,N):Output(2,10,"ARE:") Lbl M If fPart(N/Q)=0:Then Q→⌊PR(I):I+1→I:N/Q→N Else:Q+1→Q:End If Q≤N:Goto M If N≠1:N→⌊PR(I) For(J,1,20) If ⌊PR(J)=0:Goto X End Lbl X:J-1→dim(⌊PR) If dim(⌊PR)=1:Disp "PRIME" Disp ⌊PR:Pause :Goto I Lbl L:AxesOff:FnOff Menu(" FORMULAS "," ALG/GEO/SEQ.",P," CONICS",Q," TRIG./TRI.",R," CONVERSIONS",θ," PARENT GRAPHS",O," MAIN MENU",0) Lbl P:ClrDraw Text(1,1,"SLOPE: M = (y₂-y₁)/(x₂-x₁)") Text(8,1,"MIDPT: (x₁+x₂)/2, (y₁+y₂)/2") Text(15,1,"LINES: Y = MX + B AX + BY = C") Text(22,25,"Y - y₁ = M(X - x₁)") Text(29,1,"QUAD: Y = AX²+BX+C") Text(36,25,"Y = A(X-H)²+K") Text(42,1,"FOR:X=[B+/-√(B²-4AC)]/2A") Text(49,1,"VERTEX: X=B/2A F(B/2A)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"D = RT (AB)²=A²B²") Text(10,1,"X²X=X (X²)=X") Text(8,25,"5"):Text(8,63,"6") Text(19,1,"I=PRT A=Pe") Text(28,1,"A=P(1+R/N)") Text(17,54,"RT"):Text(26,39,"NT") Text(35,1,"X =1/X 1/X = X") Text(42,1,"DOMAIN = ALL REALS EXCEPT:") Text(49,1,"1-DIVISION BY 0") Text(56,1,"2-EVEN RTS OF NEG.") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"SPECIAL FACTORS") Text(7,1,"--------------------------------") Text(13,1,"X²-(A+B)X+AB = (X-A)(X-B)") Text(20,1,"A²-B² = (A+B)(A-B)") Text(27,1,"A-B = (A-B)(A²+AB+B²)") Text(34,1,"A+B = (A+B)(A²-AB+B²)") Text(42,1,"A - B = (A²+B²)(A+B)(A-B)") Text(40,5,"4") Text(40,18,"4") Text(49,1,"A²+B² = NONE") Text(57,1,"A + B = NONE") Text(55,5,"4") Text(55,18,"4") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"IMAGINARY POWERS") Text(10,1,"=√(1) ²=1") Text(20,1,"= =1") Text(18,34,"4") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"ARITHMETIC SEQ./SERIES") Text(8,4,"A = A + (N-1)D") Text(11,8,"N") Text(17,4,"S = (N/2)[2A + (N-1)D]") Text(20,8,"N") Text(27,1,"GEOMETRIC SEQ./SERIES") Text(35,4,"A = AR") Text(37,8,"N") Text(33,26,"N-1") Text(43,4,"S = A(1 - R )/(1 - R)") Text(41,39,"N-1") Text(45,8,"N") Text(52,4,"S = A/(1 - R) 1<R<1") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"FACTORIAL") Text(9,1,"n! = n(n - 1)(n - 2) . . . (2)(1)") Text(20,1,"COMBINATION") Text(34,1," nCr = -------") Text(28,32,"n!") Text(40,22,"r!(n-r)!") Text(20,51,"PERMUTATION") Text(34,51," nPr = ------") Text(28,80,"n!") Text(40,72,"(n - r)!") Text(48,10,"NO ORDER") Text(48,65,"ORDER") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"PASCAL'S") Text(1,60,"TRIANGLE") Text(1,45,"1") Text(7,41,"1 1") Text(13,37,"1 2 1") Text(19,33,"1 3 3 1") Text(25,29,"1 4 6 4 1") Text(31,25,"1 5 10 10 5 1") Text(37,21,"1 6 15 20 15 6 1") Text(43,17,"1 7 21 35 35 21 7 1") Text(49,13,"1 8 28 56 70 56 28 8 1") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"GEOMETRY FORMULAS - PG. 1") Text(9,1,"CIRCLE: A = πR²") Text(16,1,"CIRCLE: C = 2πR = πD") Text(23,1,"SPHERE: V = (4/3)πR") Text(30,1,"SPHERE: SA = 4πR²") Text(37,1,"CYLINDER: V = πR²H") Text(44,1,"CYLINDER: SA = 2πRH + 2πR²") Text(51,1,"CONE: V = (1/3)πR²H") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"GEOMETRY FORMULAS - PG. 2") Text(9,1,"RECT.: A = L*W P = 2L + 2W") Text(16,1,"SQR.: A = S² P = 4S") Text(23,1,"TRAP.: A = 0.5H(B1 + B2)") Text(30,1,"RHOMBUS: A = B*H = B²sin(θ)") Text(37,1,"PARALLELOGRAM: A = B*H") Text(44,35,"A = S1*S2*sin(θ)") Text(57,67,"<ENTER>") Pause :Goto L Lbl O:AxesOn Thick 4.7→Xmin:4.7→Xmax:1→Xscl 3.1→Ymin:3.1→Ymax:1→Yscl DispGraph Text(50,8,"Y = X") DrawF X Text(5,10,"Y = X²") DrawF X² Text(18,62,"Y = log(X)") DrawF log(X) Text(57,67,"<ENTER>") Pause :ClrDraw DispGraph Text(5,5,"Y = abs(X)") DrawF abs(X) Text(19,72,"Y = 1/X") Text(37,1,"Y = 1/X") DrawF 1/X Text(57,13,"Y = X") DrawF X Text(57,67,"<ENTER>") Pause :ClrDraw 1→Ymin DispGraph Text(1,25,"Y = ^(X)") DrawF ^(X) Text(1,68,"Y = 2^X") DrawF 2^X Text(33,62,"Y = ^(X)") DrawF ^(X) Text(57,67,"<ENTER>") Pause :ClrDraw 3.1→Ymin:Dot-Thick Text(1,12,"Y = [X]") DrawF int(X) Text(9,6,"GREATEST") Text(16,6,"INTEGER") Text(23,6,"FUNCTION") Text(34,49,"CLOSED - LEFT") Text(41,52,"OPEN - RIGHT") Text(57,67,"<ENTER>") Pause :ClrDraw Radian 0→Xmin:2π→Xmax:π/2→Xscl 2→Ymin:2→Ymax:1→Yscl Text(23,85,"2π") Text(23,47,"π") Text(48,2,"AMPLITUDE = 1 PERIOD = 2π") Text(9,10,"Y = sin(X)") DrawF sin(X) Text(9,63,"Y = cos(X)") DrawF cos(X) Text(57,67,"<ENTER>") Pause :Degree:Thick AxesOff:Goto L Lbl Q:ClrDraw Text(1,10,"AX² + BY² + CX + DY + E = 0") Text(7,1,"-------------------------------" Text(13,1,"If A=B ...........................") Text(13,62," CIRCLE") Text(20,1,"If A≠B, = SIGNS ...............") Text(20,62," ELLIPSE") Text(27,1,"If A, B DIFFERENT SIGNS .........") Text(34,58,"HYPERBOLA") Text(41,1,"If 1 SQR. TERM ...................") Text(41,60," PARABOLA") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"CIRCLE") Text(1,33,"(X-H)²+(Y-K)²=R²") Text(8,1,"ELLIPSE - HORIZONTAL") Text(15,1,"(X-H)² (Y-K)²") Text(21,1,"----- + ----- = 1 (A > B)") Text(27,9,"A²"):Text(27,37,"B²") Text(34,1,"VERTICAL") Text(34,57,"A² = B² + C²") Text(41,1,"(X-H)² (Y-K)²") Text(47,1,"----- + ----- = 1 (A > B)") Text(53,9,"B²") Text(53,37,"A²") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"PARABOLA - VERTICAL") Text(7,1,"(X-H)² = 4A(Y-K) AT (H, K)") Text(13,7,"X² = 4AY AT (0, 0)") Text(19,7,"DIRECTRIX: Y = A") Text(25,7,"FOCUS = (0,A)") Text(32,1,"PARABOLA - HORIZONTAL") Text(38,1,"(Y-K)² = 4A(X-H) AT (H, K)") Text(44,7,"Y² = 4AX AT (0, 0)") Text(50,7,"DIRECTRIX: X = A") Text(56,7,"FOCUS = (A, 0)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"HYPERBOLA - HORIZONTAL") Text(8,1,"(X-H)² (Y-K)²") Text(14,1,"----- - ----- = 1") Text(20,9,"A²"):Text(20,37,"B²") Text(30,1,"VERTICAL") Text(30,58,"C² = A² + B²") Text(37,1,"(Y-K)² (X-H)²") Text(43,1,"----- - ----- = 1") Text(49,9,"A²") Text(49,37,"B²") Text(57,67,"<ENTER>") Pause :Goto L Lbl R:ClrDraw 0→Xmin:1→Xmax:0→Xscl 0→Ymin:1→Ymax:0→Yscl Text(1,1,"SPECIAL RT. TRIANGLES") Text(8,10,"30-60-90 45-45-90") Text(15,10,"1-√(3)-2 1-1-√(2)") Line(.05,.25,.45,.25) Line(.45,.25,.45,.55) Line(.45,.55,.05,.25) Line(.40,.25,.40,.30) Line(.40,.30,.45,.30) Text(48,18,"√(3)") Text(35,46,"1") Text(27,24,"2") Line(.65,.25,.9,.25) Line(.9,.25,.9,.6) Line(.9,.6,.65,.25) Line(.86,.25,.86,.30) Line(.86,.30,.9,.30) Text(48,73,"1") Text(33,88,"1") Text(28,62,"√(2)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"MORE RIGHT TRIANGLES") Text(10,10,"3-4-5") Text(10,50,"5-12-13") Text(17,10,"7-24-25") Text(17,50,"8-15-17") Text(24,10,"9-40-41") Text(24,50,"11-60-61") Text(31,10,"12-35-37") Text(31,50,"13-84-85") Text(38,10,"16-63-65") Text(38,50,"20-21-29") Text(48,23,"+ MULTIPLES") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"CIRCULAR DEFINITIONS:") Text(15,1,"SIN(X) = Y / R") Text(23,1,"COS(X) = X / R") Text(31,1,"TAN(X) = Y / X") Text(15,50,"CSC(X) = R / Y") Text(23,50,"SEC(X) = R / X") Text(31,50,"COT(X) = X / Y") Text(57,67,"<ENTER>") Pause :ClrDraw Text(2,1,"SIN(X) = OPP/HYP") Text(2,68,"CHIEF") Text(9,1,"COS(X) = ADJ/HYP SOHCAHTOA") Text(16,1,"TAN(X) = OPP/ADJ") Text(23,1,"TAN(X) = SIN(X)/COS(X)") Text(30,1,"CSC(X) = 1/SIN(X)") Text(37,1,"SEC(X) = 1/COS(X)") Text(44,1,"COT(X) = COS(X)/SIN(X)") Text(51,1,"COT(X) = 1/TAN(X)") Text(57,67,"<ENTER>") Pause :AxesOn :ClrDraw 1→Xmin:1→Xmax:0→Xscl 1→Ymin:1→Ymax:0→Yscl Text(8,10,"SIN(X)") Text(15,10,"CSC(X)") Text(40,10,"TAN(X)") Text(47,10,"COT(X)") Text(40,60,"COS(X)") Text(47,60,"SEC(X)") Text(12,56,"ALL ARE +") Text(23,53,"I") Text(23,35,"II") Text(33,32,"III") Text(33,51,"IV") Text(57,67,"<ENTER>") Pause 0→Xmin:14.58064516→Xmax:0→Xscl 0→Ymin:10→Ymax:0→Yscl Circle(0,0,8):Line(0,0,6.900961,4.0322581) Line(0,0,5.7391901,5.483871):Line(0,0,3.8778312,6.9354839) Text(2,4,"QUADRANT I") Text(2,46,"(cos(X),sin(X))") Text(42,39,"3O") Text(33,50,"(√(3)/2,1/2)" Text(25,25,"45") Text(22,41,"(√(2)/2,√(2)/2)") Text(19,14,"60") Text(12,29,"(1/2,√(3)/2)") Text(41,60,"60 = π/3") Text(48,60,"45 = π/4") Text(55,60,"30 = π/6") Text(55,22,"<ENTER>") Pause :ClrDraw 15.16129032→Xmin:15.16129032→Xmax:0→Xscl 10→Ymin:10→Ymax:0→Yscl:Circle(0,0,5) Line(0,5,0,5):Line(5,0,5,0) Text(23,70,"O"):Text(33,65,"(1,O)") Text(1,34,"9O = π/2"):Text(8,40,"(O,1)") Text(23,7,"18O = π"):Text(33,10,"(1,O)") Text(48,30,"27O = 3π/2") Text(55,38,"(O,1)") Text(57,67,"<ENTER>") Pause :ClrDraw:AxesOff Text(1,1,"DEG. - RAD.") Text(1,38,"(cos(X),sin(X))") Text(10,5,"30=π/6") Text(16,5,"45=π/4") Text(22,5,"60=π/3") Text(28,5,"90=π/2") Text(34,1,"120=2π/3") Text(40,1,"135=3π/4") Text(46,1,"150=5π/6") Text(52,1,"180=π") Text(10,38,"(√(3)/2,1/2)") Text(16,38,"(√(2)/2,√(2)/2)") Text(22,38,"(1/2,√(3)/2)") Text(28,38,"(0,1)") Text(34,38,"(1/2,√(3)/2)") Text(40,38,"(√(2)/2,√(2)/2)") Text(46,38,"(√(3)/2,1/2)") Text(52,38,"(1,0)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"DEG. - RAD.") Text(1,38,"(cos(X),sin(X))") Text(10,1,"210=7π/6") Text(16,1,"225=5π/4") Text(22,1,"240=4π/3") Text(28,1,"270=3π/2") Text(34,1,"300=5π/3") Text(40,1,"315=7π/4") Text(46,1,"330=11π/6") Text(52,1,"360=2π") Text(10,38,"(√(3)/2,1/2)") Text(16,36,"(√(2)/2,√(2)/2)") Text(22,38,"(1/2,√(3)/2)") Text(28,38,"(0,1)") Text(34,38,"(1/2,√(3)/2)") Text(40,38,"(√(2)/2,√(2)/2)") Text(46,42,"(√(3)/2,1/2)") Text(52,42,"(1,0)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"FUNC. PER. DOM. RNG.") Text(10,1,"SIN(X) 2π R 1 ≤ Y ≤ 1") Text(17,1,"COS(X) 2π R 1 ≤ Y ≤ 1") Text(24,1,"TAN(X) π * R") Text(33,5,"* = R EXCEPT ODD MULT.") Text(40,25,"OF π/2") Text(57,67,"<ENTER>") Pause :ClrDraw 1→Xmin:1→Xmax:0→Xscl 1→Ymin:1→Ymax:0→Yscl Text(1,1,"SIN²(X) + COS²(X) = 1") Text(8,1,"TAN²(X) + 1 = SEC²(X)") Text(15,1,"1 + COT²(X) = CSC²(X)") Text(25,1,"PYTHAGOREAN THEOREM") Text(33,7,"A² + B² = C²") Line(.1,.6,.6,.6) Line(.6,.6,.6,.1) Line(.6,.1,.1,.6) Line(.5,.6,.5,.5) Line(.5,.5,.6,.5) Text(38,78,"A") Text(52,60,"B") Text(34,56,"C") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"DOUBLE-ANGLE FORMULAS") Text(10,1,"SIN(2X) = 2SIN(X) COS(X)") Text(17,1,"COS(2X) = COS²(X) - SIN²(X)") Text(25,1,"COS(2X) = 2 COS²(X) - 1") Text(32,1,"COS(2X) = 1 - 2 SIN²(X)") Text(39,40,"2TAN(X)") Text(45,1,"TAN(2X) =") Text(45,35,"--------") Text(51,35,"1-TAN²(X)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"HALF-ANGLE FORMULAS") Text(10,1,"SIN(X/2) = √((1-COS(X))/2)") Text(17,1,"COS(X/2) = √((1+COS(X))/2)") Text(30,1,"TAN(X/2) = ----------------") Text(25,38,"√((1-COS(X))/2)") Text(36,38,"√((1+COS(X))/2)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"SUM AND DIFFERENCE") Text(8,1,"sin(X + Y) =") Text(14,8,"sin(X)cos(Y) + cos(X)sin(Y)") Text(20,1,"sin(X - Y) =") Text(26,8,"sin(X)cos(Y) - cos(X)sin(Y)") Text(32,1,"cos(X + Y) =") Text(38,8,"cos(X)cos(Y) - sin(X)sin(Y)") Text(44,1,"cos(X - Y) =") Text(50,8,"cos(X)cos(Y) + sin(X)sin(Y)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"SUM AND DIFFERENCE") Text(9,1,"tan(X + Y) =") Text(16,8,"tan(X) + tan(Y)") Text(22,8,"-------------") Text(28,8,"1 - tan(X)tan(Y)") Text(38,1,"tan(X - Y) =") Text(45,8,"tan(X) - tan(Y)") Text(51,8,"-------------") Text(57,8,"1 + tan(X)tan(Y)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"LAW OF SINES") Text(9,1," sin(A) sin(B) sin(C)") Text(15,1," ----- = ----- = -----") Text(20,13,"a b c") Text(29,1,"LAW OF COSINES") Text(36,1," c² = a² + b² - 2ab*cos(C)") Text(43,1," b² = a² + c² - 2ac*cos(B)") Text(50,1," a² = b² + c² - 2bc*cos(A)") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"TRIANGLE AREAS") Text(10,1,"A = (1/2)BH" Text(17,1,"A = (1/2)ab*sin(C)" Text(24,33,"a²*sin(B)*sin(C)") Text(30,1,"A = (1/2)---------------") Text(36,50,"sin(A)") Text(43,1,"HERON'S FORMULA") Text(50,5,"A = √(S(S-a)(S-b)(S-c))") Text(57,5,"S = (a + b + c)/2") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"INVERSE TRIG. FUNCTIONS") Text(10,1,"FUNC.") Text(10,25,"DEF. ANGLES") Text(10,75,"QUAD.") Text(19,1,"SIN") Text(19,20,"π/2 ≤ θ ≤ π/2") Text(19,78,"4, 1") Text(27,1,"TAN") Text(27,20,"π/2 ≤ θ ≤ π/2") Text(27,78,"4, 1") Text(35,1,"COS") Text(35,25,"0 ≤ θ ≤ π") Text(35,78,"1, 2") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"POLAR COORDINATES") Text(10,1,"X = R cos(θ)") Text(10,53,"Y = R sin(θ)") Text(20,1,"R = √(X² + Y²)") Text(20,53,"R² = X² + Y²") Text(27,1,"θ = tan(Y/X)") Text(36,1,"COMPLEX FORM = A + B") Text(43,1,"POLAR FORM = R CIS θ") Text(50,27,"= R(cos(θ) + sin(θ))") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"POLAR GRAPHS") Text(10,1,"R = A + B sin(θ), R = A + B cos(θ)") Text(20,1,"!A! = !B! CARDIOID") Text(27,1,"!A! > !B! LIMACON W/O LOOP") Text(34,1,"!A! < !B! LIMACON W/LOOP") Text(42,1,"R² = A sin(2θ), R² = A cos(2θ)") Text(49,30,"LEMNISCATE") Text(57,67,"<ENTER>") Pause :Goto L Lbl θ ClrDraw Text(1,1,"LENGTH") Text(10,1,"1 FT = 12 IN") Text(16,1,"1 YD = 3 FT") Text(22,1,"1 MI = 1760 YD") Text(28,1,"1 MI = 5280 FT") Text(34,1,"1 N.MI = 1.15 MI") Text(40,1,"1 LEAGUE = 3 MI") Text(46,1,"1 FATHOM = 6 FT") Text(52,1,"1 ROD = 16.5 FT") Text(10,49,"1 IN = 2.54 CM") Text(16,49,"1 M = 39.37 IN") Text(22,53,"1 KM = .62 MI") Text(28,51,"1 MI = 1.58 KM") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"AREA - PG. 1") Text(10,1,"1 SQ FT = 144 SQ IN") Text(17,1,"1 SQ YD = 9 SQ FT") Text(24,1,"1 ACRE = 4840 SQ YD") Text(31,1,"1 ACRE = 43,560 SQ FT") Text(38,1,"1 SQ MI = 27,878,400 SQ FT") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"AREA - PG. 2") Text(10,1,"1 SQ IN = 6.4516 SQ CM") Text(17,1,"1 SQ METER = 10,000 SQ CM") Text(24,1,"1 SQ METER = 1.196 SQ YD") Text(31,1,"1 SQ YD = .836 SQ METER") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"VOLUME - PG. 1") Text(10,1,"1 T = 3 t") Text(17,1,"1 CUP = 16 T") Text(24,1,"1 PT = 2 CUP") Text(31,1,"1 QT = 2 PT") Text(38,1,"1 GAL = 4 QT") Text(45,1,"1 QT = 0.946 LITER") Text(52,1,"1 LITER = 1000 ML") Text(10,34,"1 BUSHEL = 4 PECKS") Text(17,46,"1 PECK = 8 QTS") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"VOLUME - PG. 2") Text(10,1,"1 CU FT = 1728 CU IN") Text(17,1,"1 CU YD = 27 CU FT") Text(24,1,"1 CU YD = 46,656 CU IN") Text(31,1,"1 CU IN = 16.387 CU CM") Text(57,67,"<ENTER>") Pause :ClrDraw Text(1,1,"WEIGHT") Text(10,1,"1 OZ = 28.35 GM") Text(17,1,"1 LB = 16 OZ") Text(24,1,"1 TON = 2000 LB") Text(31,1,"1 METRIC TON = 2200 LB") Text(38,1,"1 KG = 2.2 LB") Text(45,1,"1 LB = .45 KG") Text(52,1,"1 LB = 453.6 GM") Pause :ClrDraw Text(1,1,"TEMPERATURE") Text(10,1,"C = (5/9)(F - 32)") Text(17,1,"F = (9/5)C + 32") Text(26,1,"KELVIN = C + 273") Text(57,67,"<ENTER>") Pause :ClrDraw Goto L Lbl Z ClrHome AxesOn Output(1,1,"CREATED BY RYAN MCCLAIN **2003** CLASS OF *2006* P.V.H.S")`

]]>
This comes with both a timer and a high score feature.

You can move the rows and columns with the arrow keys, and you can move the pointers on the sides of the board with mode, alpha, XTθn, and stat

You can copy and paste this into sourcecoder to try it out if you like.

` ``ClrHome "ABCDEFGHIJKLMNOPQRSTUVWXY->Str1 Ans->Str2 randIntNoRep(1,25->L1 sub(Str1,Ans(1),1 For(N,2,25 Ans+sub(Str1,L1(N),1 If not(remainder(N,5 Output(2+N/5,4,sub(Ans,N-4,5 End Ans->Str1 4->A Ans->B DelVar TDelVar KSetUpEditor LOOP UnArchive |LLOOP If not(dim(|LLOOP {0->|LLOOP "* Output(3,3,Ans Output(2,4,Ans Output(3,9,Ans Output(8,4,Ans Output(2,18,"Time: Output(7,18,"High: timeCnv(sum(|LLOOP Output(8,18,"n/a If sum(Ans Output(8,18,toString(Ans(3))+"m"+toString(Ans(4))+"s Repeat K=45 or Str1=Str2 Repeat Ans If T Then timeCnv(checkTmr(T Output(3,18,toString(Ans(3))+"m"+toString(Ans(4))+"s End getKey End Ans->K If sum(Ans={22,31,32,33 Then If K=22 or K=32 Then Output(A-1,3," Output(A-1,9," A+(K=32)-(K=22->A Ans+5(Ans=3)-5(Ans=9->A Output(Ans-1,3,"* Output(Ans-1,9,"* Else If K=31 or K=33 Then Output(2,B," Output(8,B," B+(K=33)-(K=31->B Ans+5(Ans=3)-5(Ans=9->B Output(2,Ans,"* Output(8,Ans,"* End End Else If K=24 or K=26 Then If not(T startTmr->T sub(Str1,5A-15-3(K=24),1+3(K=24))+sub(Str1,5A-19,4-3(K=24 Output(A-1,4,Ans If A>4 sub(Str1,1,5A-20)+Ans If A<8 Ans+sub(Str1,5A-14,26-(5A-14 Ans->Str1 Else If K=25 or K=34 Then If not(T startTmr->T sub(Str1,B+2+15(K=34),1)+sub(Str1,B-2,4)+sub(Str1,B+7-10(K=34),1)+sub(Str1,B+3,4)+sub(Str1,B+12-10(K=34),1)+sub(Str1,B+8,4)+sub(Str1,B+17-10(K=34),1)+sub(Str1,B+13,4)+sub(Str1,B-3+15(K=34),1 If B>4 sub(Str1,1,B-4)+Ans If B<8 Ans+sub(Str1,B+18,26-(B+18 Ans->Str1 For(I,0,4 Output(3+I,B,sub(Str1,5I+B-3,1 End End End End End If Str1=Str2 Then checkTmr(T If Ans<sum(|LLOOP) or not(sum(|LLOOP Then {Ans->|LLOOP timeCnv(sum(Ans Output(8,18,toString(Ans(3))+"m"+toString(Ans(4))+"s End Output(5,16,"Congrats! Repeat getKey End End Archive |LLOOP ClrHome`

* This is relating to just feedback, not troubleshooting, etc ]]>

Group Extraction is complete. List Management is in progress. Showing calculator information is complete. File Management with 50 lines/sec is complete.

1.) Should I use pt-on( or pxl-on( for the actual snake. I've experimented with the two a bit, but I figured I'd ask anyway.

2.) How would I have the snake move? Let's say for example I used pt-on(. I have a hunch it'd be "pt-on(X,Y,[insert whatever I used here, probably 2 or 1]" but I'm not positive.

3.) I'm planning on using pxl-test( to make the border work, is there a way to make a whole stretch of pixels instead of just 1?

4.) How should I make the RNG placement of the apples? Could I use some randInt( trickery or is that not usable on the graph screen?

That's all I can think of at the moment, if I think of any more, I'll put another post on here.

]]>Here is the program:

` ``[Input A Input B Input C For(D,1,C,1): Disp randInt(A,B) End 1->F While F>0: Lbl K Disp "ANOTHER NUMBER? (0 FOR Y", "1 FOR N)" Input E If E=1: 1->F prgmRANDDEF Goto K End If E/=1: 0->F End End`

The program works fine up until the lines after label K, which runs the code endlessly without any other way to escape besides quitting the program and not ending it smoothly like it had previously done and how I had intended.

prgmRANDDEF

` ``Input Z Input Y Input X For(L,1,X,1) Disp randInt(Z,Y) End`

` ``(2[A])(1,1)`

will result in a syntax error. I was primarily trying to use this within the graphing part of the calculator by describing a function of ([A]

For a simple example, take the second ODE (1)

\begin{align} y''+5y'+7y=0 ~ \wedge ~ y(0)=5 ~ \wedge ~ y'(0)=7 \end{align}

(2) \begin{align} \implies y_c=c_1e^{4t}+c_2e^{8t} \end{align}

Once I solve the system yielded by the initial conditions for $c_1 \wedge c_2$, I can only get the output as conjunction.

Please see the images below on flickr

/photos/186829666@N04/49497274396/in/dateposted-public/

/photos/186829666@N04/49496869313/in/dateposted-public/

To no avail, I have tried indexing {[1]} the result and converting the expression into a list and then indexing {exp▶list(…,.)[1]}.

p.s. **I'm aware of the deSolve() function**, but this is a matter that is troubling beyond the domain of DEs…plus, it's bugging me.

Func

Local

solve(q=(0.5+((q^(2))/((h+p)^(2)*l^(2)*2*g)))^(((3)/(2)))*c*((2)/(3))*√(((2)/(3))*g)*l,q)

Return q

EndFunc

the error I get when running it is “Too many arguments” but I’m inputting 5 numbers separated by comas, in their respective slot

imgurdotcom/a/YyuGanC

]]>This code could be used to create and store a password:

` ``Input("New Password: ",A A->rand rand->B`

In which A would be a password, and B would be the randomized number based on it.

So the password 1234 would produce .0219931723, which could then be stored somewhere. This way, nobody can just read through variables to find the password.

Using this method, you could check to see if the password is correct with the code:

` ``Input("Enter Password: ",A If A=B "Yay stuff happens If A\=\B //Sorry, that's the not-equal sign "Sad things happen`

I've seen a similar thread related to my problem, https://www.dell.com/community/Monitors/Dell-P2213-monitor-not-working-via-displayport/td-p/5111285

but does not solve my problem. I did see however on the bottom that VGA seems to work with this monitor. But I do not own such a cable (nor I have the money for it). How can I fix this?

I've added this same thread on the Dell website, to increase chances of help

]]>I have some experience in HTML, CSS, PHP, and databases. I always found the GDC very interesting to use, especially for purposes outside my Maths class. I installed games like PacMan and Flappy Bird from TI84CalcWiz. Afterwards some people heard about it, and I was blown with questions 'How did you do that?' and 'Can you that on my calculator?!'. So I did, only to do it again later, after everybody had to reset their calculators for exams. But now I would like to learn how to make my own games, or perhaps programs that could come useful in Econometrics and Physics, or Chemistry.

Once again, thanks for having me here! SO cool!

]]>I own a Ti-84 Plus CE and was wondering if there was a way to attach a raspberry pi to it through a mini usb and have the raspberry pi translate information from the web into a form the calculator would be able to read. This seems as if it would be difficult but possible.

I’m curious whether the calculator is able to communicate with the raspberry pi and actually search the internet. Does it have the ability to send and receive? Would I have to supply the Raspberry Pi with an external power supply?

I hope that this project will evolve over time and if I make any progress I’ll keep you all up to date.

Thanks,

Mr. Fotto ]]>

` ``ClrDraw ClrList ⌊Y ClrList ⌊X Degree BackgroundOn BLACK prgmPRGMPXL Xmax/2→X Ymin/2→Y {X}→⌊X {Y}→⌊Y 10→R 90→θ 0→G 0→Z While Z=0 and G≠45 getKey→G X+cos(θ)→X Y+sin(θ)→Y θ-15(G=26)+15(G=24)→θ TextColor(BLACK Text(0,0,θ," X:",X," Y:",Y," LENGTH:",dim(⌊X)," " Pt-On(X,Y,1,GREEN) TextColor(RED Text(15,0,"PROB",R augment({X},⌊X) augment({Y},⌊Y) TextColor(GREEN Text(15,0,"PROB",R If dim(⌊X)≥R+1 Then Pt-Off(⌊X(R+1),⌊Y(R+1)) Pt-On(⌊X(R),⌊Y(R)) seq(⌊X(X),X,1,R,1) seq(⌊Y(X),X,1,R,1) End End ClrDraw`

The problem code is

` ``augment({X},⌊X) augment({Y},⌊Y)`

please help

]]>` ``:Lbl Y :Clrhome :AxesOff :ZStandard :ZSquare :Vertical 4 :Vertical -4 :Line(-11,3.7,11,3.7 :Line(-11,-3.7,11,-3.7 :0→T :0→G :0→H :DelVar [A]{3,3→dim([A] :Repeat T=9 :0→A :Repeat A>7.1 and A<9.5 :.1getKey→A :If A=1.1 :Goto A :End :10fPart(A)-1→C :iPart(A)-6→D :If [A](D,C)=0 :Then :T+1→T :7.5C-15→X :-7D+14→Y :If fPart(T/2 :Then :Line(X-2,Y-2,X+2,Y+2,18 :Line(X-2,Y+2,X+2,Y-2,18 :→[A](D,C :Else :Circle(X, Y, 2, 15 :-1→[A](D, C :End :If T>4 :Then :If abs([A](1,C)+[A](2,C)+[A](3,C))=3 :Then :Line(X,8,X,-8,11 :1→H :End :If abs([A](D,1)+[A](D,2)+[A](D,3))=3 :Then :Line(-8.5,Y,8.5,Y,11 :1→H :End :If abs([A](2,2))=1 :Then :If abs([A](1,1)+[A](2,2)+[A](3,3))=3 :Then :Line(-7.5,7,7.5,-7,11 :1→H :End :If abs([A](3,1)+[A](2,2)+[A](1,3))=3 :Then :Line(-7.5,-7,7.5,7,11 :1→H :End :End :If H :Then :Text(-1,10,10,sub("XO",(fPart(T/2)=0)+1,1)+" WINS!!! :9→T :Pause :End :End :End :End :Lbl A :Menu("PLAY AGAIN?","YES",Y,"NO",N :Lbl N :ClrDraw :ClrHome :"`

I opted for a nicer-looking program (at least in my opinion), though it does result in it being larger ]]>

:"piecewise(Y1, X≤0, Y2,X>0)”→Y3

:DispGraph

works fine but I would like to replace the "X≤0" and "X>0" with string inputs. However this results in a data type error. Any suggestions?

]]>As for myself, I live on the island of Papua New Guinea, love playing music, reading, math. Programming is sorta new to me (started about 6-ish months ago). I know TI-Basic (mostly), and also a little JavaScript.

I hope that by being a member here I can refine my skills, through your advice, and maybe someday even be the one giving out advice =)>

Looking forward to working with you all! ]]>

Is there a way to do this on the TI-89 Titanium?

On the TI-84 it's a simple

` ``AxesOff`

Is there an equivalent command/code snippet to do the same thing? ]]>

Today, I would present you my project: a Ti-Basic text editor (name: Leviathan)

Actually, the project exist, the foundation is create and this require to add the most important: the Ti-Basic and Python (the news calculators use this) compatibility …

It's open-source and a uwp app, but if people can help me, manifest you ^^

(Sorry, I'm french, my english is not perfect <(＿ ＿)> but I work about this ^^)

I can add more informations about the project is your interest, else, no ^^

And if you don't understand, I can re-explain …

Thx for your attention

Fj ]]>

most RPGs have boring combat system where you hit enemy then get hit etc

i want to make a system where you need skill to dodge the attacks (something like undertale)

this system must be fast to make some boss fights hard

btw it needs to be TI basic (assembly fast but hard)

if you have any suggestions pls let me know

(btw i need multiple types of attacks to dodge to keep boss fights interresting) ]]>

The specific line of code is:

:Disp "Too "+sub("HighLow ",1+4(A>B),4

I’m using a Ti-84 Plus CE-T thats running 5.3.1 if that helps too

Thanks

]]>i just found my old ti 84 pro from school and tried to download some games for old time`s sake.

I downloaded the ti connect ce software but i realised after some time, that my calculator is too old to download any games/I cant even update the os via the ti connect. The program says the following about my calulator: ti 84 plus (3DD4) [Os 2.55.0]

is it even possible to download games with that OS?

any tips are greatly appreciated :)

note: as you probably noticed i dont really know anything about programming but I just thought i`d see if anyone can help me with this here :)

]]>:0→P

:For(X,1,1E6

:P+X^-2→P

:End

:\sqrt\(6P→P

:Disp P

Or, If you want one that displays pi while you generate it:

:0→P

:For(X,1,1E6

:P+X^-2→P

:\sqrt\(6P→θ

:Output(1,1,θ

:End

If any of you know JavaScript and want to "translate" it— Go ahead!

:D

` ``Prompt A Prompt B Prompt C Prompt D ((A+C)/2)=E ((B+D)/2)=F Disp E Disp F End`

So I wrote out this code for a midpoint formula and I was wondering how I could get the answer to display I don't think that

` ``((A+C)/2)=E`

Will work. Could any of you guys help me out? ]]>

You can see it in action at youtube address Su0MpwFSWFE

I'll fisrt explain quickly how to make a qr code:

Firstly, you choose with which text type (kanji, numeric, etc) you're gonna encode the data (here, it's always alphanumeric : numbers and uppercase letters).

Secondly, you encode text in binary following the step matching the text type.

Thirdly, you generate the error correction codewords (that's the difficult part), basically (if I understand well), you divide two equations in a galois field (one is generate with your data string, the other depends on your qr size and error correction level), there are 4 level of correction (L, M, Q and H) here I use level M.

Fourth, you put the error codewords after your binary data string from before (it's different for larger qr code, though)

Fifth, you place the string in your matrix (black square for 1 and white square for 0)

Sixth, you "mask" some squares (it mean changing it's color by the opposite), there are 8 masking pattern, you are supposed to choose the optimal one (here I use only the mask pattern 1)

Last, you add the format string, which correspond to your error correction level and your mask pattern

I divided the entire program in 6 progams.

Posts merged and formatted by a moderator

]]>Disp f ]]>