manipulate命令

aqaqaaq

8 ]. J/ ?. k1 Q2 L# O, K: R

小弟初学mathematica,有些问题想请教下大哥大姐们。
% i  E/ s9 o4 `  E# w: j7 X9 x6 j

x =.; y =.
% v; v1 h& m* Y# `- B4 v+ C( ]

x1 = 2; y1 = 0;
9 T: y7 H  n) o. Y0 d

x2 = 0; y2 = -1;
6 L2 M1 |) T4 O( ^. i

ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.
$ ?! X; @) }/ f5 i

   a -> 1;
5 @. Y+ Q- G. {7 ^

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
3 r5 j- Q  [* \' _4 ^8 y7 _0 j

x3 = (x1 + x2)/2;
6 f  i. f* ~. h3 a+ U

eq2 = x == x3;
6 ~" W' D3 A0 V- [; n& u6 P

temp1 = x /. Solve[{eq1, eq2}, {x, y}];
. }8 r( o: L8 Y5 h. Q# h$ ~! g4 y! }

temp2 = y /. Solve[{eq1, eq2}, {x, y}];
  L8 n. l: f6 e; M# I/ |8 C

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

   Axes -> True];
9 k9 [# Z, {; e0 J

Show[ob, ve]

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

（不会填，抱歉）

& j7 g) y$ [9 N* v9 c0 }file:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
$ C) ^# ]: C8 _1 i7 e& W0 z* u

现在想改变a的值，然后垂直线也随着斜线的改变而改变
- a1 k1 \' w" ]* W

Manipulate[Show[ob,ve],{a,0,1}]
8 o4 L+ f+ b4 ]3 R& W4 x9 r$ Q

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

gaoshanliu水