In Solve App when 2 or more equations are involved; Num has a Checkbox against the variables
if not.....
I wrote a dynamic input function to find what variable is check for an App. For which INPUT function fails to execute. Any HELP?
my function input consist of: checkbox; value1 box, value2 box, checkbox.
Similar to Solve App with 2 or more equations with total of 7 or more variables.
Code:
EXPORT InrPP()
BEGIN
LOCAL jJ,tLt,iTi,bSa,aCc;
LOCAL Nn,Mm,Bb;
LOCAL ipa:="";
LOCAL ipa1:="";
LOCAL aa:=0;
LOCAL bb:=1;
LOCAL Lb2:={}; //Labels as in INPUT syntax
LOCAL Lb3:={}; //Help as in INPUT syntax
LOCAL Lb4:={}; //reset values same as initial values
AVars("tLt"):='tLt';
AVars("iTi"):='iTi';
AVars("bSa"):='bSa'; //left Checkbox label
AVars("aCc"):='aCc'; //right Checkbox label
L3:={'Φs','XL','XC','R','Φp','ɷ','C','L','f'};
L7:={0,0,0,0,0,0,0,0,0};
Nn:=SIZE(L3)/2; Mm:=FP(Nn); Nn:=IP(Nn); Bb:=Nn; IF odd(Nn) THEN Bb:=Nn+1; END;
FOR jJ FROM 1 TO Nn STEP 1 DO
IF jJ==1 THEN Lb2:=CONCAT({""},Lb2); Lb4:=CONCAT(1,Lb4);
ELSE Lb2:=CONCAT(Lb2,{""}); Lb4:=CONCAT(Lb4,1);
END;
ipa1:=ipa1 + "{'bSa'," + string(1) + "," +string({1,10,aa}) +"}" ;
Lb2:=CONCAT(Lb2,{L3[bb]}); Lb4:=CONCAT(Lb4,{L7[bb]});
ipa1:=ipa1 + ",{" + string(L3[bb]) + ",[0]," + string({15,25,aa}) + "}" ;
Lb2:=CONCAT(Lb2,{L3[bb+1]}); Lb4:=CONCAT(Lb4,{L7[bb+1]});
ipa1:=ipa1 + ",{" + string(L3[bb+1]) + ",[0]," + string({63,25,aa}) + "}," ;
Lb2:=CONCAT(Lb2,{""}); Lb4:=CONCAT(Lb4,1);
IF Bb<>0 AND Nn<>1 THEN ipa1:=ipa1 + "{'aCc'," + string(1) + "," +string({90,10,aa}) +"},";
ELSE ipa1:=ipa1 +"{'aCc'," + string(1) + "," +string({90,10,aa}) +"}";
END;
Lb3:=CONCAT(CONCAT({"Select variables to solve for","Enter value"},{"Enter value","Select variables to solve for"}),Lb3);
Bb:=Bb-2;
bb:=2*jJ+1;
aa:=aa+1;
END;
IF Mm<>0 THEN Lb2:=CONCAT(Lb2,{""}); Lb2:=CONCAT(Lb2,{L3[0]}); Lb4:=CONCAT(Lb4,{L7[0]}); Lb4:=CONCAT(Lb4,{L7[0]});
ipa1:=ipa1 + ",{'bSa'," + string(1) + "," +string({1,10,aa+1}) +"}" ;
ipa1:=ipa1 + ",{" +string(L3[0]) + ",[0]," + string({15,25,aa+1}) + "}";
Lb3:=CONCAT(Lb3,{"Select variables to solve for","Enter value"});
END;
EXPR( "INPUT({" +"\n" + "ipa1" +"\n" + "}," + '"Simulator Options"' +",\n" +"Lb2" +",\n" + "Lb3" +",\n" + "Lb4" +",\n" + "Lb4" +")"); //INPUT excution doesn't work try write it in with EXPR(). No success
//.............checking inputs for INPUT syntax execution.
//print(ipa1);
//print(Lb2);
//print(Lb3);
//print(Lb4);
//............input(ipa1,Lb2,lb3,lb4) to execute INPUT as in help info. NO success.
//INPUT(
//{
//ipa1
//},
//"Simulator Options",
//Lb2,
//Lb3,
//Lb4,
//Lb4
//)
END;