I'm bad at optimization. Kinematics anyone? http://tibasicdev.wikidot.com/forum/t-1090781/i-m-bad-at-optimization-kinematics-anyone Posts in the discussion thread "I'm bad at optimization. Kinematics anyone?" - So, im running out of room on my calculator, and so i want to optimize my programs for size. there are more to come. Tue, 21 Jul 2026 20:10:44 +0000 http://tibasicdev.wikidot.com/forum/t-1090781#post-4810810 Re: I'm bad at optimization. Kinematics anyone? http://tibasicdev.wikidot.com/forum/t-1090781/i-m-bad-at-optimization-kinematics-anyone#post-4810810 Wed, 04 Nov 2020 01:21:12 +0000 Trenly 1905506 C28C28, This post is 5 years old, and I really am not looking for an answer any more. I'm glad you're active and finding value from TI|BD, and I'd like to say welcome to the community. However, I highly suggest you read the Rules and Code of Conduct as I see you have posted on multiple old threads in the past few days.

]]> http://tibasicdev.wikidot.com/forum/t-1090781#post-4810780 Re: I'm bad at optimization. Kinematics anyone? http://tibasicdev.wikidot.com/forum/t-1090781/i-m-bad-at-optimization-kinematics-anyone#post-4810780 Tue, 03 Nov 2020 23:42:19 +0000 6979576 this can be optimized to

ClrHome Lbl theta Menu("Menu","Acceleration",1,"Initial V",2,"Final V",3,"Displacement",4,"Time",5,"Variables",VZ,"Exit",Q Lbl Q ClrHome Float Asm(prgmZDONE Return Lbl VZ ClrHome Output(1,1,"Variable Index Output(2,1,"V = F. Velocity Output(3,1,"U = I. Velocity Output(4,1,"T = Time Output(5,1,"A = Acceleration Output(6,1,"D = Displacement Pause Goto theta Lbl 1 ClrHome Menu("GIVEN:","V,U,T",Z,"D,U,T",B,"V,U,D",C,"Exit",Q Lbl Z Disp "V=U+AT Disp "(V-U)/T Prompt V,U,T (V-U)/T->A Goto A Lbl B Disp "D=UT+.5AT^^2 Disp "A=2(D-UT)/T^^2 Prompt D,U,T 2(D-UT)/T^^2->A Goto A Lbl C Disp "V^^2=U^^2+2AD Disp "(V^^2-U^^2)/2D Prompt V,U,D (V^^2-U^^2)/(2D)->A Lbl A Disp A Pause Goto theta Lbl 2 ClrHome Menu("GIVEN:","V,A,T",D,"D,A,T",E,"V,A,D",F,"D,T,V",G,"Exit",Q Lbl D Disp "V-AT Prompt V,A,T V-AT->U Goto U Lbl E Disp "D-(.5AT^^2)/T Prompt D,A,T (D-(.5)(A)(T^^2))/T->U Goto U Lbl F Disp "sqrt(V^^2-2AD) Prompt V,A,D sqrt(V^^2-2AD->U Goto U Lbl G Disp "(2D/T)-V Prompt D,T,V (2D/T)-V->U Lbl U Disp U Pause Goto theta Lbl 3 ClrHome Menu("GIVEN:","U,A,T",H,"U,A,D",I,"D,T,U",J,"Exit",Q Lbl H Disp "U+AT Prompt U,A,T U+AT->V Goto V Lbl I Disp "sqrt((U^^2+2AD) Prompt U,A,D sqrt(U^^2-2AD)->V Goto V Lbl J Disp "(2D/T)-U Prompt D,T,U (2D/T)-U->V Lbl V Disp V Pause Goto theta Lbl 4 ClrHome Menu("GIVEN:","U,T,A",K,"U,V,A",L,"V,U,T",M,"Exit",Q Lbl K Disp "D=UT+.5AT^^2 Prompt U,T,A UT+.5A(T^^2->D Goto X Lbl L Disp "V^^2=U^^2+2AD Disp "(V^^2-U^^2)/2A Prompt U,V,A (V^^2-U^^2)/2A->D Goto X Lbl M Disp "D=.5(V+U)T Prompt V,U,T .5T(V+U->D Lbl X Disp D Pause Goto theta Lbl 5 ClrHome Menu("GIVEN:","A,V,U",N,"A,D,U",O,"D,U,V",P,"Exit",Q Lbl N Disp "V=U+AT Disp "(V-U)/A Prompt A,V,U (V-U)/A->T Disp T Pause Goto theta Lbl O Disp "D=UT+.5AT^^2 Prompt A,D,U If D<0 Then (D*~1->D End If U!=0:Then Goto 8 End If U=0:Then Goto 6 End Lbl 8 A/2->A sqrt(U^^2-4(A)(D->Z (~U+Z)/2A->X (~U-Z)/2A->Y Disp X,Y Pause Goto theta Lbl P Disp "2D/(V+U) Prompt D,U,V 2D/(V+U->T Disp T Pause Goto theta Lbl 6 sqrt(2D/A->T Disp T Pause Goto theta Lbl Q ClrHome Return
]]> http://tibasicdev.wikidot.com/forum/t-1090781#post-2219965 I'm bad at optimization. Kinematics anyone? http://tibasicdev.wikidot.com/forum/t-1090781/i-m-bad-at-optimization-kinematics-anyone#post-2219965 Fri, 30 Jan 2015 02:06:27 +0000 Trenly 1905506 Can someone help optimize for size? This was decrypted by Cemetechs source coder. Please dont worry about any sub programs.

ClrHome Lbl theta Menu("Menu","Acceleration",1,"Initial V",2,"Final V",3,"Displacement",4,"Time",5,"Variables",VZ,"Exit",Q) Lbl Q ClrHome Float Asm(prgmZDONE Return Lbl VZ ClrHome Output(1,1,"Variable Index") Output(2,1,"V = F. Velocity" Output(3,1,"U = I. Velocity" Output(4,1,"T = Time" Output(5,1,"A = Acceleration" Output(6,1,"D = Displacement" Pause Goto theta Lbl 1 ClrHome Menu("GIVEN:","V,U,T",Z,"D,U,T",B,"V,U,D",C,"Exit",Q Lbl Z Disp "V=U+AT" Disp "(V-U)/T" Prompt V,U,T (V-U)/T->A Goto A Lbl B Disp "D=UT+.5AT^^2" Disp "A=2(D-UT)/T^^2" Prompt D,U,T 2(D-UT)/T^^2->A Goto A Lbl C Disp "V^^2=U^^2+2AD" Disp "(V^^2-U^^2)/2D" Prompt V,U,D (V^^2-U^^2)/(2D)->A Lbl A Disp A Pause Goto theta Lbl 2 ClrHome Menu("GIVEN:","V,A,T",D,"D,A,T",E,"V,A,D",F,"D,T,V",G,"Exit",Q Lbl D Disp "V-AT" Prompt V,A,T V-AT->U Goto U Lbl E Disp "D-(.5AT^^2)/T" Prompt D,A,T (D-(.5)(A)(T^^2))/T->U Goto U Lbl F Disp "sqrt(V^^2-2AD)" Prompt V,A,D sqrt(V^^2-2AD)->U Goto U Lbl G Disp "(2D/T)-V" Prompt D,T,V (2D/T)-V->U Lbl U Disp U Pause Goto theta Lbl 3 ClrHome Menu("GIVEN:","U,A,T",H,"U,A,D",I,"D,T,U",J,"Exit",Q Lbl H Disp "U+AT" Prompt U,A,T U+AT->V Goto V Lbl I Disp "sqrt((U^^2+2AD)" Prompt U,A,D sqrt(U^^2-2AD)->V Goto V Lbl J Disp "(2D/T)-U" Prompt D,T,U (2D/T)-U->V Lbl V Disp V Pause Goto theta Lbl 4 ClrHome Menu("GIVEN:","U,T,A",K,"U,V,A",L,"V,U,T",M,"Exit",Q Lbl K Disp "D=UT+.5AT^^2" Prompt U,T,A UT+(.5)(A)(T^^2)->D Goto X Lbl L Disp "V^^2=U^^2+2AD" Disp "(V^^2-U^^2)/2A" Prompt U,V,A (V^^2-U^^2)/(2A)->D Goto X Lbl M Disp "D=.5(V+U)T" Prompt V,U,T .5(V+U)T->D Lbl X Disp D Pause Goto theta Lbl 5 ClrHome Menu("GIVEN:","A,V,U",N,"A,D,U",O,"D,U,V",P,"Exit",Q Lbl N Disp "V=U+AT" Disp "(V-U)/A" Prompt A,V,U (V-U)/A->T Disp T Pause Goto theta Lbl O Disp "D=UT+.5AT^^2" Prompt A,D,U If D<0 Then (D*~1)->D End If U!=0:Then Goto 8 End If U=0:Then Goto 6 End Lbl 8 (A/2)->A sqrt(U^^2-4(A)(D))->Z (~U+Z)/(2A)->X (~U-Z)/(2A)->Y Disp X,Y Pause Goto theta Lbl P Disp "2D/(V+U)" Prompt D,U,V 2D/(V+U)->T Disp T Pause Goto theta Lbl 6 sqrt(2D/A)->T Disp T Pause Goto theta Lbl Q ClrHome Return
]]>