manipulate命令

aqaqaaq

- }& J! K5 ~$ l, a
! [  n. \; B( V1 J

小弟初学mathematica,有些问题想请教下大哥大姐们。
7 u* B, a& K/ w8 J

x =.; y =.
/ C1 `$ |1 Z, }& d/ n

x1 = 2; y1 = 0;

x2 = 0; y2 = -1;
) H; [) f' o3 w# I/ G" r' B' A$ ]8 \

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

   a -> 1;

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
, X5 t7 k8 a2 s) x0 K

x3 = (x1 + x2)/2;
  e% Y4 L; f6 g2 W* ?! Z. V: m

eq2 = x == x3;

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,
4 v# v, U& @6 l& K$ H

   Axes -> True];

Show[ob, ve]
1 i! m, A! b2 q' {  L. T

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

（不会填，抱歉）
7 {- l9 |1 X5 V# {5 q

) f" |2 I3 _# o& F. qfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png

现在想改变a的值，然后垂直线也随着斜线的改变而改变
5 D2 \& }- V/ V: t# y& g

Manipulate[Show[ob,ve],{a,0,1}]
: z; m# b5 h7 K- o" Q- N

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

gaoshanliu水