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

forcal

多线程动态绘制图形是FC2D的基本特点。
参考：http://www.forcal.net/sysm/forcal9/fchtm/fc2d.htm
2 _+ H1 V' m3 R* k
请大家说说目前的动态绘制函数图形的库都有哪些？特点是什么？以便作为参考。
4 `# b2 w7 t; ~- h
$ N* u& M) _- o7 R% ]) H请对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

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

Forcal代码：
7 I6 M; i) R1 e5 \4 [! ]9 u

2. !using("fc2d","IMSL","XSLSF");' a, r% L/ @# Y: u1 J4 T
   
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;
   
5. 7 G+ M- ^- [9 n$ K
6. h(x)=5*x;
   
7. ; p4 _% C, W3 a+ G: z
8. g(x::b)=-2*x+b;: f- _3 C6 O# k
   
10. f(bb::a,b)= b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];
    
11. / |! H& ?' ]& T
12. fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;- g3 p# G$ @; h! \
    
14. ClearImslErr(),
    
15. ( O+ o\\" V* }1 E7 d2 M- \' u8 i
16. Plot{Iclear, Ix : -3,3, Igrid : 1,1 u: f; c& ]; M
    
18.      Iufun : HFor("fb"), Adots,30
    
19. 0 r; t, R6 J4 _$ ^4 i$ C
20. };
    
21. % U( }) d! W* g! x& _( V

!using("fc2d","IMSL","XSLSF");<font class=\\"jammer\\">' a, r% L/ @# Y: u1 J4 T</font><br /> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<br /> <span style=\\"display:none\\">7 G+ M- ^- [9 n$ K</span> h(x)=5*x;<br /> <span style=\\"display:none\\">; p4 _% C, W3 a+ G: z</span> g(x::b)=-2*x+b;<font class=\\"jammer\\">: f- _3 C6 O# k</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\\">/ |! H& ?' ]& T</span> fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;<font class=\\"jammer\\">- g3 p# G$ @; h! \</font><br /> ClearImslErr(),<br /> <span style=\\"display:none\\">( O+ o\\" V* }1 E7 d2 M- \' u8 i</span> Plot{Iclear, Ix : -3,3, Igrid : 1,<font class=\\"jammer\\">1 u: f; c& ]; M</font><br />      Iufun : HFor("fb"), Adots,30<br /> <span style=\\"display:none\\">0 r; t, R6 J4 _$ ^4 i$ C</span> };<br /> <span style=\\"display:none\\">% U( }) d! W* g! x& _( V</span>

图形如下：
+ e8 V2 P  x8 Q6 s: ~$ G' E% ?
4 [3 F/ f' @+ M5 k0 c" `所有的点(a,b)如下：
2 d$ a$ R  y) R2 U( D. ~-3. , 5.677964685436554e-002
# B' m& x9 \6 f0 I/ [( y, u-2.793103448275862 , 0.113926626758415
1 J/ b% Y, u7 y/ l( e( _. z0 S  i-2.586206896551724 , 0.1794836885445007
-2.379310344827586 , 0.2582958827136312
" O) r$ O8 p6 R# y/ M-2.172413793103448 , 0.3678246226201311
. d  N% {: S5 _- X+ l2 z-1.965517241379311 , 0.4854053136248959
-1.758620689655173 , 0.3109675572745501
-1.551724137931035 , 0.4482758622854263
! M4 L/ H5 W7 `-1.344827586206897 , 0.6551724398984934
0 Q: g# d/ U( k1 |4 C4 ]: B& G0 H-1.137931034482759 , 0.8620689655216192
-0.931034482758621 , 1.06896551724139
0 H' {2 z0 n, p; o6 i1 c* e1 O-0.7241379310344831 , 0.9928357579204139
2 B1 D1 N, Q2 S" a3 b-0.5172413793103452 , 1.482758620687618
& s4 {. P; B+ s5 N$ L) q# M-0.3103448275862073 , 1.689655172413478
( M+ R  e% E) e) z-0.1034482758620694 , 1.810803012030456
% ]1 A& Z* C9 h6 S- A% ?+ N0.1034482758620686 , 1.762128999758652
0.3103448275862065 , 1.895805254542486
/ I, A- |! x  f, }% ^# Y0.5172413793103444 , 2.022877410009786
- M! n9 L7 I8 ^) n* p8 T4 f0.7241379310344823 , 2.153694202098552
* s% G1 L9 f% \- f0.9310344827586202 , 2.320359396161155
1.137931034482758 , 2.513284341824756
& h4 g( {4 t4 F& X. ]- A1.344827586206896 , 2.7264453989435
- I4 l2 c: C' j8 F7 S' f1.551724137931034 , 2.925615642424742
1.758620689655172 , 3.096868663763255
1.96551724137931 , 3.264359697730042
2.172413793103448 , 3.443077817907455
2.379310344827586 , 4.4368980745608
2.586206896551724 , 4.635103786282911
1 S3 x* P; B! v* z( Z$ a! h" ^/ g2.793103448275862 , 2.815981856569838e-004
1 ~' C" \: J4 W3. , 2.885091408164247e-004
) |# Q2 z- {' {' h% w

forcal

图怎么看不清呢？再上传一次试试。
# R- g% _, l# B1 W+ k# [楼上的问题图：

函数图形：

forcal

8＃的公式决定的隐函数是个多值函数。
) i  i" u( w4 v8 \) z, H( ]# |所有a=b-2的数对(a,b)都是方程的解。还有一些其他解。
所以用隐函数绘图会更合适，难点在于计算量非常大。

3 V' I2 l1 x4 U) z% D& V4 K# ?  F以下是Forcal的隐函数绘图代码：a取-3～3，b取-2～5，绘图点数取50
2 N8 D' e/ F1 [/ {1 ^7 d

2. !using("fc2d","IMSL","XSLSF");5 m4 T\\" k! H8 M& U- ~$ @
   
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;
   
5. ! q0 K, b# P( c' ^7 }+ Y. g, s8 _
6. h(x)=5*x;+ {3 H2 _8 O# \. N) d3 `, M0 H% j
   
8. g(x::b)=-2*x+b;
   
9. 1 _2 B8 ?5 c  d- X6 H4 ]. H; x
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];5 r; I9 a' S9 b, j$ K/ f
    
12. ClearImslErr(),
    
13. $ m! R$ ?$ _% w0 P
14. Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,\\" c7 `! k- n& @! Q) Y/ [0 y$ k/ I
    
16.      Iifun : HFor("f"), Adots,50
    
17. , y! F# B! D\\" U  x1 j
18. };- V' T$ k: f* ^. e. g
    

!using("fc2d","IMSL","XSLSF");<font class=\\"jammer\\">5 m4 T\\" k! H8 M& U- ~$ @</font><br /> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<br /> <span style=\\"display:none\\">! q0 K, b# P( c' ^7 }+ Y. g, s8 _</span> h(x)=5*x;<font class=\\"jammer\\">+ {3 H2 _8 O# \. N) d3 `, M0 H% j</font><br /> g(x::b)=-2*x+b;<br /> <span style=\\"display:none\\">1 _2 B8 ?5 c  d- X6 H4 ]. H; x</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];<font class=\\"jammer\\">5 r; I9 a' S9 b, j$ K/ f</font><br /> ClearImslErr(),<br /> <span style=\\"display:none\\">$ m! R$ ?$ _% w0 P</span> Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,<font class=\\"jammer\\">\\" c7 `! k- n& @! Q) Y/ [0 y$ k/ I</font><br />      Iifun : HFor("f"), Adots,50<br /> <span style=\\"display:none\\">, y! F# B! D\\" U  x1 j</span> };<font class=\\"jammer\\">- V' T$ k: f* ^. e. g</font><br />

图形如下：