manipulate命令

aqaqaaq

$ u2 l- ]0 }! }/ X$ {  ?

小弟初学mathematica,有些问题想请教下大哥大姐们。
- v6 X" n& ], G/ t

x =.; y =.
7 {3 D. B4 ~4 s& a" e; v) p

x1 = 2; y1 = 0;
; a/ w! G- E7 V+ `6 ^7 `

x2 = 0; y2 = -1;

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

   a -> 1;

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
+ F" Q4 m5 O( L+ z0 P8 m% _1 _

x3 = (x1 + x2)/2;

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,
% u& Z- [5 K4 ~, ]. ]0 x9 B

   Axes -> True];

Show[ob, ve]
( X  i/ y5 o3 S

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

（不会填，抱歉）

( [  q; \7 H0 m2 f% \) C- \5 W  D, Hfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
+ m8 h+ X+ k- f8 z. u

现在想改变a的值，然后垂直线也随着斜线的改变而改变
3 {1 k( T5 z5 P4 a, o

Manipulate[Show[ob,ve],{a,0,1}]
0 f' ]* P. b7 ~/ j( n. v$ Q; j

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

gaoshanliu水