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

forcal

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

请大家说说目前的动态绘制函数图形的库都有哪些？特点是什么？以便作为参考。
1 u& L( \, H' V' Y) D6 y2 ^, Y
* K4 U% ~. H( M( W请对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

绘制如下含参变量二重积分的隐函数图形：
! c/ {, J! V; @, b: D* R
Forcal代码：

2. !using("fc2d","IMSL","XSLSF");
   
3. ; p0 P% A( A1 u: u/ H
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;
   
5. 6 I; a3 O; @% ^# B' W  n! _
6. h(x)=5*x;
   
7. 8 L9 b1 ^2 I- I  v# N
8. g(x::b)=-2*x+b;
   
9. + ~! m* S; k# d
10. f(bb::a,b)= b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];
    
11. 6 l9 F+ f( u% C8 A1 ^+ u
12. fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;) R. W8 C+ H# Z
    
14. ClearImslErr(),
    
15. , S7 S' j+ u) j* Z8 {7 D
16. Plot{Iclear, Ix : -3,3, Igrid : 1,
    
17. 9 E1 k% a  ~; `) `  ]1 V7 }9 M. i+ l
18.      Iufun : HFor("fb"), Adots,30
    
19. \\" N* I5 }9 X$ N4 x
20. };( r7 @. \. Z- c* n
    

!using("fc2d","IMSL","XSLSF");<br /> <span style=\\"display:none\\">; p0 P% A( A1 u: u/ H</span> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<br /> <span style=\\"display:none\\">6 I; a3 O; @% ^# B' W  n! _</span> h(x)=5*x;<br /> <span style=\\"display:none\\">8 L9 b1 ^2 I- I  v# N</span> g(x::b)=-2*x+b;<br /> <span style=\\"display:none\\">+ ~! m* S; k# d</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\\">6 l9 F+ f( u% C8 A1 ^+ u</span> fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;<font class=\\"jammer\\">) R. W8 C+ H# Z</font><br /> ClearImslErr(),<br /> <span style=\\"display:none\\">, S7 S' j+ u) j* Z8 {7 D</span> Plot{Iclear, Ix : -3,3, Igrid : 1,<br /> <span style=\\"display:none\\">9 E1 k% a  ~; `) `  ]1 V7 }9 M. i+ l</span>      Iufun : HFor("fb"), Adots,30<br /> <span style=\\"display:none\\">\\" N* I5 }9 X$ N4 x</span> };<font class=\\"jammer\\">( r7 @. \. Z- c* n</font><br />

图形如下：
5 y" ^2 w: R8 U/ Q: I3 s
+ t, J  p7 \1 S; s6 K所有的点(a,b)如下：
-3. , 5.677964685436554e-002
/ f$ ]1 f* ]3 C* l7 R-2.793103448275862 , 0.113926626758415
1 x" ]% w/ c7 X3 M1 D  q4 @& V( T-2.586206896551724 , 0.1794836885445007
-2.379310344827586 , 0.2582958827136312
-2.172413793103448 , 0.3678246226201311
-1.965517241379311 , 0.4854053136248959
-1.758620689655173 , 0.3109675572745501
  D" N( O5 {& _& @5 L-1.551724137931035 , 0.4482758622854263
$ y, y! U" w5 S' p& c. m-1.344827586206897 , 0.6551724398984934
-1.137931034482759 , 0.8620689655216192
1 _0 {+ t* z3 R$ s. U4 T' ~9 z-0.931034482758621 , 1.06896551724139
-0.7241379310344831 , 0.9928357579204139
1 R. P, k1 E- Y* c; W! {-0.5172413793103452 , 1.482758620687618
2 i3 a7 J) U+ R6 o" l+ Y-0.3103448275862073 , 1.689655172413478
; m" ^5 s& t% _& |3 d+ l-0.1034482758620694 , 1.810803012030456
0.1034482758620686 , 1.762128999758652
" H! o5 d& j; G& }$ G4 }  s! w0.3103448275862065 , 1.895805254542486
. a* s4 z1 R0 F/ S) o& K0.5172413793103444 , 2.022877410009786
0.7241379310344823 , 2.153694202098552
, i* g1 _( z  y8 F. C( J0.9310344827586202 , 2.320359396161155
1.137931034482758 , 2.513284341824756
1.344827586206896 , 2.7264453989435
% B+ d' b6 A: B2 P1.551724137931034 , 2.925615642424742
+ `& m& [; V* N1.758620689655172 , 3.096868663763255
+ M  b* c; [' }' X4 X1.96551724137931 , 3.264359697730042
1 [9 w$ ]/ d3 U7 P- u2.172413793103448 , 3.443077817907455
. k& h2 R/ ^, s: w5 M0 k2.379310344827586 , 4.4368980745608
7 W/ F* {6 b) ?1 [2.586206896551724 , 4.635103786282911
2.793103448275862 , 2.815981856569838e-004
  T: B) ?1 M8 \5 V; K2 T! I3. , 2.885091408164247e-004
! ]& i1 @3 p& m) ~1 o3 P9 A9 K
6 `  J7 N( b! [, c; k/ T) J9 x# d1 R

forcal

图怎么看不清呢？再上传一次试试。
楼上的问题图：

函数图形：
4 C/ }6 F# n* R: D5 \

forcal

8＃的公式决定的隐函数是个多值函数。
所有a=b-2的数对(a,b)都是方程的解。还有一些其他解。
所以用隐函数绘图会更合适，难点在于计算量非常大。
4 X2 T) ?" z$ B6 {
# O7 }" I. v6 l$ t0 I/ g) S/ X4 R以下是Forcal的隐函数绘图代码：a取-3～3，b取-2～5，绘图点数取50

2. !using("fc2d","IMSL","XSLSF");7 \7 t/ w5 F3 Z& R! r, i; J# L
   
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;
   
5. 9 u) q1 c  y3 ^6 ^' l& `5 n3 C
6. h(x)=5*x;! Y, b# f+ u% Y( Z9 S$ t1 ]
   
8. g(x::b)=-2*x+b;, p1 b# v4 d. w) N+ 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];7 N; b' L' B8 G
    
12. ClearImslErr(),
    
13. 3 M8 M, O+ A$ q# J$ k. Y$ K6 W
14. Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,
    
15. \\" t' C+ L& o\\" v4 Z- {) I
16.      Iifun : HFor("f"), Adots,50
    
17. \\" j& O( D) T  K1 J  k
18. };+ n) ?8 N8 ]# J
    

!using("fc2d","IMSL","XSLSF");<font class=\\"jammer\\">7 \7 t/ w5 F3 Z& R! r, i; J# L</font><br /> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<br /> <span style=\\"display:none\\">9 u) q1 c  y3 ^6 ^' l& `5 n3 C</span> h(x)=5*x;<font class=\\"jammer\\">! Y, b# f+ u% Y( Z9 S$ t1 ]</font><br /> g(x::b)=-2*x+b;<font class=\\"jammer\\">, p1 b# v4 d. w) N+ 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\\">7 N; b' L' B8 G</font><br /> ClearImslErr(),<br /> <span style=\\"display:none\\">3 M8 M, O+ A$ q# J$ k. Y$ K6 W</span> Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,<br /> <span style=\\"display:none\\">\\" t' C+ L& o\\" v4 Z- {) I</span>      Iifun : HFor("f"), Adots,50<br /> <span style=\\"display:none\\">\\" j& O( D) T  K1 J  k</span> };<font class=\\"jammer\\">+ n) ?8 N8 ]# J</font><br />

图形如下：


  K$ x" K! N/ P' ~9 V