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

forcal

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

5 i3 b1 [" q, w0 I1 _请大家说说目前的动态绘制函数图形的库都有哪些？特点是什么？以便作为参考。
! V& _; Y  n- }3 f
$ r& J( P/ C, [2 n1 D请对FC2D留下宝贵意见，以便以后改进，谢谢！

琛卜燕_M67

好帖，有才！
# H6 L6 T/ n  v

% j+ ]+ b) H# T. B



6 z  j0 M3 c, I

9 N9 G0 C- \! E, F( @$ `. b/ b

$ D. Q/ a- x; a; _7 g7 }( r
4 [$ B5 J1 P9 G7 O, N2 C% w( P" n
8 w$ L1 u; I& N. b

xiaowang138

谢谢分享哈

forcal

8＃的公式决定的隐函数是个多值函数。
所有a=b-2的数对(a,b)都是方程的解。还有一些其他解。
所以用隐函数绘图会更合适，难点在于计算量非常大。
% u+ K7 C4 t( W+ v/ g
* E  o/ m) R+ J( P- m以下是Forcal的隐函数绘图代码：a取-3～3，b取-2～5，绘图点数取50
( A; d8 ?8 n9 |7 f3 r

2. !using("fc2d","IMSL","XSLSF");
   
3. . E1 {9 f0 b9 G* E6 o- F0 K
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;
   
5. - S2 x  t6 S, d; S7 @
6. h(x)=5*x;* g9 f\\" s2 c3 d5 K$ _8 O9 }; p
   
8. g(x::b)=-2*x+b;
   
9. - w3 T* t: Q9 E) ^6 Y
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];
    
11. ! K+ n; U2 e/ d: Q/ n
12. ClearImslErr(),
    
13. . j- I  ~8 b9 M9 }3 X0 y0 f
14. Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,
    
15. . c' z3 U1 j/ m* I
16.      Iifun : HFor("f"), Adots,50
    
17. 9 f( {- p# [) f: Q5 e
18. };
    
19. 7 B* g9 u9 Z; s$ {4 C+ J2 W\\" J0 o; ^

!using("fc2d","IMSL","XSLSF");<br /> <span style=\\"display:none\\">. E1 {9 f0 b9 G* E6 o- F0 K</span> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<br /> <span style=\\"display:none\\">- S2 x  t6 S, d; S7 @</span> h(x)=5*x;<font class=\\"jammer\\">* g9 f\\" s2 c3 d5 K$ _8 O9 }; p</font><br /> g(x::b)=-2*x+b;<br /> <span style=\\"display:none\\">- w3 T* t: Q9 E) ^6 Y</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];<br /> <span style=\\"display:none\\">! K+ n; U2 e/ d: Q/ n</span> ClearImslErr(),<br /> <span style=\\"display:none\\">. j- I  ~8 b9 M9 }3 X0 y0 f</span> Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,<br /> <span style=\\"display:none\\">. c' z3 U1 j/ m* I</span>      Iifun : HFor("f"), Adots,50<br /> <span style=\\"display:none\\">9 f( {- p# [) f: Q5 e</span> };<br /> <span style=\\"display:none\\">7 B* g9 u9 Z; s$ {4 C+ J2 W\\" J0 o; ^</span>

图形如下：

* s  z' t: a$ s" R! _' j
0 q% \9 \+ |, Q' U8 C, N1 b' M

forcal

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

# ^8 E  t+ B' A' q3 ]! w7 m函数图形：
4 ?. M7 }4 ^, Q% ^1 W
1 p, ^- x/ G7 [% s% @: N# O

forcal

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

! u) g# Z' C- G/ v2 J: GForcal代码：
8 x/ T, D. X, ~+ n0 w8 L

2. !using("fc2d","IMSL","XSLSF");3 I) F# H2 R  a: f) R7 U
   
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;4 X9 O& W- i' d0 w
   
6. h(x)=5*x;( B/ r& @3 S7 ^* |% t/ q1 K& p( N
   
8. g(x::b)=-2*x+b;: k6 M1 {2 [, M$ R\\" M8 a2 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. 2 R9 U. V9 w, w8 g
12. fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;, _1 J3 o3 t: M4 p\\" B! {* r0 X% O7 v
    
14. ClearImslErr(),  X# Z% R: [% f  ^0 a/ j
    
16. Plot{Iclear, Ix : -3,3, Igrid : 1,
    
17. : N5 l+ C( Y* j  Y+ z
18.      Iufun : HFor("fb"), Adots,30. `& {; k9 w7 e& o3 p5 p) c
    
20. };! c. F+ t\\" J9 q8 x  _
    

!using("fc2d","IMSL","XSLSF");<font class=\\"jammer\\">3 I) F# H2 R  a: f) R7 U</font><br /> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<font class=\\"jammer\\">4 X9 O& W- i' d0 w</font><br /> h(x)=5*x;<font class=\\"jammer\\">( B/ r& @3 S7 ^* |% t/ q1 K& p( N</font><br /> g(x::b)=-2*x+b;<font class=\\"jammer\\">: k6 M1 {2 [, M$ R\\" M8 a2 d</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\\">2 R9 U. V9 w, w8 g</span> fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;<font class=\\"jammer\\">, _1 J3 o3 t: M4 p\\" B! {* r0 X% O7 v</font><br /> ClearImslErr(),<font class=\\"jammer\\">  X# Z% R: [% f  ^0 a/ j</font><br /> Plot{Iclear, Ix : -3,3, Igrid : 1,<br /> <span style=\\"display:none\\">: N5 l+ C( Y* j  Y+ z</span>      Iufun : HFor("fb"), Adots,30<font class=\\"jammer\\">. `& {; k9 w7 e& o3 p5 p) c</font><br /> };<font class=\\"jammer\\">! c. F+ t\\" J9 q8 x  _</font><br />

图形如下：
% ~( W0 y8 S1 V7 [" ^7 Z, H
& o% K/ g7 d* r所有的点(a,b)如下：
-3. , 5.677964685436554e-002
-2.793103448275862 , 0.113926626758415
-2.586206896551724 , 0.1794836885445007
6 l. S/ D: `' q-2.379310344827586 , 0.2582958827136312
. t/ B/ B% t7 I2 w3 b$ E-2.172413793103448 , 0.3678246226201311
-1.965517241379311 , 0.4854053136248959
-1.758620689655173 , 0.3109675572745501
-1.551724137931035 , 0.4482758622854263
-1.344827586206897 , 0.6551724398984934
! h, U5 N# z, b9 r1 r. ~-1.137931034482759 , 0.8620689655216192
  p5 c4 x: X2 b8 N' Q7 v9 K- D-0.931034482758621 , 1.06896551724139
8 z: @+ i5 P, Q5 ~' f2 I+ ]  e-0.7241379310344831 , 0.9928357579204139
-0.5172413793103452 , 1.482758620687618
-0.3103448275862073 , 1.689655172413478
+ S) V  Y1 H# B+ ~- v3 `) V0 Y-0.1034482758620694 , 1.810803012030456
4 l6 c" Q, k2 B! S0.1034482758620686 , 1.762128999758652
0.3103448275862065 , 1.895805254542486
0.5172413793103444 , 2.022877410009786
0 q3 `  A2 W9 a0.7241379310344823 , 2.153694202098552
( D- [; @5 ^, G, a0.9310344827586202 , 2.320359396161155
1.137931034482758 , 2.513284341824756
1.344827586206896 , 2.7264453989435
1 U1 D0 W; ~# ^/ ]8 E1.551724137931034 , 2.925615642424742
5 A+ D9 [  x+ N# _3 G1.758620689655172 , 3.096868663763255
2 o  V& Z5 o+ _( ~9 k1.96551724137931 , 3.264359697730042
2.172413793103448 , 3.443077817907455
4 g# [( _, ~+ D/ d2.379310344827586 , 4.4368980745608
) c' c3 V( G+ ]& {$ @2.586206896551724 , 4.635103786282911
2.793103448275862 , 2.815981856569838e-004
3. , 2.885091408164247e-004

# U  {8 Y: c: G/ |# @. T6 u3 F

dingpeng123

谢谢了，很有用啊！！！

forcal

FC2D最近更新：Plot函数用法有变化，增加了更多选项和属性
  y4 z2 a* K) q3 z8 E/ |3 n+ r) S参考：http://www.forcal.net/sysm/forcal9/fchtm/fc2d.htm

liujinshan_135

加油加油加油加油加油

forcal

谢谢楼上两位！
4 ^( f* \$ z* D% i0 X7 x可下载OpenFC体验一下：http://www.forcal.net/xiazai/forcal9/openfc32w.rar