manipulate命令

aqaqaaq

. ~: u/ z8 k8 Q7 A/ H$ _
6 h! K9 U: X& t8 g: m

小弟初学mathematica,有些问题想请教下大哥大姐们。

x =.; y =.
3 @' r- ]( L7 w3 P' {+ E

x1 = 2; y1 = 0;

x2 = 0; y2 = -1;
+ l, f8 E+ Q& f' U; h! h2 U% I) L

ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.
* G  w) V( l8 j3 f7 D

   a -> 1;
: n! L4 i8 V# b) f1 _) i2 f

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
2 m% J+ b/ v; G

x3 = (x1 + x2)/2;

eq2 = x == x3;
1 x4 j: S; S! X! D0 i  n) s1 R

temp1 = x /. Solve[{eq1, eq2}, {x, y}];

temp2 = y /. Solve[{eq1, eq2}, {x, y}];
& }3 q6 i/ T4 K

ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False,
" I: v3 J) j8 g7 `% q( u4 s+ c1 U

   Axes -> True];

Show[ob, ve]
! L) z+ k" Z+ o: E: k

写了几行代码，运行后是这样的

（不会填，抱歉）
7 r) t+ `* Z+ {( f. i# e

- ]* ^% L* o) B1 Q# f& `file:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
0 ?% }. R+ K5 E: ?

现在想改变a的值，然后垂直线也随着斜线的改变而改变

Manipulate[Show[ob,ve],{a,0,1}]

但是运行后没有结果，哪位高手帮忙解答下，多谢。

gaoshanliu水