manipulate命令

aqaqaaq

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

x =.; y =.

x1 = 2; y1 = 0;
' Y  X8 _. H/ l/ m' O  q, U

x2 = 0; y2 = -1;
2 l( r! [, ^/ A4 Q" j  A

ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.
7 O7 w; f# Z) M# i6 C

   a -> 1;
- X! |7 G6 d' {% A! `+ F# z, A

eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
. N8 o3 S& o1 k

x3 = (x1 + x2)/2;
  u! H8 Q6 c" V6 Q( f! R: |0 Q

eq2 = x == x3;
! X: w8 B9 B1 M6 y# q$ G

temp1 = x /. Solve[{eq1, eq2}, {x, y}];
5 F4 l' Z0 q" }, x; [$ J

temp2 = y /. Solve[{eq1, eq2}, {x, y}];
( T/ }  R/ Z. F7 u. ?

ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False,
" \7 @8 J# s* ]; R5 d0 |5 [

   Axes -> True];
2 d+ c- R* k0 V( k& L. b5 c5 l9 n

Show[ob, ve]
- \9 v4 H6 j! P. X5 ]

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

（不会填，抱歉）
7 S4 b+ {; v# A% z" q5 V

file:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
6 p7 T% j+ `3 E; N% H1 O# m, |7 @" ]

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

Manipulate[Show[ob,ve],{a,0,1}]
# G* s: Z% X. f+ n' d

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

gaoshanliu水