#COMMAND:棺

<䲽һԪ֣棩
const:BUTTON=1,RADIOBUTTON=2,CHECKBOX=3,GROUPBOX=4,EDIT=5,STATIC=6;
"char"()=strex
{"DoStr",
 "
 \"F\"(x)=(*ʽ*);
 one{setcyclemax[20],
     clearFcFunWin[],
     str(\"ֽ\")
    }
 +simpintegrate[(*ޣ*),(*ޣ*),(*־ȣ*),#\"F\"]
 +one[setcyclemax(1000000)];
 "
};

AutoConst: Win1,Win2,Win3,Win4,Win5;
AutoConst: St10,St11,St12,St13,St14,St15;
AutoConst: Ed10,Ed11,Ed12,Ed13,Ed14,Ed15,Ed16,Ed17;
AutoConst: St20,St21,St22,St23,St24,St25;
AutoConst: Ed20,Ed21,Ed22,Ed23,Ed24,Ed25,Ed26,Ed27;
AutoConst: St30,St31,St32,St33,St34,St35;
AutoConst: Ed30,Ed31,Ed32,Ed33,Ed34,Ed35,Ed36,Ed37;
AutoConst: St40,St41,St42,St43,St44,St45;
AutoConst: Ed40,Ed41,Ed42,Ed43,Ed44,Ed45,Ed46,Ed47;
AutoConst: Bu10,Bu11,Bu12,Bu13,Bu14,Bu15,Bu16,Bu17;
AutoConst: St50,St51,St52,St53,St54,St55;
AutoConst: Ed50,Ed51,Ed52,Ed53,Ed54,Ed55,Ed56,Ed57;
AutoConst: EndAutoConst;
NewDoubleArrays[1];
NewDoubleArray[0,EndAutoConst];

SetPartArray[0,Win1,Win5,"䲽һԪ",0,0,465,250];

SetPartArray[0,St10,St15,STATIC,"һԪ F(x)=",10,10,100,20];
SetPartArray[0,Ed10,Ed17,EDIT,"ʽ",-1,120,10,310,20,"x"];

SetPartArray[0,St20,St25,STATIC,"ޣ",10,40,80,20];
SetPartArray[0,Ed20,Ed27,EDIT,"ޣ",-1,90,40,50,20,"0"];
SetPartArray[0,St30,St35,STATIC,"ޣ",150,40,80,20];
SetPartArray[0,Ed30,Ed37,EDIT,"ޣ",-1,230,40,50,20,"1"];
SetPartArray[0,St40,St45,STATIC,"־ȣ",290,40,80,20];
SetPartArray[0,Ed40,Ed47,EDIT,"־ȣ",-1,380,40,50,20,"1e-6"];

SetPartArray[0,Bu10,Bu17,BUTTON,"",380,70,50,25,@"DoStr","ֽ"];
SetPartArray[0,St50,St55,STATIC,"ֽ",10,70,100,20];
SetPartArray[0,Ed50,Ed57,EDIT,"ֽ",1,10,100,420,100,""];

FcFunWin[EndAutoConst-1,0];
>
<䲽ػ֣棩
const:BUTTON=1,RADIOBUTTON=2,CHECKBOX=3,GROUPBOX=4,EDIT=5,STATIC=6;
"char"()=strex
{"DoStr",
 "
 \"y1\"(x)=(*y1(x)=*);
 \"y2\"(x)=(*y2(x)=*);
 \"Z\"(x,y)=(*Ԫ*);
 one{clearFcFunWin[],
     str(\"ֽ\")
    }
 +simp2[(*x1=*),(*x2=*),#\"y1\",#\"y2\",#\"Z\",(*־ȣ*)];
 "
};

AutoConst: Win1,Win2,Win3,Win4,Win5;
AutoConst: St10,St11,St12,St13,St14,St15;
AutoConst: Ed10,Ed11,Ed12,Ed13,Ed14,Ed15,Ed16,Ed17;
AutoConst: St20,St21,St22,St23,St24,St25;
AutoConst: Ed20,Ed21,Ed22,Ed23,Ed24,Ed25,Ed26,Ed27;
AutoConst: St30,St31,St32,St33,St34,St35;
AutoConst: Ed30,Ed31,Ed32,Ed33,Ed34,Ed35,Ed36,Ed37;
AutoConst: St40,St41,St42,St43,St44,St45;
AutoConst: Ed40,Ed41,Ed42,Ed43,Ed44,Ed45,Ed46,Ed47;
AutoConst: St50,St51,St52,St53,St54,St55;
AutoConst: Ed50,Ed51,Ed52,Ed53,Ed54,Ed55,Ed56,Ed57;
AutoConst: St60,St61,St62,St63,St64,St65;
AutoConst: Ed60,Ed61,Ed62,Ed63,Ed64,Ed65,Ed66,Ed67;
AutoConst: Bu10,Bu11,Bu12,Bu13,Bu14,Bu15,Bu16,Bu17;
AutoConst: St70,St71,St72,St73,St74,St75;
AutoConst: Ed70,Ed71,Ed72,Ed73,Ed74,Ed75,Ed76,Ed77;
AutoConst: EndAutoConst;
NewDoubleArrays[1];
NewDoubleArray[0,EndAutoConst];

SetPartArray[0,Win1,Win5,"䲽ػ",0,0,465,280];

SetPartArray[0,St10,St15,STATIC,"Ԫ Z(x,y)=",10,10,120,20];
SetPartArray[0,Ed10,Ed17,EDIT,"Ԫ",-1,130,10,300,20,"x+y"];

SetPartArray[0,St20,St25,STATIC,"x2=",10,40,30,20];
SetPartArray[0,Ed20,Ed27,EDIT,"x2=",-1,40,40,50,20,"1"];
SetPartArray[0,St30,St35,STATIC,"x1=",10,70,30,20];
SetPartArray[0,Ed30,Ed37,EDIT,"x1=",-1,40,70,50,20,"0"];

SetPartArray[0,St40,St45,STATIC,"y2(x)=",110,40,40,20];
SetPartArray[0,Ed40,Ed47,EDIT,"y2(x)=",-1,160,40,100,20,"x*x"];
SetPartArray[0,St50,St55,STATIC,"y1(x)=",110,70,40,20];
SetPartArray[0,Ed50,Ed57,EDIT,"y1(x)=",-1,160,70,100,20,"x-1"];

SetPartArray[0,St60,St65,STATIC,"־ȣ",290,40,80,20];
SetPartArray[0,Ed60,Ed67,EDIT,"־ȣ",-1,380,40,50,20,"1e-6"];

SetPartArray[0,Bu10,Bu17,BUTTON,"",380,90,50,25,@"DoStr","ֽ"];
SetPartArray[0,St70,St75,STATIC,"ֽ",10,100,100,20];
SetPartArray[0,Ed70,Ed77,EDIT,"ֽ",1,10,130,420,100,""];

FcFunWin[EndAutoConst-1,0];
>