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

forcal

多线程动态绘制图形是FC2D的基本特点。
参考：http://www.forcal.net/sysm/forcal9/fchtm/fc2d.htm
' H4 Q6 N& R# `% y  c  S3 {
9 x7 F# p. _; E! r- [3 n- r+ g& O6 R请大家说说目前的动态绘制函数图形的库都有哪些？特点是什么？以便作为参考。
9 }" K  T; ]$ B# a1 y$ e
: J$ X7 L1 K) L5 v$ B请对FC2D留下宝贵意见，以便以后改进，谢谢！

琛卜燕_M67

好帖，有才！

2 Z0 A# u+ G" A0 f4 F

' k2 j& e" F  }. s
1 V+ o# G! l2 a3 V$ I



$ t3 V' ~  O' l( ?


$ s1 `, q; A. ^

xiaowang138

谢谢分享哈

forcal

8＃的公式决定的隐函数是个多值函数。
6 A0 P( M: S; W# U6 H& l2 \, S所有a=b-2的数对(a,b)都是方程的解。还有一些其他解。
( D: ?0 w$ F! u/ O/ Q所以用隐函数绘图会更合适，难点在于计算量非常大。

% r' B4 |. u: j5 f) Q6 L/ R6 k' @; t以下是Forcal的隐函数绘图代码：a取-3～3，b取-2～5，绘图点数取50

2. !using("fc2d","IMSL","XSLSF");& ~8 @8 Q6 P8 F4 Z& P
   
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;3 i# H) i1 g) u& [  u\\" y5 r
   
6. h(x)=5*x;
   
7. * D2 |$ b& @  C6 m# p
8. g(x::b)=-2*x+b;
   
9. # m. g6 r: D: q& S( q
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. ' `4 _6 g* `3 i* N/ I! \
12. ClearImslErr(),/ R$ L$ U7 ?\\" X3 F
    
14. Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,
    
15. , e$ n) x* I7 ?& q
16.      Iifun : HFor("f"), Adots,50
    
17. ' e\\" ^1 T8 U  v& |/ S
18. };6 ?\\" Z% B6 n( M6 t8 }0 z9 o
    

!using("fc2d","IMSL","XSLSF");<font class=\\"jammer\\">& ~8 @8 Q6 P8 F4 Z& P</font><br /> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<font class=\\"jammer\\">3 i# H) i1 g) u& [  u\\" y5 r</font><br /> h(x)=5*x;<br /> <span style=\\"display:none\\">* D2 |$ b& @  C6 m# p</span> g(x::b)=-2*x+b;<br /> <span style=\\"display:none\\"># m. g6 r: D: q& S( q</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\\">' `4 _6 g* `3 i* N/ I! \</span> ClearImslErr(),<font class=\\"jammer\\">/ R$ L$ U7 ?\\" X3 F</font><br /> Plot{Iclear, Ix : -3,3, Iy : -2,5, Iydynamic : 0, Igrid : 1,<br /> <span style=\\"display:none\\">, e$ n) x* I7 ?& q</span>      Iifun : HFor("f"), Adots,50<br /> <span style=\\"display:none\\">' e\\" ^1 T8 U  v& |/ S</span> };<font class=\\"jammer\\">6 ?\\" Z% B6 n( M6 t8 }0 z9 o</font><br />

图形如下：
0 ]7 C* |9 \5 i! _

forcal

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

函数图形：
4 p5 w' u: H/ c
# \& k! w7 p5 ?& ^/ f! A

forcal

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

# {, y+ @8 d$ A) c# FForcal代码：

2. !using("fc2d","IMSL","XSLSF");
   
3.   o\\" ?! b2 u& Q
4. ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;
   
5. ' s5 a7 M+ Z. T; N7 u
6. h(x)=5*x;( i  l0 X9 W0 {7 d3 o+ Q6 T
   
8. g(x::b)=-2*x+b;4 |# }  F. r( b/ w3 K
   
10. f(bb::a,b)= b=bb, TWODQ[HFor("ff"),0,a-b+2,HFor("g"),HFor("h"),1e-6,0,6,0];
    
11. / J5 t4 N+ I, r! \6 a4 K
12. fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;/ b2 m: U8 |  r& f7 W' O! A
    
14. ClearImslErr(),
    
15. 1 }7 D$ ?' B# x/ p2 v% J$ `
16. Plot{Iclear, Ix : -3,3, Igrid : 1,+ U+ V, C' p1 {) T
    
18.      Iufun : HFor("fb"), Adots,30
    
19. 1 F, C9 E. d; p6 L/ t9 _! T
20. };
    
21. . ]2 j' F3 H7 {

!using("fc2d","IMSL","XSLSF");<br /> <span style=\\"display:none\\">  o\\" ?! b2 u& Q</span> ff(x,y::a,b)=y*cos(x+y*y+a)-b*x;<br /> <span style=\\"display:none\\">' s5 a7 M+ Z. T; N7 u</span> h(x)=5*x;<font class=\\"jammer\\">( i  l0 X9 W0 {7 d3 o+ Q6 T</font><br /> g(x::b)=-2*x+b;<font class=\\"jammer\\">4 |# }  F. r( b/ w3 K</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\\">/ J5 t4 N+ I, r! \6 a4 K</span> fb(fa:bb:a)= a=fa, bb=1, pqrt[HFor("f"),&bb,1e-6],bb;<font class=\\"jammer\\">/ b2 m: U8 |  r& f7 W' O! A</font><br /> ClearImslErr(),<br /> <span style=\\"display:none\\">1 }7 D$ ?' B# x/ p2 v% J$ `</span> Plot{Iclear, Ix : -3,3, Igrid : 1,<font class=\\"jammer\\">+ U+ V, C' p1 {) T</font><br />      Iufun : HFor("fb"), Adots,30<br /> <span style=\\"display:none\\">1 F, C9 E. d; p6 L/ t9 _! T</span> };<br /> <span style=\\"display:none\\">. ]2 j' F3 H7 {</span>

图形如下：

所有的点(a,b)如下：
) j) [! q  i5 J7 ]) k-3. , 5.677964685436554e-002
+ I7 I  X# U1 C7 g3 n$ L( A4 U3 h-2.793103448275862 , 0.113926626758415
-2.586206896551724 , 0.1794836885445007
-2.379310344827586 , 0.2582958827136312
-2.172413793103448 , 0.3678246226201311
-1.965517241379311 , 0.4854053136248959
-1.758620689655173 , 0.3109675572745501
-1.551724137931035 , 0.4482758622854263
% X5 N& L% [+ M. W7 M( x/ F# G. g-1.344827586206897 , 0.6551724398984934
-1.137931034482759 , 0.8620689655216192
- J6 N' l; E: P! ]0 F-0.931034482758621 , 1.06896551724139
. U4 a2 v# p0 |3 a-0.7241379310344831 , 0.9928357579204139
-0.5172413793103452 , 1.482758620687618
) e7 ^1 s9 B3 A' [, j4 r9 Z' m-0.3103448275862073 , 1.689655172413478
/ F: ~9 P( B) |5 Q% y8 D& U-0.1034482758620694 , 1.810803012030456
9 F/ T- B; e7 W) y& q3 s0.1034482758620686 , 1.762128999758652
0.3103448275862065 , 1.895805254542486
0.5172413793103444 , 2.022877410009786
5 B# h" q% x- ]9 h- v( Y0.7241379310344823 , 2.153694202098552
. R4 m! Z0 R  K4 q0.9310344827586202 , 2.320359396161155
( C. D; e6 }% t# W, @) C1.137931034482758 , 2.513284341824756
1.344827586206896 , 2.7264453989435
' e" j& a7 Q) q; E5 }1.551724137931034 , 2.925615642424742
1.758620689655172 , 3.096868663763255
% s5 j8 T& p3 W* w" f1.96551724137931 , 3.264359697730042
/ n- j: d, d* F, Q4 W& [2.172413793103448 , 3.443077817907455
2.379310344827586 , 4.4368980745608
2.586206896551724 , 4.635103786282911
% i$ w  Q+ v# M7 ^/ {1 d2.793103448275862 , 2.815981856569838e-004
3. , 2.885091408164247e-004
  \4 V3 m7 ]- S& B0 K- S+ ^
" N5 T: C; B& E3 T& v/ p5 K. a

dingpeng123

谢谢了，很有用啊！！！

forcal

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

liujinshan_135

加油加油加油加油加油

forcal

谢谢楼上两位！
; S7 X! @" l- f' ^7 O& Q( V可下载OpenFC体验一下：http://www.forcal.net/xiazai/forcal9/openfc32w.rar