本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑
. T; q/ E9 D3 ?
& |3 k {, J; ]* `小弟初学mathematica,有些问题想请教下大哥大姐们。
1 [& Z( M; y/ S: | x =.; y =.2 N* v0 q* Z2 {( l: S7 U' C
x1 = 2; y1 = 0; Z( l2 `6 w" Z* A; G c: u, J
x2 = 0; y2 = -1;" z& u# t+ i D2 R+ p k
ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /. ' _/ @) W, m! S
a -> 1;
) O J4 K5 }# U2 U) s% S+ m7 x eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;- j% X) t' a! s, ? I
x3 = (x1 + x2)/2;2 U0 }! C! \' u8 O5 P9 F* f2 G
eq2 = x == x3;) B1 e/ B; v8 h4 r+ p3 w
temp1 = x /. Solve[{eq1, eq2}, {x, y}];
* e8 ^; D% m& f$ |. S- u temp2 = y /. Solve[{eq1, eq2}, {x, y}];5 e6 ^) f: V9 R7 l) w( n3 }& g
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False, # g. G% B5 d5 {" k- }5 P
Axes -> True];
! O8 h4 Y8 u* ^ Show[ob, ve]; O- U( `. \7 x9 N8 ~; O
写了几行代码，运行后是这样的 （不会填，抱歉）7 B9 V' \' w' x! e
' _) b: M0 W, E, xfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png
: i5 n) \5 l' o g' J
现在想改变a的值，然后垂直线也随着斜线的改变而改变
7 o y' q) R. Q6 q+ | Manipulate[Show[ob,ve],{a,0,1}]
' ~' s. W% `& R' {) F- C( Q 但是运行后没有结果，哪位高手帮忙解答下，多谢。 | 
IP卡
狗仔卡
发表于 2011-2-24 16:15
转播
淘帖
分享
收藏
支持
反对
微信
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
显身卡
