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

forcal

多线程动态绘制图形是FC2D的基本特点。
参考：http://www.forcal.net/sysm/forcal9/fchtm/fc2d.htm
0 z1 J7 G' p: Z2 o
请大家说说目前的动态绘制函数图形的库都有哪些？特点是什么？以便作为参考。
5 `2 G, L1 r1 v3 [% `  F# x
$ }# c: R0 I% e: b, j( e! X  f7 A6 z请对FC2D留下宝贵意见，以便以后改进，谢谢！

柯雷

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

猴王再世

顶！

forcal

谢谢楼上两位！
4 i4 D% H) a2 O5 R可下载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

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

Forcal代码：
5 w; X! R" v$ Y2 ?- ]! [1 I* ?$ p

2. !using("fc2d","IMSL","XSLSF");\\" E\\" \, y6 K. ?9 A2 F2 Y
   
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;
   
5. + l7 b7 o3 c6 n+ O, H4 ~
6. h(x)=5*x;
   
7. ' Z\\" x3 L& f) w( T
8. g(x::b)=-2*x+b;* y* \- @& y# E& P
   
10. f(bb::a,b)= b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];; F7 L+ D+ F\\" [8 i) Y
    
12. fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;
    
13. ( l: l3 V' ?6 W4 p: G& r
14. ClearImslErr(),3 L. n$ D7 ]' u- R+ t5 z
    
16. Plot{Iclear, Ix : -3,3, Igrid : 1,
    
17. & e  j& q* @1 F0 ]\\" c) ^* Q
18.      Iufun : HFor("fb"), Adots,308 L+ }& h4 q8 H
    
20. };1 a) w, T% Q7 Y
    

!using("fc2d","IMSL","XSLSF");<font class=\\"jammer\\">\\" E\\" \, y6 K. ?9 A2 F2 Y</font><br /> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<br /> <span style=\\"display:none\\">+ l7 b7 o3 c6 n+ O, H4 ~</span> h(x)=5*x;<br /> <span style=\\"display:none\\">' Z\\" x3 L& f) w( T</span> g(x::b)=-2*x+b;<font class=\\"jammer\\">* y* \- @& y# E& P</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\\">; F7 L+ D+ F\\" [8 i) Y</font><br /> fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;<br /> <span style=\\"display:none\\">( l: l3 V' ?6 W4 p: G& r</span> ClearImslErr(),<font class=\\"jammer\\">3 L. n$ D7 ]' u- R+ t5 z</font><br /> Plot{Iclear, Ix : -3,3, Igrid : 1,<br /> <span style=\\"display:none\\">& e  j& q* @1 F0 ]\\" c) ^* Q</span>      Iufun : HFor("fb"), Adots,30<font class=\\"jammer\\">8 L+ }& h4 q8 H</font><br /> };<font class=\\"jammer\\">1 a) w, T% Q7 Y</font><br />

图形如下：

( C( l. E) C& k2 s' y所有的点(a,b)如下：
-3. , 5.677964685436554e-002
5 U: T1 W+ [. o; Q-2.793103448275862 , 0.113926626758415
-2.586206896551724 , 0.1794836885445007
-2.379310344827586 , 0.2582958827136312
-2.172413793103448 , 0.3678246226201311
-1.965517241379311 , 0.4854053136248959
" X+ j% \( v3 S1 u-1.758620689655173 , 0.3109675572745501
-1.551724137931035 , 0.4482758622854263
-1.344827586206897 , 0.6551724398984934
-1.137931034482759 , 0.8620689655216192
-0.931034482758621 , 1.06896551724139
& V; m, {! d7 ~7 e  A-0.7241379310344831 , 0.9928357579204139
+ q2 z- Q" _0 ?0 }! S1 q% [. B: b& e-0.5172413793103452 , 1.482758620687618
' R; M) J# w& I5 {-0.3103448275862073 , 1.689655172413478
-0.1034482758620694 , 1.810803012030456
: W3 ~1 K" G/ v4 W/ {. m5 H0.1034482758620686 , 1.762128999758652
8 J2 S0 ~0 y6 x& c6 t9 B7 u: A& o1 b0.3103448275862065 , 1.895805254542486
, o" ]( J- V8 k% H" A% h0.5172413793103444 , 2.022877410009786
0.7241379310344823 , 2.153694202098552
0.9310344827586202 , 2.320359396161155
1.137931034482758 , 2.513284341824756
1.344827586206896 , 2.7264453989435
1.551724137931034 , 2.925615642424742
. R7 R$ C( k7 `6 I. l, P1.758620689655172 , 3.096868663763255
- s+ t: F+ [8 L3 u1.96551724137931 , 3.264359697730042
% W3 ~  v. ]6 U! Q8 X4 L2.172413793103448 , 3.443077817907455
2.379310344827586 , 4.4368980745608
5 d9 n. ^& W/ l# ]6 _; h2.586206896551724 , 4.635103786282911
+ k( t& m* `; Q# q5 U: A" e, C$ i2.793103448275862 , 2.815981856569838e-004
  [+ B- [7 g5 @3 g6 F9 w3. , 2.885091408164247e-004

( @: R+ H/ o( r8 r, X

forcal

图怎么看不清呢？再上传一次试试。
楼上的问题图：
* R& @0 a& h% E* A3 o5 Z* h/ Q9 y
函数图形：

% Q# Z4 X- V" {: Y

forcal

8＃的公式决定的隐函数是个多值函数。
( j8 w& I/ ?* D9 S: z所有a=b-2的数对(a,b)都是方程的解。还有一些其他解。
所以用隐函数绘图会更合适，难点在于计算量非常大。

" g7 s3 {1 M2 Q" [3 R以下是Forcal的隐函数绘图代码：a取-3～3，b取-2～5，绘图点数取50

2. !using("fc2d","IMSL","XSLSF");8 V# c# B5 n9 F
   
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;
   
5. 7 ?) J\\" a0 c5 u% X$ W2 n6 P
6. h(x)=5*x;. N5 x' V& p* _$ {
   
8. g(x::b)=-2*x+b;$ i- u5 [3 s  T! s; p
   
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. 5 \; ?+ n2 L* H* N- _\\" I3 }
12. ClearImslErr(),6 S+ g% V* L6 K
    
14. Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,; T  F; j: l( \$ M
    
16.      Iifun : HFor("f"), Adots,50
    
17. 7 M. y, [0 U' @/ y4 v; D6 d4 |
18. };1 U8 v' u3 Z7 i! t
    

!using("fc2d","IMSL","XSLSF");<font class=\\"jammer\\">8 V# c# B5 n9 F</font><br /> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<br /> <span style=\\"display:none\\">7 ?) J\\" a0 c5 u% X$ W2 n6 P</span> h(x)=5*x;<font class=\\"jammer\\">. N5 x' V& p* _$ {</font><br /> g(x::b)=-2*x+b;<font class=\\"jammer\\">$ i- u5 [3 s  T! s; p</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\\">5 \; ?+ n2 L* H* N- _\\" I3 }</span> ClearImslErr(),<font class=\\"jammer\\">6 S+ g% V* L6 K</font><br /> Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,<font class=\\"jammer\\">; T  F; j: l( \$ M</font><br />      Iifun : HFor("f"), Adots,50<br /> <span style=\\"display:none\\">7 M. y, [0 U' @/ y4 v; D6 d4 |</span> };<font class=\\"jammer\\">1 U8 v' u3 Z7 i! t</font><br />

图形如下：
: }. E. {/ ?, z
7 K! s5 j6 b+ @$ O$ Z