#COMMAND:๤

<ù·ΪĬĿ¼
SetPath[""];
SetPath["fc"];
>
<ù·ΪĿ¼
SetPath["\\"];
>
<ù·Ϊҵĵ
SetPath["c:\\My Documents"];
>
<Windows
ShellExecute("open","calc.exe","","",0);
>
<ļ...
ShellExecute("find","","","",0);
>
<ҳ...
const:BUTTON=1,EDIT=5,STATIC=6; //ؼID壻

FcFunWin{"ҳ",100,100,500,80,
	 STATIC,"http://",10,10,40,20,
	 EDIT,"ҳ",-1,50,10,330,20,"forcal.yeah.net/",
	 BUTTON,"ҳ",390,5,80,25,"ShellExecute(\"open\",\"http://(*ҳ*)\",\"\",\"\",0);",""
	};
>
<Բֵ
const:BUTTON=1,RADIOBUTTON=2,CHECKBOX=3,GROUPBOX=4,EDIT=5,STATIC=6; //ؼID壻
const: array=0,n=100; //鳣壻 
NewDoubleArrays[1]; //һʵ飻 
NewDoubleArray[array,n]; //arrayԪظΪnӵĿؼԽ࣬nԽ 
ContinueSetArrayIni[array,0]; //arrayĵ0Ԫؿʼֵ

"char"()=strex //嵥㰴ťʱִеĲ
{"DoStr",
 "
SetTalk(-1);
ClearFcFunWin();
gcvt{(*Y1*)+[(*X*)-(*X1*)]*[(*Y2*)-(*Y1*)]/[(*X2*)-(*X1*)],16,\"root\"}+str(&\"root\");
 "
};

ContinueSetArray["Բֵ",200,200,320,250]; //arrayֵ
ContinueSetArray[STATIC,"X1=",10,10,50,20]; //arrayֵ
ContinueSetArray[EDIT,"X1",-1,60,10,80,20,"0"];
ContinueSetArray[STATIC,"Y1=",150,10,50,20];
ContinueSetArray[EDIT,"Y1",-1,200,10,80,20,"0"];
ContinueSetArray[STATIC,"X2=",10,30,50,20];
ContinueSetArray[EDIT,"X2",-1,60,30,80,20,"10"];
ContinueSetArray[STATIC,"Y2=",150,30,50,20];
ContinueSetArray[EDIT,"Y2",-1,200,30,80,20,"10"];
ContinueSetArray[STATIC," X=",10,60,50,20];
ContinueSetArray[EDIT,"X",-1,60,60,80,20,"5"];
ContinueSetArray[STATIC,"Y= ???",10,80,50,20];
ContinueSetArray[EDIT,"Y",1,10,100,270,100,""];
ContinueSetArray[BUTTON,"",200,60,80,30,@"DoStr","Y"];

//ºʾڣContinueSetArrayIni(array,-1)ȡarrayЧԪظ
FcFunWin[ContinueSetArrayIni(array,-1)-1,array];
>
<
const:BUTTON=1,RADIOBUTTON=2,CHECKBOX=3,GROUPBOX=4,EDIT=5,STATIC=6; //ؼID壻

"char"()=strex //嵥㰴ťʱִеĲ
{"DoStr",
 "
SetTalk(-1);
ClearFcFunWin();
\"char\"()=\"root\";
NewDoubleS[2];
str[\"Ŀ\"];
gcvt{setd{0,CountPara[(**)]},16,@\"root\"}+str(@\"root\");
if{lt[getd(0),2],
   MessageBox[\"ڻ2\",\"\"],
   stop[]
  };
NewDoubleArrayS[1]; //һ飻
NewDoubleArray[0,getd(0),(**)]; //鸳ֵ
\"f\"(x)=x; //ƽֵõĺ
endl[]+str[\"ƽֵ\"];
gcvt{DataArraySum(#\"f\",0,getd(0),0)/getd(0),16,@\"root\"}+str(@\"root\"); //ƽֵ
\"g\"(x)=[x-DataArraySum(#\"f\",0,getd(0),0)/getd(0)]^2; //õĺ
endl[]+str[\"\"];
gcvt{DataArraySum(#\"g\",0,getd(0),0)/[getd(0)-1],16,@\"root\"}+str(@\"root\");
endl[]+str[\"׼\"];
gcvt{sqrt{DataArraySum(#\"g\",0,getd(0),0)/[getd(0)-1]},16,@\"root\"}+str(@\"root\");
endl[]+str[\"\"];
gcvt{DataArraySum(#\"g\",0,getd(0),0)/getd(0),16,@\"root\"}+str(@\"root\");
endl[]+str[\"׼\"];
gcvt{sqrt{DataArraySum(#\"g\",0,getd(0),0)/getd(0)},16,@\"root\"}+str(@\"root\");
endl[];
 "
};

FcFunWin{"",100,100,320,355,
	STATIC,"",10,10,80,20,
	EDIT,"",1,10,30,280,85,"1,2",
	BUTTON,"ƽֵ׼",20,125,250,30,@"DoStr","",
	EDIT,"",1,10,165,280,140,"0"
};
>
<һԪԻع
const:BUTTON=1,RADIOBUTTON=2,CHECKBOX=3,GROUPBOX=4,EDIT=5,STATIC=6; //ؼID壻
const: array=0,n=100; //鳣壻 
NewDoubleArrays[1]; //һʵ飻 
NewDoubleArray[array,n]; //arrayԪظΪnӵĿؼԽ࣬nԽ 
ContinueSetArrayIni[array,0]; //arrayĵ0Ԫؿʼֵ

"char"()=strex //嵥㰴ťʱִеĲ
{"DoStr",
 "
SetTalk(-1);
ClearFcFunWin();
\"char\"()=\"root\";
NewDoubleS[10];
str[\"Ŀ\"];
gcvt{setd{0,CountPara[(*Xi*)]},16,@\"root\"}+str(@\"root\");
if{lt[getd(0),2],
   MessageBox[\"ڻ2\",\"һԪԻع\"],
   stop[]
  };
if{ne[getd(0),CountPara[(*Yi*)]],
   MessageBox[\"ȣ\",\"һԪԻع\"],
   stop[]
  };

NewDoubleArrayS[2]; //飻
NewDoubleArray[0,getd(0),(*Xi*)]; //0ֵ
NewDoubleArray[1,getd(0),(*Yi*)]; //1ֵ
\"x\"(x)=x; //庯1
\"xx\"(x)=x^2; //庯2
\"xy\"(x,y)=x*y; //庯3

setd[1,DataArraySum(#\"xy\",0,getd(0),0,1)];
setd[2,DataArraySum(#\"x\",0,getd(0),0)];
setd[3,DataArraySum(#\"x\",0,getd(0),1)];
setd[4,DataArraySum(#\"xx\",0,getd(0),0)];
setd[5,DataArraySum(#\"xx\",0,getd(0),1)];
//±ʽϵa
setd{6,[getd(1)-getd(2)*getd(3)/getd(0)]/[getd(4)-getd(2)^2/getd(0)]};
endl[]+str[\"ϵa=\"];
gcvt{getd(6),16,@\"root\"}+str(@\"root\");
//±ʽϵb
setd{7,getd(3)/getd(0)-getd(6)*getd(2)/getd(0)};
endl[]+str[\"ϵb=\"];
gcvt{getd(7),16,@\"root\"}+str(@\"root\");
//±ʽϵr
setd{8,[getd(1)-getd(2)*getd(3)/getd(0)]/sqrt{[getd(4)-getd(2)^2/getd(0)]*[getd(5)-getd(3)^2/getd(0)]}};
endl[]+str[\"ϵr=\"];
gcvt{getd(8),16,@\"root\"}+str(@\"root\");
endl[];

 "
};

ContinueSetArray["һԪԻع",100,100,475,410];
ContinueSetArray[STATIC,"Xi",10,10,70,20];
ContinueSetArray[EDIT,"Xi",1,80,10,360,100,"0,1,2"];
ContinueSetArray[STATIC,"Yi",10,120,70,20];
ContinueSetArray[EDIT,"Yi",1,80,120,360,100,"0,1,2"];

ContinueSetArray[STATIC,"ֱy=ax+b",10,240,100,20];
ContinueSetArray[BUTTON,"",340,230,80,25,@"DoStr",""];
ContinueSetArray[EDIT,"",1,10,260,430,100,""];

//ºʾڣContinueSetArrayIni(array,-1)ȡarrayЧԪظ
FcFunWin[ContinueSetArrayIni(array,-1)-1,array];
>