manipulate命令

aqaqaaq

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

x =.; y =.

x1 = 2; y1 = 0;
" |$ X' @5 A3 x

x2 = 0; y2 = -1;
5 x% H! C9 x( V9 x; t

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

   a -> 1;

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;

x3 = (x1 + x2)/2;
% z9 W' l8 M2 q

eq2 = x == x3;
+ M) _- Q  A6 W2 m! K1 H! M! z

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

temp2 = y /. Solve[{eq1, eq2}, {x, y}];
6 m9 a6 ]! f% e

ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False,
& f1 l, |' H: y

   Axes -> True];
& u; o+ r- z& ?! J, }7 g/ R

Show[ob, ve]

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

（不会填，抱歉）
/ K* }4 J0 Q" \* Q' t' ]' n1 Y

) g- I- Y- i" k7 Q6 X: ufile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png

现在想改变a的值，然后垂直线也随着斜线的改变而改变
, Y8 @2 B, K' F2 @3 `

Manipulate[Show[ob,ve],{a,0,1}]
; O9 b. {& U, y  C+ ]8 k

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

gaoshanliu水