本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑 7 D) u- A/ w3 x P7 F1 d
/ ]8 ^& J# j1 U; [% S
小弟初学mathematica,有些问题想请教下大哥大姐们。+ H; h( Y5 ~1 f, E4 G$ e4 @
x =.; y =.
& E1 q" Q5 ]) E# j3 h: B- d x1 = 2; y1 = 0;) S( M$ F2 k) v
x2 = 0; y2 = -1;
0 L" h8 A# g" B. U5 S" ?( C( g ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /. + w6 v- q5 v* P. f: B" P1 g
a -> 1;9 G# m, Q3 ? C' f) V
eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
: g5 K$ w- P( h" x x3 = (x1 + x2)/2;7 |; s) f4 J5 m+ o
eq2 = x == x3;
3 s! g; V4 \0 k' d8 c9 H* O temp1 = x /. Solve[{eq1, eq2}, {x, y}];( ^8 H; J1 o9 b2 g5 S8 x! ^
temp2 = y /. Solve[{eq1, eq2}, {x, y}];" [4 `# ~3 e' a3 a" V+ }0 }
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False, ; X% V/ X5 P- V/ N1 d$ f
Axes -> True];+ t% {$ ? [- @
Show[ob, ve]3 h! V7 z1 u# E- T# r
写了几行代码，运行后是这样的 （不会填，抱歉）7 T0 D8 W$ L- g+ [
% f: u/ U) e& cfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
$ F5 X# J0 G" [- X" v& E
现在想改变a的值，然后垂直线也随着斜线的改变而改变, |, F& t: T$ R9 F
Manipulate[Show[ob,ve],{a,0,1}]
]2 U9 f* o5 M& A V9 B 但是运行后没有结果，哪位高手帮忙解答下，多谢。 | 
IP卡
狗仔卡
发表于 2011-2-24 16:15
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
