本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑
: R* S; V% N9 k Q) |' X$ S6 ~: \ a2 E, u* W6 i2 h9 e
小弟初学mathematica,有些问题想请教下大哥大姐们。
4 C; p4 `+ R8 [1 R! e x =.; y =.6 M9 r% d/ [0 a
x1 = 2; y1 = 0;- m p& t5 q# Q+ M' E! J$ L
x2 = 0; y2 = -1;
) U) X( n" y* |2 _+ q; h. l ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /. , j% Z+ p% A; y- c
a -> 1;
9 G3 F5 G, m: u9 X eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
8 c9 E0 }! S, F6 b x3 = (x1 + x2)/2;
- `' {: x- _! [ eq2 = x == x3;
* A( g9 J% u- Y% e3 B# S1 l' z temp1 = x /. Solve[{eq1, eq2}, {x, y}];- ~" i$ Y" M6 r5 \' ^
temp2 = y /. Solve[{eq1, eq2}, {x, y}];1 c1 b8 W, ?$ b# I4 u* p9 |9 [ d
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False, ; a( q+ L& ~ l3 ~8 T3 k
Axes -> True];
4 q% z2 d. n& D. \! j* h; @ Show[ob, ve]* _# S" r5 F. {( i
写了几行代码,运行后是这样的 (不会填,抱歉)
6 ~; | w; k9 V c/ i
/ t2 O1 X5 A" Z% Jfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
$ B- r' O Y# J! B
现在想改变a的值,然后垂直线也随着斜线的改变而改变2 z9 V) r. s9 s& |" v% g: t
Manipulate[Show[ob,ve],{a,0,1}]
- ]2 m/ o: H& C 但是运行后没有结果,哪位高手帮忙解答下,多谢。 |