Trig

Forum Attachments

Summary:

second upload

Trig

Trenly 30 Jan 2015 02:12

Along with the kinematics one, can you please optimize this for size;Again, don't worry about sub programs.

Lbl R
Degree
ClrHome
Menu("Have?","Opp/Hyp",1,"Adj/Hyp",2,"Opp/Adj",3,"Side+theta",S,"Exit?",4
Lbl 1
ClrHome
Input "Opp:",O
Input "Hyp:",H
sin^-1(O/H)->A
ClrHome
Output(1,1,"theta="
Output(1,3,A)
Pause 
ClrHome
Goto X
Lbl 2
ClrHome
Input "Adj:",A
Input "Hyp:",H
cos^-1(A/H)->B
ClrHome
Output(1,1,"theta="
Output(1,3,B
Pause 
ClrHome
Goto X
Lbl 3
ClrHome
Input "Opp:",O
Input "Adj:",A
tan^-1(O/A)->B
ClrHome
Output(1,1,"theta="
Output(1,3,B)
Pause 
ClrHome
Goto R
Lbl 5
ClrHome
Asm(prgmZDONE
Return
Lbl S
ClrHome
Menu("Have?","Opp",O,"Adj",A,"Hyp",H,"Exit?",4
Lbl O
ClrHome
Input "theta:",A
Input "Opp:",B
B/sin(A)->C
B/tan(A)->D
ClrHome
Output(1,1,"Hyp="
Output(1,5,C)
Output(2,1,"Adj="
Output(2,5,D)
Pause 
ClrHome
Goto R
Lbl A
ClrHome
Input "theta:",B
Input "Adj:",A
Atan(B)->C
A/cos(B)->D
ClrHome
Output(1,1,"Opp="
Output(1,5,C)
Output(2,1,"Hyp="
Output(2,5,D)
Pause 
ClrHome
Goto R
Lbl H
ClrHome
Input "theta:",A
Input "Hyp:",G
Gsin(A)->B
Gcos(A)->C
ClrHome
Output(1,1,"Opp="
Output(1,5,B)
Output(2,1,"Adj="
Output(2,5,C)
Pause 
Goto R
Lbl 4
ClrHome
Asm(prgmZDONE)
Return

Last edited on 01 Mar 2015 05:47 by Trenly Show more

Re: Trig

Silver Phantom 30 Jan 2015 02:24

you can drop the ending ) and "

---

The Silver Phantom welcomes you

Re: Trig

Timtech 01 Feb 2015 23:21

A/cos(B)->D
ClrHome
Output(1,1,"Opp="
Output(1,5,C)
Output(2,1,"Hyp="
Output(2,5,D)

can become

A/cos(B
ClrHome
Output(1,1,"Opp=
Output(1,5,C
Output(2,1,"Hyp=
Output(2,5,Ans

Re: Trig

Trenly 02 Feb 2015 00:03

Ok, that save a few bytes. Any other optimizations?

Re: Trig

Timtech 02 Feb 2015 01:41

Yes, you use "theta=" so much that it would be better to do "theta=->Str1 and then replace "theta=" with Str1 eveywhere.

Re: Trig

Timtech 02 Feb 2015 01:44

Also, I don't see why you are storing stuff to variables when they can be calculated directly from the output command…

Re: Trig

Trenly 02 Feb 2015 06:33

Thanks for the suggestions

RandomGuest (guest) 28 Feb 2015 16:53

Wait… what's ZDONE?

Is that the program that removes the done?

You could just do this:

Output(1,1,"") \\Empty string

Or perhaps this (if you want it to end on the graph screen)

Text(X,Y," ") \\X and Y put the space where it won't be noticed.

Zdone

Trenly 01 Mar 2015 05:47

Yes, zone is the hex program that removes the done at the end of a program. I am aware of all the ways to remove that and found this to be my favorite. Also, if you looked, you would see I said to please ignore sub-programs.

Last edited on 01 Mar 2015 05:48 by Trenly Show more