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

forcal

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

% ^+ [$ I. X& q请大家说说目前的动态绘制函数图形的库都有哪些？特点是什么？以便作为参考。

# W+ P# f  ?$ m+ @6 T3 a9 n请对FC2D留下宝贵意见，以便以后改进，谢谢！

琛卜燕_M67

好帖，有才！
# Y* U2 W1 k" w7 E: \
! S* G+ a8 [$ `6 H. U$ f

( a9 V( g+ Q8 F. ]6 t9 r3 D) M0 B- H% R

" R. ^7 e* P' \' M/ B. j2 u
# g2 j$ B, [! x) P0 Z5 t, M7 e

+ y: {5 `, v7 F) R7 \& z! F2 L
3 C" A4 S* [( X
# ^& j' c5 Y2 d8 \" A" G

xiaowang138

谢谢分享哈

forcal

8＃的公式决定的隐函数是个多值函数。
) R  U' F* N' f4 Y所有a=b-2的数对(a,b)都是方程的解。还有一些其他解。
所以用隐函数绘图会更合适，难点在于计算量非常大。
/ }! p( p# T: K) R% Q+ l7 c6 n
以下是Forcal的隐函数绘图代码：a取-3～3，b取-2～5，绘图点数取50
8 O; J3 u* I. o7 O' H5 T8 T

2. !using("fc2d","IMSL","XSLSF");
   
3. 1 K& k+ {# [\\" U+ `9 C# d
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;( {. k: l. M( V* F/ g. u( l% n
   
6. h(x)=5*x;
   
7. . S  i3 i, a9 m$ \\\" E1 T* L. M0 C
8. g(x::b)=-2*x+b;- i0 w- a* J1 O, p( K9 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];7 X3 p. F. Y7 W
    
12. ClearImslErr(),
    
13. 5 f) L# B- g9 I4 k
14. Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,2 v7 p. P2 E$ [( \\\" O: o
    
16.      Iifun : HFor("f"), Adots,50
    
17. 6 w% _9 K3 n& l9 ]: T0 Q\\" c
18. };9 a$ d- K$ v2 W$ ]
    

!using("fc2d","IMSL","XSLSF");<br /> <span style=\\"display:none\\">1 K& k+ {# [\\" U+ `9 C# d</span> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<font class=\\"jammer\\">( {. k: l. M( V* F/ g. u( l% n</font><br /> h(x)=5*x;<br /> <span style=\\"display:none\\">. S  i3 i, a9 m$ \\\" E1 T* L. M0 C</span> g(x::b)=-2*x+b;<font class=\\"jammer\\">- i0 w- a* J1 O, p( K9 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];<font class=\\"jammer\\">7 X3 p. F. Y7 W</font><br /> ClearImslErr(),<br /> <span style=\\"display:none\\">5 f) L# B- g9 I4 k</span> Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,<font class=\\"jammer\\">2 v7 p. P2 E$ [( \\\" O: o</font><br />      Iifun : HFor("f"), Adots,50<br /> <span style=\\"display:none\\">6 w% _9 K3 n& l9 ]: T0 Q\\" c</span> };<font class=\\"jammer\\">9 a$ d- K$ v2 W$ ]</font><br />

图形如下：

forcal

图怎么看不清呢？再上传一次试试。
; Z! `: I6 \$ ?  a1 v0 `4 l0 Q2 x楼上的问题图：
1 ^% \+ o# c$ X, `9 `" e1 U
函数图形：

forcal

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

, {9 t$ i0 k: l1 tForcal代码：
! O/ i; x% `; D6 I0 A% O

2. !using("fc2d","IMSL","XSLSF");& ]4 U* M/ f0 v1 V0 ?. Q0 N
   
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;( h# i6 `. H+ B  Y% ?# d
   
6. h(x)=5*x;
   
7. . E/ @1 t5 T2 A. Q
8. g(x::b)=-2*x+b;
   
9. * Y) M. E\\" g  H
10. f(bb::a,b)= b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];
    
11. * n+ a! C5 [& T9 `
12. fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;
    
13. ; B% O1 l: P5 _( H
14. ClearImslErr(),* y$ C+ ^, ^5 {
    
16. Plot{Iclear, Ix : -3,3, Igrid : 1,
    
17. + q( x. G, y( L
18.      Iufun : HFor("fb"), Adots,30
    
19. / Y/ d% f) e; j. A
20. };' G$ R, A, \: j' K
    

!using("fc2d","IMSL","XSLSF");<font class=\\"jammer\\">& ]4 U* M/ f0 v1 V0 ?. Q0 N</font><br /> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<font class=\\"jammer\\">( h# i6 `. H+ B  Y% ?# d</font><br /> h(x)=5*x;<br /> <span style=\\"display:none\\">. E/ @1 t5 T2 A. Q</span> g(x::b)=-2*x+b;<br /> <span style=\\"display:none\\">* Y) M. E\\" g  H</span> 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\\">* n+ a! C5 [& T9 `</span> fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;<br /> <span style=\\"display:none\\">; B% O1 l: P5 _( H</span> ClearImslErr(),<font class=\\"jammer\\">* y$ C+ ^, ^5 {</font><br /> Plot{Iclear, Ix : -3,3, Igrid : 1,<br /> <span style=\\"display:none\\">+ q( x. G, y( L</span>      Iufun : HFor("fb"), Adots,30<br /> <span style=\\"display:none\\">/ Y/ d% f) e; j. A</span> };<font class=\\"jammer\\">' G$ R, A, \: j' K</font><br />

图形如下：
$ C: J. Z- M5 U' A2 _5 w7 v! j
所有的点(a,b)如下：
# q8 c1 w' n  @-3. , 5.677964685436554e-002
-2.793103448275862 , 0.113926626758415
4 s( ~% t0 A, L8 [& e+ D-2.586206896551724 , 0.1794836885445007
-2.379310344827586 , 0.2582958827136312
) h6 }5 @+ P) f( e0 j-2.172413793103448 , 0.3678246226201311
-1.965517241379311 , 0.4854053136248959
3 \/ S3 y* L! @; Z8 i$ K-1.758620689655173 , 0.3109675572745501
0 _( W8 U& B* p0 H( N+ ~-1.551724137931035 , 0.4482758622854263
' E8 l' R, y: [. \& x7 J* G7 w) r6 F-1.344827586206897 , 0.6551724398984934
4 |2 i$ M& i9 V& [* n/ L1 @- ^( i-1.137931034482759 , 0.8620689655216192
) e9 l3 K, r9 U: Y. w7 b  V- c+ b+ Y$ x. ^* M-0.931034482758621 , 1.06896551724139
-0.7241379310344831 , 0.9928357579204139
-0.5172413793103452 , 1.482758620687618
4 j6 j/ R# s4 I. b+ e% B-0.3103448275862073 , 1.689655172413478
, {) f* n1 K5 {8 |9 e-0.1034482758620694 , 1.810803012030456
  g# R" P* u9 y8 y( K  X0.1034482758620686 , 1.762128999758652
% j) b3 r1 w( p4 K0.3103448275862065 , 1.895805254542486
0.5172413793103444 , 2.022877410009786
0.7241379310344823 , 2.153694202098552
* R% O7 K1 i, P5 `0.9310344827586202 , 2.320359396161155
$ \  L( Z9 N; R; R1.137931034482758 , 2.513284341824756
1.344827586206896 , 2.7264453989435
1.551724137931034 , 2.925615642424742
1.758620689655172 , 3.096868663763255
1.96551724137931 , 3.264359697730042
2.172413793103448 , 3.443077817907455
- g: E& u3 g$ O3 \- q2.379310344827586 , 4.4368980745608
' C: z$ j1 w5 q6 `5 o+ _- L2.586206896551724 , 4.635103786282911
& K: ~. N5 \7 |/ W" Q7 q2.793103448275862 , 2.815981856569838e-004
3. , 2.885091408164247e-004

dingpeng123

谢谢了，很有用啊！！！

forcal

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

liujinshan_135

加油加油加油加油加油

forcal

谢谢楼上两位！
可下载OpenFC体验一下：http://www.forcal.net/xiazai/forcal9/openfc32w.rar