Programs for HP48S  Printable Version + HP Forums (https://archived.hpcalc.org/museumforum) + Forum: HP Museum Forums (https://archived.hpcalc.org/museumforum/forum1.html) + Forum: Old HP Forum Archives (https://archived.hpcalc.org/museumforum/forum2.html) + Thread: Programs for HP48S (/thread226671.html) 
Programs for HP48S  William N Strew  07092012 Where can I find triangle solve and finding complex roots of polynomials programs for an HP48S? I will need to manually input the programs since I do not have a serial cable.
Re: Programs for HP48S  Michael Lopez  07102012 Try here: http://www.hpcalc.org/ . Cheers,
Michael
Re: Programs for HP48S  Eddie W. Shore  07102012 I have a few small programs: QD: (Quadratic Formula)  Credit goes to the document "1 Minute Marvels" by Wldoek MierJedrzejowicz and Richard Nelson (They have this program named 'quad') Input: 3: A 2: B 1: C Output: 2: root 1 1: root 2 << 3 PICK / SWAP ROT 2 * / DUP SQ ROT  SQRT + LASTARG  >> SQRT: Square Root Law of Sines: sin(F1)/S1 = sin(F2)/S2. Apply this to any of the two sides and their corresponding angels. F represents theta which can be typed by pressing [alpha] [right shift] (F). (48S only?) LAWSIN: << 'SIN(F1)/S1=SIN(F2)/S2' STEQ 30 MENU>> Law of Cosines: A^2=B^2+C^22BC cos F LAWCOS: << 'SQ(A)=SQ(B)+SQ(C)2*B*C*COS(F)' STEQ 30 MENU>> 30 MENU brings up the calculator's solver using whatever is stored in STEQ. Hope this helps, Eddie
Edited: 13 July 2012, 7:18 p.m. after one or more responses were posted
Re: Programs for HP48S  William N Strew  07112012 Thank you. It does help. I went into HPCalc.org. Most of the programs are for download. Very few were text only which is what I needed.
Re: Programs for HP48S  Eddie W. Shore  07132012 Quote: Very cool. I finally got the cubic formula done, CU, which requires QD (see above). <<  > A B C D << C 3 A * / B SQ 9 A SQ * /  'Q' STO C B * A SQ / 3 D * A /  6 / B 3 ^ 27 A 3 ^ * /  'R' STO R Q 3 ^ R SQ + SQRT + 3 XROOT 'S' STO R Q 3 ^ R SQ + SQRT  3 XROOT 'T' STO S T + B 3 A * /  'X' STO X B A X * + C B X * + A X SQ * + QD
{Q,R,S,T,X} PURGE >> >> Edited: 13 July 2012, 7:18 p.m.
