manipulate命令

aqaqaaq

1 j9 T2 f5 \+ C0 T  q

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

x =.; y =.
, A1 t+ [! F, {2 O

x1 = 2; y1 = 0;

x2 = 0; y2 = -1;
2 `6 |- U% e4 \

ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.
  w* z% ], B) j1 v

   a -> 1;
2 p% A  n8 C0 @) U# G

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
1 J- _8 \% f6 |- F, B

x3 = (x1 + x2)/2;
6 f: g- y2 R; `8 l

eq2 = x == x3;
4 i. ^- K7 I  L- j

temp1 = x /. Solve[{eq1, eq2}, {x, y}];
) e# M4 h* o" i7 f3 f; L

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

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

   Axes -> True];

Show[ob, ve]
5 V1 Z4 ~- F8 K" |1 _- w2 R) ~% r  m

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

（不会填，抱歉）

% x$ J( t1 y4 }& T8 sfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png

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

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

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

gaoshanliu水