Num in Solve App. ISCHECK() - Printable Version

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;