manipulate命令

aqaqaaq

7 d" b% J0 b! H7 a  V1 d. X
1 ?8 [1 H' _$ K" Q

小弟初学mathematica,有些问题想请教下大哥大姐们。
: H9 r6 S1 d! ~' O  W. G/ S1 w

x =.; y =.
, l% K0 \: {" f& D

x1 = 2; y1 = 0;
( O8 q: F) x% ]( Q3 a8 C8 B. N

x2 = 0; y2 = -1;
& Q& V$ `# s! h. m0 C1 D! z/ j; F

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

   a -> 1;

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
/ d! }) @' g/ b5 ^0 a+ T

x3 = (x1 + x2)/2;

eq2 = x == x3;

temp1 = x /. Solve[{eq1, eq2}, {x, y}];
# C6 ~$ y5 @/ i+ ?- u( B  \. [

temp2 = y /. Solve[{eq1, eq2}, {x, y}];
9 l# h: J  c$ c+ y! Q8 ~! F  W, b

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

   Axes -> True];

Show[ob, ve]
; u9 l% U- @' S

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

（不会填，抱歉）
4 t, v' x# {6 t

file:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
6 G  ]8 `" ^6 p& k- N: Q! |1 Q

现在想改变a的值，然后垂直线也随着斜线的改变而改变
0 N( l" z& r! t# p

Manipulate[Show[ob,ve],{a,0,1}]
+ Z$ p& r: |4 I! h

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

gaoshanliu水