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

forcal

多线程动态绘制图形是FC2D的基本特点。
1 x% j4 @* T0 S5 l7 T% C参考：http://www.forcal.net/sysm/forcal9/fchtm/fc2d.htm
$ @1 s0 w- @7 p; _+ D  L6 a' j. R
请大家说说目前的动态绘制函数图形的库都有哪些？特点是什么？以便作为参考。

. P; f* A, D# E' X' |& z请对FC2D留下宝贵意见，以便以后改进，谢谢！

柯雷

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

猴王再世

顶！

forcal

谢谢楼上两位！
  R: a% O$ {, W* e) X7 {; _; }$ t! W) ^可下载OpenFC体验一下：http://www.forcal.net/xiazai/forcal9/openfc32w.rar

liujinshan_135

加油加油加油加油加油

forcal

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

dingpeng123

谢谢了，很有用啊！！！

forcal

绘制如下含参变量二重积分的隐函数图形：
3 D+ Y2 y# g' t1 }! R% Q4 N( o
8 _; l* m, u' j- B# JForcal代码：
3 `) K  K4 u& \! J" e6 a

2. !using("fc2d","IMSL","XSLSF");
   
3. 6 ?9 X; K7 |/ u8 G: m
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;; ]1 A5 J  U5 w7 p( t& R
   
6. h(x)=5*x;
   
7. - C! b& v# i# L0 K, t
8. g(x::b)=-2*x+b;- f- l\\" Q\\" P3 m+ o$ z
   
10. f(bb::a,b)= b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];( v: g  [7 T! l2 V) l3 r8 A7 r
    
12. fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;
    
13. % k4 L  u* i9 }$ N7 n, g\\" x( }
14. ClearImslErr(),9 V8 P! u& C2 i5 g( v; W8 h2 v
    
16. Plot{Iclear, Ix : -3,3, Igrid : 1,! i\\" V6 Z& W0 Z, N2 {8 h
    
18.      Iufun : HFor("fb"), Adots,30
    
19. # {) M* d& T8 e0 Y\\" t$ _
20. };# _2 l, ~: h5 z( B
    

!using("fc2d","IMSL","XSLSF");<br /> <span style=\\"display:none\\">6 ?9 X; K7 |/ u8 G: m</span> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<font class=\\"jammer\\">; ]1 A5 J  U5 w7 p( t& R</font><br /> h(x)=5*x;<br /> <span style=\\"display:none\\">- C! b& v# i# L0 K, t</span> g(x::b)=-2*x+b;<font class=\\"jammer\\">- f- l\\" Q\\" P3 m+ o$ 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];<font class=\\"jammer\\">( v: g  [7 T! l2 V) l3 r8 A7 r</font><br /> fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;<br /> <span style=\\"display:none\\">% k4 L  u* i9 }$ N7 n, g\\" x( }</span> ClearImslErr(),<font class=\\"jammer\\">9 V8 P! u& C2 i5 g( v; W8 h2 v</font><br /> Plot{Iclear, Ix : -3,3, Igrid : 1,<font class=\\"jammer\\">! i\\" V6 Z& W0 Z, N2 {8 h</font><br />      Iufun : HFor("fb"), Adots,30<br /> <span style=\\"display:none\\"># {) M* d& T8 e0 Y\\" t$ _</span> };<font class=\\"jammer\\"># _2 l, ~: h5 z( B</font><br />

图形如下：
# S" ^9 X* n5 T% K, \: V  i8 l+ m- E
# a5 r/ N" m  K所有的点(a,b)如下：
2 v' N* _( ]' u' Q9 L-3. , 5.677964685436554e-002
1 U$ t, T2 m+ H& X( e-2.793103448275862 , 0.113926626758415
5 A+ t1 `8 u/ m-2.586206896551724 , 0.1794836885445007
- Q& G1 L9 T3 M; T( k# I" _6 g-2.379310344827586 , 0.2582958827136312
-2.172413793103448 , 0.3678246226201311
7 x' |( Y; j( d( u- b- D1 Y; V-1.965517241379311 , 0.4854053136248959
-1.758620689655173 , 0.3109675572745501
-1.551724137931035 , 0.4482758622854263
2 A3 q8 V# L" C  `- q-1.344827586206897 , 0.6551724398984934
-1.137931034482759 , 0.8620689655216192
  Y/ y& o* M& d1 U& E% Z/ u-0.931034482758621 , 1.06896551724139
-0.7241379310344831 , 0.9928357579204139
-0.5172413793103452 , 1.482758620687618
4 g6 {  \, ]3 p! t# R/ b-0.3103448275862073 , 1.689655172413478
' n+ @& E; }$ S% B& A+ \# \' H-0.1034482758620694 , 1.810803012030456
( l6 I% P" t" [0.1034482758620686 , 1.762128999758652
0.3103448275862065 , 1.895805254542486
" H- w6 G3 ~/ q( L' P, j0.5172413793103444 , 2.022877410009786
0.7241379310344823 , 2.153694202098552
) f$ q5 G& |( Q" M3 D5 i7 x' m0.9310344827586202 , 2.320359396161155
1.137931034482758 , 2.513284341824756
1.344827586206896 , 2.7264453989435
; V8 p/ x" G. v& o$ i+ e1.551724137931034 , 2.925615642424742
. e2 y8 \% ~7 b7 Z  y4 D1.758620689655172 , 3.096868663763255
' U2 n6 J& B0 S1.96551724137931 , 3.264359697730042
2.172413793103448 , 3.443077817907455
2.379310344827586 , 4.4368980745608
( B1 k3 B, Z/ O6 u0 U2.586206896551724 , 4.635103786282911
+ e. H. o2 _# Y* e0 m7 M2.793103448275862 , 2.815981856569838e-004
  L- R! G, M& a! d5 i3. , 2.885091408164247e-004
5 U5 {* K  u# T3 |7 s

forcal

图怎么看不清呢？再上传一次试试。
' Z5 T7 q' x' ]楼上的问题图：
% F. t* m+ ~+ J$ \/ `' @3 }  z
函数图形：
( V: K. f5 D# X* x) r1 _* x
. M3 J3 X! ?+ r9 c/ x

forcal

8＃的公式决定的隐函数是个多值函数。
- [9 {+ _( _: \0 W所有a=b-2的数对(a,b)都是方程的解。还有一些其他解。
所以用隐函数绘图会更合适，难点在于计算量非常大。

+ f4 i, c! X9 r以下是Forcal的隐函数绘图代码：a取-3～3，b取-2～5，绘图点数取50
' h) X3 j$ K+ i% I& W" T

2. !using("fc2d","IMSL","XSLSF");
   
3. 5 T# o( X6 a4 ^0 I
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;2 ^; s# \  }5 `; E
   
6. h(x)=5*x;
   
7. ' U3 w% ^. e' {- A  V& W
8. g(x::b)=-2*x+b;, n  D& I\\" W( T; O' }# h. 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];\\" I, E: R- X8 V( c- ^
    
12. ClearImslErr(),
    
13. $ f; e1 P4 W7 E# s( e+ u
14. Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,
    
15. 7 c) ]* Z7 S. g: g% O
16.      Iifun : HFor("f"), Adots,50
    
17. , N2 f' S0 K/ J' Z& v8 T
18. };
    
19. / Q# F8 M0 p+ @9 C' M; T3 x5 d

!using("fc2d","IMSL","XSLSF");<br /> <span style=\\"display:none\\">5 T# o( X6 a4 ^0 I</span> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<font class=\\"jammer\\">2 ^; s# \  }5 `; E</font><br /> h(x)=5*x;<br /> <span style=\\"display:none\\">' U3 w% ^. e' {- A  V& W</span> g(x::b)=-2*x+b;<font class=\\"jammer\\">, n  D& I\\" W( T; O' }# h. 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];<font class=\\"jammer\\">\\" I, E: R- X8 V( c- ^</font><br /> ClearImslErr(),<br /> <span style=\\"display:none\\">$ f; e1 P4 W7 E# s( e+ u</span> Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,<br /> <span style=\\"display:none\\">7 c) ]* Z7 S. g: g% O</span>      Iifun : HFor("f"), Adots,50<br /> <span style=\\"display:none\\">, N2 f' S0 K/ J' Z& v8 T</span> };<br /> <span style=\\"display:none\\">/ Q# F8 M0 p+ @9 C' M; T3 x5 d</span>

图形如下：

! T/ I7 S" B9 N+ z0 F
6 \# @) G. U6 }2 Y