manipulate命令

aqaqaaq

; p$ ?" Z9 {0 |6 M! i

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

x =.; y =.

x1 = 2; y1 = 0;

x2 = 0; y2 = -1;

ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.
8 ]9 Y2 I# G5 A" R9 p: J

   a -> 1;

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
9 e+ U, q$ U& O' U

x3 = (x1 + x2)/2;

eq2 = x == x3;
" D- [$ m* A& b& S; X$ |9 r! p

temp1 = x /. Solve[{eq1, eq2}, {x, y}];
$ a. B0 I% s8 ]: V$ J

temp2 = y /. Solve[{eq1, eq2}, {x, y}];
3 @1 Y( K& M- S, i2 I+ q

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

   Axes -> True];
  f+ L$ v  V5 R0 u3 T3 M8 c

Show[ob, ve]

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

（不会填，抱歉）
. g$ @# }+ `4 E* v, C

2 O1 W. M7 t" a2 |4 N+ H5 qfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png

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

Manipulate[Show[ob,ve],{a,0,1}]
2 ~0 m6 M; W8 [9 N+ f+ e

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

gaoshanliu水