- 积分
- 7
- 注册时间
- 2002-9-10
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2009-10-25 07:29:17
|
显示全部楼层
来自 山东淄博
以下绘制t=1,初始值fai取0~100所求得的fai的图形及精度。
可以看出,取不同初始值时,求得的fai不一样。在某些初始值处,变化太大。
-
- FCC文件
- 缺省设置:
- (XNote=请修改为X轴单位) (YNote=请修改为Y轴单位)
- (AutoY=1) (XMin=0) (XMax=1) (YMin=0) (YMax=1)
- (BorderPixels=60) (MultiplyX=1) (MultiplyY=1) (Grid=0) (DivideXY=10) (XYNumWidth=3) (DataMax=2)
- (ForMax=50) (LoadDll=)
- [CODE]
- // 通用设置:
- // (XNote=误差:红色;fai:蓝色) (YNote=请修改为Y轴单位)
- // (AutoY=0) (XMin=0) (XMax=100) (YMin=-10) (YMax=100)
- // (BorderPixels=80) (MultiplyX=1) (MultiplyY=1) (Grid=0) (DivideXY=10) (XYNumWidth=3) (DataMax=2)
- // (ForMax=50) (LoadDll="dll\FcData32W" "dll\XSLSF32W" ) (DotColor=0) (DotSize=10)
- /*[LINE]
- (_fai=1,1000,0,0,16711680)
- (_误差=1,1000,0,0,255)
- [LEND]*/
- // [BODY]
- !const["pi",acos(0)*2,1];
- !const["r",pi/2-0.6685,1];
- f(fai::t)=1/16*(-2932650*cos(1/2*t-fai-r)*pi^2+2932650*cos(-fai-r+3/2*t)*pi^2+1857345*cos(-fai-r+t)*pi^2-1857345*cos(2*t-fai-r)*pi^2-3870720*fai*sin(-fai-r+t)+3677184*fai*sin(-fai-r+3/2*t))/pi^2;
- _fai(fai:s,i:t)=
- {
- t=1,s=fai,
- i=XSLSF::pqrt(HFor("f"),&s,1e-6),
- if{i==10,printff{"已迭代{1,i}次,但未满足精度要求,返回值仅作参考。fai={2,r}\r\n",i,s}},
- s
- };
- 误差(fai,t)=1/16*(-2932650*cos(1/2*t-fai-r)*pi^2+2932650*cos(-fai-r+3/2*t)*pi^2+1857345*cos(-fai-r+t)*pi^2-1857345*cos(2*t-fai-r)*pi^2-3870720*fai*sin(-fai-r+t)+3677184*fai*sin(-fai-r+3/2*t))/pi^2;
- _误差(fai:x,s:t)=
- {
- t=1,s=fai,
- XSLSF::pqrt(HFor("f"),&s,1e-6),
- x=误差(s,t),
- if{abs(x)>1e-6,printff{"t={1,r}时,fai={2,r},误差={3,r}\r\n",t,s,x}},
- x
- };
复制代码
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
评分
-
1
查看全部评分
-
|