#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)];
 "
};

FcFunWin{"䲽һԪ",0,0,465,250,
	STATIC,"һԪ F(x)=",10,10,100,20,
	EDIT,"ʽ",-1,120,10,310,20,"x",

	STATIC,"ޣ",10,40,80,20,
	EDIT,"ޣ",-1,90,40,50,20,"0",
	STATIC,"ޣ",150,40,80,20,
	EDIT,"ޣ",-1,230,40,50,20,"1",
	STATIC,"־ȣ",290,40,80,20,
	EDIT,"־ȣ",-1,380,40,50,20,"1e-6",

	BUTTON,"",380,70,50,25,@"DoStr","ֽ",
	STATIC,"ֽ",10,70,100,20,
	EDIT,"ֽ",1,10,100,420,100,""
	}
>
<䲽ػ֣ʽ棩
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\",(*־ȣ*)];
 "
};

FcFunWin{"䲽ػ",0,0,465,280,
	STATIC,"Ԫ Z(x,y)=",10,10,120,20,
	EDIT,"Ԫ",-1,130,10,300,20,"x+y",

	STATIC,"x2=",10,40,30,20,
	EDIT,"x2=",-1,40,40,50,20,"1",
	STATIC,"x1=",10,70,30,20,
	EDIT,"x1=",-1,40,70,50,20,"0",

	STATIC,"y2(x)=",110,40,40,20,
	EDIT,"y2(x)=",-1,160,40,100,20,"x*x",
	STATIC,"y1(x)=",110,70,40,20,
	EDIT,"y1(x)=",-1,160,70,100,20,"x-1",

	STATIC,"־ȣ",290,40,80,20,
	EDIT,"־ȣ",-1,380,40,50,20,"1e-6",

	BUTTON,"",380,90,50,25,@"DoStr","ֽ",
	STATIC,"ֽ",10,100,100,20,
	EDIT,"ֽ",1,10,130,420,100,""
	}
>