manipulate命令

aqaqaaq

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

x =.; y =.

x1 = 2; y1 = 0;
4 W" ~& s. t' u) W7 X6 t

x2 = 0; y2 = -1;

ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.
( d7 l9 \) I) i% d0 s0 P9 n- z

   a -> 1;

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
8 n' W) S/ V$ |: o6 ~) i7 }

x3 = (x1 + x2)/2;
% n7 r9 L7 B( v8 ?1 _/ ]

eq2 = x == x3;

temp1 = x /. Solve[{eq1, eq2}, {x, y}];
0 \- _- p' h  X. p# D# p

temp2 = y /. Solve[{eq1, eq2}, {x, y}];
9 w! U2 g# L4 j# g; i3 C, [

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

   Axes -> True];

Show[ob, ve]
2 ]5 b! C5 w) l( q( v' W& W/ f

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

（不会填，抱歉）
6 M" H: Q+ a/ u/ R+ k

; g$ d. z/ R3 V" V- I2 Ifile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png

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

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

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

gaoshanliu水