=======================================================================
                      OpenForcal    ʹ    ˵  
=======================================================================

0OpenForcalԣ

    ûԶ崰ںûԶ

1Ķ openforcal.htm ļ

2ýOpenForcal.dllForcal.dllļƵwindowsĿ¼£ϵͳЧʡ

3ҵʹõĺ

    OpenForcal.dllForcal.dllԴĺopenforcal.htmļ
    չ̬еĺ FcWin еĺѯ򵼣ѯʱؼ֮ÿոָ

4ʾSimplestOpenFC.exeSimpleOpenFC.exeOpenFCtest.exe

    SimplestOpenFC.exeһ򵥵ʹOpenForcalӣSimpleOpenFC.exeOpenFCtest.exeṩ˸ĹܣͨOpenFCtest.exeOpenForcalãػжκһ̬ļͶ̬˵ļ
    OpenFCtest.exeж¼

    (1) ڵݣʵclear[];
    (2) ַʵstr["aaaa"];
        úܷд1ַָڡ
    (3) кʵendl[];
    (4) ֵout[x];
        úһֵظֵ̿Ƹúֵ
    (5) һʵֵڣʵoutarray(i);
    (6) ̬˵ļʵDllFile();

5

    ƼʹFcWinе˵иּ㡣
    ΪʾҲʹSimplestOpenFCSimpleOpenFCOpenFCtestӣοopenforcal.htmļ̬˵ļرOpenFcGl.dll˵ļ

    1򵥵ֵ㣺

2+sin[2+3*sqrt(3)]*exp[5]; //ʵʽ
c:sin[2+3i]-ln[i]; //ʽ

    2䲽һԪ֣

"f"(x)=sin[x]+0.8; //һԪ
simpintegrate(1,2,0.0001,#"f");

    3Ԫͼ[ض̬չOpenFcGl.dll]

NewDoubleS[1];setd[0,0];//һ
"DrawBegin";
glClear[];
glLoadIdentity[];
glTranslated[0,0,-20];
glRotated[getdadd(0,1),1,1,1];//ʹͼת
glColor3d[0,1,0];
"f"(x,y)=(x^2-2*x)*exp(-x^2-y^2-x*y);
plot3d[#"f",-3,3,-3,3];
FindErrQuit[];//д
"DrawEnd";
DrawScene{GetAddress[$"DrawBegin",#"DrawBegin"],
          GetAddress[$"DrawEnd",#"DrawEnd"]
         };

    4һⶨݣ0.1050.1150.1150.1160.1160.128ƽֵͱ׼ƫ

NewDoubleArrayS[1]; //һ飻
NewDoubleArray[0,6,0.105,0.115,0.115,0.116,0.116,0.128]; //鸳ֵ
"f"(x)=x; //ƽֵõĺ
DataArraySum(#"f",0,6,0)/6; //ƽֵ
"g"(x)=[x-DataArraySum(#"f",0,6,0)/6]^2; //׼ƫõĺ
sqrt{DataArraySum(#"g",0,6,0)/5}; //׼ƫ

    5ʵxyĹϵ±

 1  2  3  4  5  6  7  8  9  10 
 X   22 34 39 43 46 54 58 64 67 72 
 Y   11 13 16 16 17 15 20 19 24 23 

ع鷽y=a*x+bϵr

NewDoubleArrayS[2]; //飻
NewDoubleArray[0,10,22, 34,39,43,46,54,58,64,67,72]; //0ֵ
NewDoubleArray[1,10,11,13,16,16,17,15,20,19,24,23]; //1ֵ
"x"(x)=x; //庯1
"xx"(x)=x^2; //庯2
"xy"(x,y)=x*y; //庯3

//±ʽϵa
"a"()=[DataArraySum(#"xy",0,10,0,1)-DataArraySum(#"x",0,10,0)*DataArraySum(#"x",0,10,1)/10]/[DataArraySum(#"xx",0,10,0)-DataArraySum(#"x",0,10,0)^2/10];
//±ʽϵb
DataArraySum(#"x",0,10,1)/10-calfor[#"a"]*DataArraySum(#"x",0,10,0)/10;
//±ʽϵr
[DataArraySum(#"xy",0,10,0,1)-DataArraySum(#"x",0,10,0)*DataArraySum(#"x",0,10,1)/10]/sqrt{[DataArraySum(#"xx",0,10,0)-DataArraySum(#"x",0,10,0)^2/10]*[DataArraySum(#"xx",0,10,1)-DataArraySum(#"x",0,10,1)^2/10]};

===================================================
Ȩ(c) Forcalѧ 2002-2004Ȩ
E-mail: wanglu71641@sina.com
: 20040919 
===================================================