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

forcal

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

请大家说说目前的动态绘制函数图形的库都有哪些？特点是什么？以便作为参考。
8 i) Z* \+ ^9 w' x, t
请对FC2D留下宝贵意见，以便以后改进，谢谢！

柯雷

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

猴王再世

顶！

forcal

谢谢楼上两位！
可下载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

绘制如下含参变量二重积分的隐函数图形：
: i1 s/ U) l4 U" f4 k) b
Forcal代码：
5 e3 o( m) w1 U

2. !using("fc2d","IMSL","XSLSF");& j8 ?& k/ `& ?; [+ {2 ~$ E
   
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;6 y  u  \\\" r( D
   
6. h(x)=5*x;& b+ m$ n) r- _\\" L$ g6 V/ ~
   
8. g(x::b)=-2*x+b;* s8 V/ s! ~3 g6 G! `' Z
   
10. f(bb::a,b)= b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];
    
11. - d; B' ]* Q- b8 B
12. fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;- _  }  Q. D  [  H! P6 @
    
14. ClearImslErr(),
    
15. . ^8 F' g; f  x: T( f! C
16. Plot{Iclear, Ix : -3,3, Igrid : 1,
    
17. ! f4 `% w3 J+ s6 ^: F4 s3 s
18.      Iufun : HFor("fb"), Adots,30
    
19.   x+ b9 N- p$ e! ^
20. };8 G( B! ^& q% e# h' F! [! H
    

!using("fc2d","IMSL","XSLSF");<font class=\\"jammer\\">& j8 ?& k/ `& ?; [+ {2 ~$ E</font><br /> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<font class=\\"jammer\\">6 y  u  \\\" r( D</font><br /> h(x)=5*x;<font class=\\"jammer\\">& b+ m$ n) r- _\\" L$ g6 V/ ~</font><br /> g(x::b)=-2*x+b;<font class=\\"jammer\\">* s8 V/ s! ~3 g6 G! `' Z</font><br /> f(bb::a,b)= b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];<br /> <span style=\\"display:none\\">- d; B' ]* Q- b8 B</span> fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;<font class=\\"jammer\\">- _  }  Q. D  [  H! P6 @</font><br /> ClearImslErr(),<br /> <span style=\\"display:none\\">. ^8 F' g; f  x: T( f! C</span> Plot{Iclear, Ix : -3,3, Igrid : 1,<br /> <span style=\\"display:none\\">! f4 `% w3 J+ s6 ^: F4 s3 s</span>      Iufun : HFor("fb"), Adots,30<br /> <span style=\\"display:none\\">  x+ b9 N- p$ e! ^</span> };<font class=\\"jammer\\">8 G( B! ^& q% e# h' F! [! H</font><br />

图形如下：
5 z* J/ W$ j8 W9 n/ H
3 p; w& ]: A8 \  @所有的点(a,b)如下：
-3. , 5.677964685436554e-002
-2.793103448275862 , 0.113926626758415
0 P/ M# F0 S) z& L-2.586206896551724 , 0.1794836885445007
-2.379310344827586 , 0.2582958827136312
-2.172413793103448 , 0.3678246226201311
-1.965517241379311 , 0.4854053136248959
) ?4 o/ _- x- ^* i* n  S-1.758620689655173 , 0.3109675572745501
-1.551724137931035 , 0.4482758622854263
( ]2 j; u0 L  n6 J-1.344827586206897 , 0.6551724398984934
8 W* F  y7 v! N* z$ z7 j4 Y4 T0 I-1.137931034482759 , 0.8620689655216192
-0.931034482758621 , 1.06896551724139
) Z5 e4 w2 z% I5 [# Q-0.7241379310344831 , 0.9928357579204139
. V9 W3 F* o/ [0 @- X-0.5172413793103452 , 1.482758620687618
. A. `, w2 e4 g+ i-0.3103448275862073 , 1.689655172413478
-0.1034482758620694 , 1.810803012030456
) i6 |$ ?5 V8 c# ?& F: l. y$ B0.1034482758620686 , 1.762128999758652
7 m  C# Q( X2 G% P0.3103448275862065 , 1.895805254542486
3 q: q9 N, C0 S2 d/ I0.5172413793103444 , 2.022877410009786
+ j2 ~3 Q, N7 K0.7241379310344823 , 2.153694202098552
0.9310344827586202 , 2.320359396161155
! `; P1 Q8 ?4 R3 ~; }1.137931034482758 , 2.513284341824756
1.344827586206896 , 2.7264453989435
1.551724137931034 , 2.925615642424742
( @" T9 _# k3 s2 U1.758620689655172 , 3.096868663763255
" `/ G$ ]- w& k, r8 [- q1.96551724137931 , 3.264359697730042
2.172413793103448 , 3.443077817907455
0 c( a8 i5 z# y' W, r5 k2.379310344827586 , 4.4368980745608
& n* G1 L; Q) g- H6 l! S2.586206896551724 , 4.635103786282911
2.793103448275862 , 2.815981856569838e-004
* S' z9 P, Z- z3. , 2.885091408164247e-004
! `. W: J. r1 V$ |! V+ I0 p5 F7 b
0 b& [" X' p4 V0 A1 z0 p( w' y% y

forcal

图怎么看不清呢？再上传一次试试。
楼上的问题图：
7 |1 _+ H. j0 T/ Q
& E9 S2 G$ [4 Y/ B0 s# M7 P& X函数图形：

forcal

8＃的公式决定的隐函数是个多值函数。
0 U! E) ~2 K, Y  v9 W% U3 u9 U所有a=b-2的数对(a,b)都是方程的解。还有一些其他解。
  J1 z2 J' v2 @6 P# d* g所以用隐函数绘图会更合适，难点在于计算量非常大。
& [% t- O' M8 B7 m  _0 N5 x
以下是Forcal的隐函数绘图代码：a取-3～3，b取-2～5，绘图点数取50

2. !using("fc2d","IMSL","XSLSF");
   
3. ; k& c: E. @. N. T
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;& x6 X' L\\" m8 N# W
   
6. h(x)=5*x;! g( ^+ g4 J& y8 N, u
   
8. g(x::b)=-2*x+b;
   
9. 2 H. j  ]0 P/ O; J+ Y
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. 8 O9 ~  V! r- t; G\\" O
12. ClearImslErr(),
    
13. 2 D2 e5 P3 ?* W6 a7 U0 S) a
14. Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,
    
15. \\" B2 ?, b. j9 v: C; t/ ?7 {
16.      Iifun : HFor("f"), Adots,50
    
17. & s9 @+ o; [1 ~6 o3 G$ n# S6 B
18. };
    
19. $ S+ I0 @( g: e% v1 `/ S  o

!using("fc2d","IMSL","XSLSF");<br /> <span style=\\"display:none\\">; k& c: E. @. N. T</span> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<font class=\\"jammer\\">& x6 X' L\\" m8 N# W</font><br /> h(x)=5*x;<font class=\\"jammer\\">! g( ^+ g4 J& y8 N, u</font><br /> g(x::b)=-2*x+b;<br /> <span style=\\"display:none\\">2 H. j  ]0 P/ O; J+ Y</span> 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\\">8 O9 ~  V! r- t; G\\" O</span> ClearImslErr(),<br /> <span style=\\"display:none\\">2 D2 e5 P3 ?* W6 a7 U0 S) a</span> Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,<br /> <span style=\\"display:none\\">\\" B2 ?, b. j9 v: C; t/ ?7 {</span>      Iifun : HFor("f"), Adots,50<br /> <span style=\\"display:none\\">& s9 @+ o; [1 ~6 o3 G$ n# S6 B</span> };<br /> <span style=\\"display:none\\">$ S+ I0 @( g: e% v1 `/ S  o</span>

图形如下：
0 e! B4 O0 I) |) k. g
6 U/ w" p3 s, X4 b: e( @) S/ g