I'm bad at optimization. Kinematics anyone?

Forum Attachments

Summary:

So, im running out of room on my calculator, and so i want to optimize my programs for size. there are more to come.

I'm bad at optimization. Kinematics anyone?

Trenly 30 Jan 2015 02:06

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

Re: I'm bad at optimization. Kinematics anyone?

(account deleted) 03 Nov 2020 23:42

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

Re: I'm bad at optimization. Kinematics anyone?

Trenly 04 Nov 2020 01:21

C28, 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.