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

forcal

多线程动态绘制图形是FC2D的基本特点。
参考：http://www.forcal.net/sysm/forcal9/fchtm/fc2d.htm
$ G" C6 D0 G' f- ?
请大家说说目前的动态绘制函数图形的库都有哪些？特点是什么？以便作为参考。
/ q/ O: Y6 Y5 \1 L, L
1 W9 u- x+ _2 K2 I请对FC2D留下宝贵意见，以便以后改进，谢谢！

琛卜燕_M67

好帖，有才！


% g0 C+ J  J3 p: e! Q6 i! i" u
3 k; ?% V4 Y; f4 C% {( i

5 }- h; |8 I2 l7 E

$ O: O8 Y5 Y" f1 ]' H& N( V0 x
1 z# n9 i) x" M, h

2 n1 M8 P3 C6 x# B! \. A
/ {+ c/ Z6 e$ B( y/ C
+ g5 B. M; |( D$ m7 O; Z

xiaowang138

谢谢分享哈

forcal

8＃的公式决定的隐函数是个多值函数。
所有a=b-2的数对(a,b)都是方程的解。还有一些其他解。
2 z) i0 G9 q2 W& N4 D6 K6 O所以用隐函数绘图会更合适，难点在于计算量非常大。
0 s8 p; l1 r' @
以下是Forcal的隐函数绘图代码：a取-3～3，b取-2～5，绘图点数取50

2. !using("fc2d","IMSL","XSLSF");
   
3. 7 @4 ]/ s. q6 W1 e  Q2 a
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;: X& \6 R! L, s( h& e
   
6. h(x)=5*x;
   
7. 7 K( T  T8 F- ~\\" C3 G+ X1 x% Q4 z0 Y% w4 m
8. g(x::b)=-2*x+b;* d4 C0 |9 ?\\" g! I
   
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];/ U- T) l) W' }3 X7 l0 Z\\" t
    
12. ClearImslErr(),
    
13. 9 E8 N5 Q$ O8 Z# T3 P/ p* f
14. Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,
    
15. ; {  m. M& C+ f4 h
16.      Iifun : HFor("f"), Adots,50
    
17.   S4 P$ ~+ z  E) x+ A' E$ Y! a
18. };9 [8 E1 d# U+ J& u. D; l
    

!using("fc2d","IMSL","XSLSF");<br /> <span style=\\"display:none\\">7 @4 ]/ s. q6 W1 e  Q2 a</span> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<font class=\\"jammer\\">: X& \6 R! L, s( h& e</font><br /> h(x)=5*x;<br /> <span style=\\"display:none\\">7 K( T  T8 F- ~\\" C3 G+ X1 x% Q4 z0 Y% w4 m</span> g(x::b)=-2*x+b;<font class=\\"jammer\\">* d4 C0 |9 ?\\" g! I</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\\">/ U- T) l) W' }3 X7 l0 Z\\" t</font><br /> ClearImslErr(),<br /> <span style=\\"display:none\\">9 E8 N5 Q$ O8 Z# T3 P/ p* f</span> Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,<br /> <span style=\\"display:none\\">; {  m. M& C+ f4 h</span>      Iifun : HFor("f"), Adots,50<br /> <span style=\\"display:none\\">  S4 P$ ~+ z  E) x+ A' E$ Y! a</span> };<font class=\\"jammer\\">9 [8 E1 d# U+ J& u. D; l</font><br />

图形如下：
' f8 T2 f5 ?; S+ W  p

1 I( n- Q! E0 T( V2 J; H3 E

forcal

图怎么看不清呢？再上传一次试试。
楼上的问题图：
1 v8 |- g& _% [% c: I% b7 d% C
% A& m8 x1 q" {1 X$ U, i# \: h函数图形：
/ ~7 H9 s$ @, u6 a5 m- {) r- H; @

forcal

绘制如下含参变量二重积分的隐函数图形：
: r( F2 j7 q4 ?- ~: a) R
Forcal代码：
2 ~1 K+ ~" Q3 k

2. !using("fc2d","IMSL","XSLSF");
   
3. 5 _  U\\" y, a0 [; H. @
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;/ Y\\" m/ x' L5 @' l
   
6. h(x)=5*x;
   
7. . m( U- I9 @9 u
8. g(x::b)=-2*x+b;4 z7 I. p# A7 s  {. ], q: s4 |
   
10. f(bb::a,b)= b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];# H1 `4 g' ~2 i1 {1 k
    
12. fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;
    
13. 9 v) V4 _8 p1 x& r2 h
14. ClearImslErr(),
    
15. + H3 v5 V- e# b) y. k
16. Plot{Iclear, Ix : -3,3, Igrid : 1,9 F6 ?: ^1 `# Z, s+ A
    
18.      Iufun : HFor("fb"), Adots,30\\" h& F5 f* O$ u4 D/ P9 o, C
    
20. };
    
21. 7 K/ S  [/ J4 I\\" d( K5 y! C/ E

!using("fc2d","IMSL","XSLSF");<br /> <span style=\\"display:none\\">5 _  U\\" y, a0 [; H. @</span> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<font class=\\"jammer\\">/ Y\\" m/ x' L5 @' l</font><br /> h(x)=5*x;<br /> <span style=\\"display:none\\">. m( U- I9 @9 u</span> g(x::b)=-2*x+b;<font class=\\"jammer\\">4 z7 I. p# A7 s  {. ], q: s4 |</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\\"># H1 `4 g' ~2 i1 {1 k</font><br /> fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;<br /> <span style=\\"display:none\\">9 v) V4 _8 p1 x& r2 h</span> ClearImslErr(),<br /> <span style=\\"display:none\\">+ H3 v5 V- e# b) y. k</span> Plot{Iclear, Ix : -3,3, Igrid : 1,<font class=\\"jammer\\">9 F6 ?: ^1 `# Z, s+ A</font><br />      Iufun : HFor("fb"), Adots,30<font class=\\"jammer\\">\\" h& F5 f* O$ u4 D/ P9 o, C</font><br /> };<br /> <span style=\\"display:none\\">7 K/ S  [/ J4 I\\" d( K5 y! C/ E</span>

图形如下：
2 [8 [' t3 C. S4 c& O5 \$ n: o
所有的点(a,b)如下：
-3. , 5.677964685436554e-002
2 M- H6 [* p0 [' x" D: v-2.793103448275862 , 0.113926626758415
-2.586206896551724 , 0.1794836885445007
-2.379310344827586 , 0.2582958827136312
-2.172413793103448 , 0.3678246226201311
-1.965517241379311 , 0.4854053136248959
4 r& a9 R( C+ }- y-1.758620689655173 , 0.3109675572745501
7 w; B- N/ J7 i: G) c7 J& B: o-1.551724137931035 , 0.4482758622854263
; b9 f8 M3 \! p! K* S) p-1.344827586206897 , 0.6551724398984934
$ T: e3 e! l/ e, }" p-1.137931034482759 , 0.8620689655216192
-0.931034482758621 , 1.06896551724139
! e( |! W3 h( [$ d2 o- u6 k) b9 \-0.7241379310344831 , 0.9928357579204139
-0.5172413793103452 , 1.482758620687618
-0.3103448275862073 , 1.689655172413478
-0.1034482758620694 , 1.810803012030456
7 `9 i  Z% D9 E- D6 G0.1034482758620686 , 1.762128999758652
4 d* F3 g" U* J* s6 P0 W2 W2 N0.3103448275862065 , 1.895805254542486
- @) M) ?! v/ I" y& a0.5172413793103444 , 2.022877410009786
, M0 P/ l* H" i; U! G# O0.7241379310344823 , 2.153694202098552
* C. d- C5 b# y. k; z, O0 r0.9310344827586202 , 2.320359396161155
; m6 H1 P1 G; r8 `6 R7 Z6 ~1.137931034482758 , 2.513284341824756
1.344827586206896 , 2.7264453989435
1.551724137931034 , 2.925615642424742
1.758620689655172 , 3.096868663763255
6 L2 m0 j5 \6 q* V. E, T1.96551724137931 , 3.264359697730042
  P+ J+ [7 D2 s2 ~4 Q  b2.172413793103448 , 3.443077817907455
2.379310344827586 , 4.4368980745608
2.586206896551724 , 4.635103786282911
4 N+ \4 C0 U- |2.793103448275862 , 2.815981856569838e-004
3. , 2.885091408164247e-004
8 q7 B! h1 U* m, _- b
; D: E) {, q0 `- U! f

dingpeng123

谢谢了，很有用啊！！！

forcal

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

liujinshan_135

加油加油加油加油加油

forcal

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