manipulate命令

aqaqaaq

: R* S; V% N9 k  Q) |' X

小弟初学mathematica,有些问题想请教下大哥大姐们。
4 C; p4 `+ R8 [1 R! e

x =.; y =.

x1 = 2; y1 = 0;

x2 = 0; y2 = -1;
) U) X( n" y* |2 _+ q; h. l

ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.

   a -> 1;
9 G3 F5 G, m: u9 X

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
8 c9 E0 }! S, F6 b

x3 = (x1 + x2)/2;
- `' {: x- _! [

eq2 = x == x3;
* A( g9 J% u- Y% e3 B# S1 l' z

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

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

ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False,

   Axes -> True];
4 q% z2 d. n& D. \! j* h; @

Show[ob, ve]

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

（不会填，抱歉）
6 ~; |  w; k9 V  c/ i

/ t2 O1 X5 A" Z% Jfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
$ B- r' O  Y# J! B

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

Manipulate[Show[ob,ve],{a,0,1}]
- ]2 m/ o: H& C

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

gaoshanliu水