FORCAL图形库FC2D，多线程动态绘制图形

forcal

多线程动态绘制图形是FC2D的基本特点。
参考：http://www.forcal.net/sysm/forcal9/fchtm/fc2d.htm

请大家说说目前的动态绘制函数图形的库都有哪些？特点是什么？以便作为参考。

0 n8 Z8 l& m1 N请对FC2D留下宝贵意见，以便以后改进，谢谢！

柯雷

这个我也不会啊啊，不过顶之

猴王再世

顶！

forcal

谢谢楼上两位！
. b% R; B1 w8 d7 t( o2 Q% {/ c可下载OpenFC体验一下：http://www.forcal.net/xiazai/forcal9/openfc32w.rar

liujinshan_135

加油加油加油加油加油

forcal

FC2D最近更新：Plot函数用法有变化，增加了更多选项和属性
参考：http://www.forcal.net/sysm/forcal9/fchtm/fc2d.htm

dingpeng123

谢谢了，很有用啊！！！

forcal

绘制如下含参变量二重积分的隐函数图形：

  U6 o6 p" ^" [3 d5 E5 kForcal代码：
1 R# o# q: r" u+ h/ b1 g3 {

2. !using("fc2d","IMSL","XSLSF");1 ?\\" y/ J, ?' G\\" `3 }
   
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;- a, j: x& k; ~% d( o+ E+ ^7 ]
   
6. h(x)=5*x;9 r9 ]% t. r( t# f' u  K% ]% I
   
8. g(x::b)=-2*x+b;+ q4 I; o, |3 Y# J' s1 \* W
   
10. f(bb::a,b)= b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];$ j: _: z% V8 H6 d% y4 e. v\\" d
    
12. fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;\\" Z# W' b3 A\\" z\\" H
    
14. ClearImslErr(),
    
15. 1 H$ g/ P/ h/ y
16. Plot{Iclear, Ix : -3,3, Igrid : 1,\\" Y8 n8 M\\" T- U  u1 u2 `. T
    
18.      Iufun : HFor("fb"), Adots,30
    
19. , K2 E$ B% I' i. w8 u
20. };- ]) F6 r$ h7 W, F: N9 ?4 w$ w
    

!using("fc2d","IMSL","XSLSF");<font class=\\"jammer\\">1 ?\\" y/ J, ?' G\\" `3 }</font><br /> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<font class=\\"jammer\\">- a, j: x& k; ~% d( o+ E+ ^7 ]</font><br /> h(x)=5*x;<font class=\\"jammer\\">9 r9 ]% t. r( t# f' u  K% ]% I</font><br /> g(x::b)=-2*x+b;<font class=\\"jammer\\">+ q4 I; o, |3 Y# J' s1 \* W</font><br /> f(bb::a,b)= b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];<font class=\\"jammer\\">$ j: _: z% V8 H6 d% y4 e. v\\" d</font><br /> fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;<font class=\\"jammer\\">\\" Z# W' b3 A\\" z\\" H</font><br /> ClearImslErr(),<br /> <span style=\\"display:none\\">1 H$ g/ P/ h/ y</span> Plot{Iclear, Ix : -3,3, Igrid : 1,<font class=\\"jammer\\">\\" Y8 n8 M\\" T- U  u1 u2 `. T</font><br />      Iufun : HFor("fb"), Adots,30<br /> <span style=\\"display:none\\">, K2 E$ B% I' i. w8 u</span> };<font class=\\"jammer\\">- ]) F6 r$ h7 W, F: N9 ?4 w$ w</font><br />

图形如下：
2 ?- h* u/ v1 N6 p% _8 i
5 d* I' }$ k7 U# e所有的点(a,b)如下：
-3. , 5.677964685436554e-002
+ h* O6 p6 J% i0 T9 a; D. }4 n* F" l-2.793103448275862 , 0.113926626758415
9 n, E3 ~8 [* N; B' Z! `/ ]6 B' t-2.586206896551724 , 0.1794836885445007
-2.379310344827586 , 0.2582958827136312
-2.172413793103448 , 0.3678246226201311
' W# L; W% }1 m/ ^-1.965517241379311 , 0.4854053136248959
-1.758620689655173 , 0.3109675572745501
-1.551724137931035 , 0.4482758622854263
$ v: ^- T& \- X* ^7 B7 t-1.344827586206897 , 0.6551724398984934
1 A2 Y7 _( d% M' c9 ?-1.137931034482759 , 0.8620689655216192
, d2 U& n4 m" t% c- G. s-0.931034482758621 , 1.06896551724139
" L2 t" z% {8 I) M0 q-0.7241379310344831 , 0.9928357579204139
-0.5172413793103452 , 1.482758620687618
-0.3103448275862073 , 1.689655172413478
" }0 l- y, P& X4 N; a1 `1 j-0.1034482758620694 , 1.810803012030456
( i# R6 v* ~4 ~! [0.1034482758620686 , 1.762128999758652
0.3103448275862065 , 1.895805254542486
" D: ?: ^- r1 S! @0.5172413793103444 , 2.022877410009786
5 u- S* s* g" [0.7241379310344823 , 2.153694202098552
' Q6 s* |% b  H1 v7 j* F4 t9 m# F0.9310344827586202 , 2.320359396161155
/ X: X2 W$ {- D1.137931034482758 , 2.513284341824756
2 o& `$ {3 J: w, C4 W1.344827586206896 , 2.7264453989435
8 T. Y8 z9 \$ _, V% O" ^1.551724137931034 , 2.925615642424742
$ @- [+ @& S0 y; U3 ~1.758620689655172 , 3.096868663763255
1.96551724137931 , 3.264359697730042
2.172413793103448 , 3.443077817907455
% A, H' ?7 S, m* z4 y) j( b2.379310344827586 , 4.4368980745608
2.586206896551724 , 4.635103786282911
+ r+ E4 c+ n5 L9 \; Y3 Q/ P2.793103448275862 , 2.815981856569838e-004
3. , 2.885091408164247e-004

# [3 |( R; J2 U5 _  b

forcal

图怎么看不清呢？再上传一次试试。
3 ~& `: U6 I# L6 e: X. m楼上的问题图：
3 ^& F  C- K# }' q
函数图形：
/ h+ H3 v0 W# s$ T# O

forcal

8＃的公式决定的隐函数是个多值函数。
所有a=b-2的数对(a,b)都是方程的解。还有一些其他解。
* g  c3 o# }3 X* E: m4 ^所以用隐函数绘图会更合适，难点在于计算量非常大。
% X* d6 G9 Y! d0 o  d: }
以下是Forcal的隐函数绘图代码：a取-3～3，b取-2～5，绘图点数取50

2. !using("fc2d","IMSL","XSLSF");
   
3.   D7 I3 O! N4 W( l+ D0 L
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;\\" ?6 C$ }; i5 B. B! ]& O
   
6. h(x)=5*x;6 [# w7 p+ t6 B6 C( t( }& S
   
8. g(x::b)=-2*x+b;8 d7 y8 L$ |9 N4 L4 S+ l
   
10. f(aa,bb::a,b)= a=aa,b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];
    
11. 0 A2 j7 T) P# B
12. ClearImslErr(),
    
13. 1 R/ p$ w' N\\" K6 C- N! O/ J4 b
14. Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,3 P! F, H6 S/ p  ~
    
16.      Iifun : HFor("f"), Adots,50\\" k8 E2 J  Y# e. ]( ~8 }2 e4 s, s\\" r
    
18. };' f1 P, [' R% b5 l6 g. W) q
    

!using("fc2d","IMSL","XSLSF");<br /> <span style=\\"display:none\\">  D7 I3 O! N4 W( l+ D0 L</span> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<font class=\\"jammer\\">\\" ?6 C$ }; i5 B. B! ]& O</font><br /> h(x)=5*x;<font class=\\"jammer\\">6 [# w7 p+ t6 B6 C( t( }& S</font><br /> g(x::b)=-2*x+b;<font class=\\"jammer\\">8 d7 y8 L$ |9 N4 L4 S+ l</font><br /> f(aa,bb::a,b)= a=aa,b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];<br /> <span style=\\"display:none\\">0 A2 j7 T) P# B</span> ClearImslErr(),<br /> <span style=\\"display:none\\">1 R/ p$ w' N\\" K6 C- N! O/ J4 b</span> Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,<font class=\\"jammer\\">3 P! F, H6 S/ p  ~</font><br />      Iifun : HFor("f"), Adots,50<font class=\\"jammer\\">\\" k8 E2 J  Y# e. ]( ~8 }2 e4 s, s\\" r</font><br /> };<font class=\\"jammer\\">' f1 P, [' R% b5 l6 g. W) q</font><br />

图形如下：
3 k. }& H* s- s! v. [
/ V9 E+ J9 l% S3 C8 T. B2 W