manipulate命令

aqaqaaq

7 l: p0 t: n- m) E# ~* P  e: x: Z
: _. K. n3 \# ]: E1 Q! d7 A

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

x =.; y =.

x1 = 2; y1 = 0;
) Z$ {. c, c, ^# f, d1 G' h9 J

x2 = 0; y2 = -1;

ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /.
' [8 A! x0 Y' v6 x9 _# n( R" }

   a -> 1;
1 e8 X9 k0 x% w. C# h# t, H# c( b" q+ P

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

x3 = (x1 + x2)/2;
" G, I8 y; r6 ?1 O1 ~. J

eq2 = x == x3;

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

temp2 = y /. Solve[{eq1, eq2}, {x, y}];
) d! R7 q$ ?) f% U) @7 B

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

   Axes -> True];
) Q. [$ q( E3 f) U3 Q, ^, f

Show[ob, ve]
0 n. P, z, L& ?- z. ^4 ?

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

（不会填，抱歉）

4 D6 u  |7 C% d0 hfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
3 H) Z' B& q, q; b: u3 {5 h

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

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

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

gaoshanliu水