Mini-formulas

Forum Attachments

Summary:

i know there are faster ways to do these. Any help?

Mini-formulas

Trenly 06 May 2015 15:31

Im not the best at optimization so here are a few segments of code for you guys.

---

First:
MV=M'V'

Menu("?","M,V,M'",M1,"M,V,V'",M2
Lbl M1
Prompt M,V
M->A
Prompt M
Disp AV/M
Pause 
Return
Lbl M2
Prompt M,V
V->A
Prompt V
Disp MA/V
Pause
Return

---

Conversion table: Would like input to look like:

Temperature F,C,K:(Degrees Fahrenheit if known),(Celsius if known),(Kelvin if known)

Current Code:

Prompt F,C,K
If not(F and not(K //determine what data we have in these blocks
Then
//code for converting Celsius to Fahrenheit, i dont have time to type it out
//code for converting Celsius to Kelvin
//Display all answers
End
If not(C and not(K
Then
//Code for both conversions
//display answers
End
If not(F and not(C
Then
//Code for conversions
//display answers
End

---

Ohms Law. Want input to look like:

Input as V,I,R: (V if known, I if known, R if known)

Current code:

Lbl PJ
Prompt V,I,R
If not(V and I and R //these if statements determine which numbers to use
IR->A
If not(I and R and V
V/R->A
If not(R and I and V
V/I->A
If V and I and R //determine if it is a true/false answer 
Then: (V=IR)->A
1->T //just a flag
End
If not(A and not(T //determine if there is enough data
Then: Disp "Not Enough Data!"
Else: Output(5,1,"Answer:"
Output(5,8,A
End
If not(A and not(T //prevent a memory leak in the above loop
Goto PJ
If T //check the flag
Then: If A: Output(5,8,"True" //read if it is true or false
If not(A: Output(5,8,"False
End
Pause
Return

---

Area of a sector:
Want input to be

Input (theta),Radius:(theta, radius)

Code:

Input "(Theta):",A
Input "Radius:",R
Disp(A/360)(πR²) //get the answer

---

Thanks for any help! I think using strings would be the easiest for these, but I am not sure. Im looking more for size than speed, but both are great. Thanks again guys. I love you here at TI|BD! Will add more comments soon!

Last edited on 06 May 2015 16:57 by Trenly Show more

Re: Mini-formulas

Michael2_3B 06 May 2015 16:23

This is slightly smaller:

Menu("?","M,V,M'",M1,"M,V,V'",M2
Lbl M1
Prompt M,V
M->A
Prompt M
Disp AV/M
Pause 
Return
Lbl M2
Prompt M,V
V->A
Prompt V
Disp MA/V
Pause
Return

That way, you destroy less variables.

Last edited on 06 May 2015 17:35 by Michael2_3B Show more

Re: Mini-formulas

Trenly 06 May 2015 16:56

Okay. I will change it to that.
Edit: also updated above code to match current code.

Last edited on 06 May 2015 16:58 by Trenly Show more

Re: Mini-formulas

Electromagnet8 07 May 2015 00:43

I use the method below in my Custom Formula Pro program. The program can be customized either in the code itself or by a main program from which it is run.
The following programs will output the unknown value. If it is unable to determine a solution, the program will not return anything.

M₁V₁=M₂V₂

Input "M₁:",A         //request values, input 0 if unknown
Input "V₁:",B
Input "M₂:",C
Input "V₂:",D
not({D,C,B,A          //converts the unknown values to 1 and known values to 0
If 1=sum(Ans          //If only 1 value is unknown
  Disp expr("solve(AB-CD,"+sub("ABCD",sum(cumSum(Ans)),1)+",{ᴇ⁻9,ᴇ9

ºF - ºC - K Temperature Converter

Input "F:",A
Input "C:",B
Input "K:",C
For(θ,1,2
  If 1=sum(not({B,C:Then
    ᴇ⁻17+expr("solve(B+273.15-C,"+sub("BC",not(B)+2not(C),1)+",{⁻ᴇ9,ᴇ9
    If not(B:Ans→B
    If not(C:Ans→C
  End
  If 1=sum(not({A,B:Then
    ᴇ⁻17+expr("solve(5/9(A-32)-B,"+sub("AB",not(A)+2not(B),1)+",{⁻ᴇ9,ᴇ9
    If not(A:Ans→A
    If not(B:Ans→B
  End
End
Disp "F",round(A,6),"C",round(B,6),"K",round(C,6

V=IR

Input "V:",A
Input "I:",B
Input "R:",C
not({C,B,A
If 1=sum(Ans
  Disp expr("solve(BC-A,"+sub("ABC",sum(cumSum(Ans)),1)+",{ᴇ⁻9,ᴇ9

Area of a Sector (saving a few bytes)

Disp πB²A/360   //for degrees
Disp .5AB²      //for radians

Re: Mini-formulas

Trenly 07 May 2015 03:27

Nice coding. A bit more complex, but it works. I still think that if you could use a string as an input for the variables it might be easier. Im not too concerned with memory right now, but i definitely will keep this in mind!