manipulate命令

aqaqaaq

: R" \5 o5 p+ W# p' a- H1 [
4 ~6 P  t. f; y2 t- y; M

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

x =.; y =.

x1 = 2; y1 = 0;
$ H( [" |8 o! t  P

x2 = 0; y2 = -1;

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

   a -> 1;
* c: ?% x2 v* b, A' G; a

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

x3 = (x1 + x2)/2;

eq2 = x == x3;
" t0 w8 ]' M9 e) a* L3 L0 I( I

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,
$ V; h. [9 X% x' g2 n$ j8 ]

   Axes -> True];
# d  q, Q2 b3 N+ c; c- d7 Y

Show[ob, ve]

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

（不会填，抱歉）
& _" w7 |$ C2 O7 W% `% i* q# J3 m

* m6 r$ r; L1 D9 ~2 j* Qfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png

现在想改变a的值，然后垂直线也随着斜线的改变而改变
, a+ i9 d. \/ z% g

Manipulate[Show[ob,ve],{a,0,1}]
: V$ z* b2 }. Y8 [

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

gaoshanliu水