HP Prime programmable eq solver

[LarsF]

Hi

I had the same idea, but I just had an ide before i saw your code, so I use it in an app instead.
Create 3 variables,
EQLIB:={{"S=A*B", "S=A*B/2"},{"R=U/I","P=U*I"}}
EQLIBNAME:={{"Surface of a rectangle", "Surface of a triangle"},{"Ohms law","Effect"}}
EQTYPE:={"Area","Electric"}

Copy the solve app and name it EQLib

Edit the program EQLib (App)

Quote:TYP,EQ;
EXPORT EQLib()
BEGIN
END;

VIEW "Start",START()
BEGIN
STARTVIEW(7,0);
END;

VIEW "Select type",STYPE()
BEGIN
CHOOSE(TYP,"Select type",EQTYPE);
STARTVIEW(7,0);
END;

VIEW "Solve EQ Lib",SOLVE()
BEGIN
LOCAL I;
CHOOSE(EQ,"Solve EQ Lib",EQLIBNAME(TYP));
E1:=EQLIB(TYP,EQ);
FOR I = 0 TO 9
UNCHECK(I);
END;
CHECK(1);
STARTVIEW(1,1);
STARTVIEW(2,1);
END;

VIEW "Add Equation",ADD()
BEGIN
LOCAL Equation:="", EQname:="";
INPUT({Equation,EQname},EQTYPE(TYP) + " Insert an EQ",{"EQ: ","EQ Name: "},{"Insert an EQ as string","Insert EQ name as string"});
EQLIBNAME(TYP,0):=EQname;
EQLIB(TYP,0):=Equation;
END;