数学建模社区-数学中国
标题: manipulate命令 [打印本页]
作者: aqaqaaq 时间: 2011-2-24 16:15
标题: manipulate命令
本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑 # U( Z" z, u9 |
& l( f' S2 v! _- M8 W小弟初学mathematica,有些问题想请教下大哥大姐们。
* I% q7 X) e% z* }( H7 N
x =.; y =.# P4 x! H" \/ K a
x1 = 2; y1 = 0;
$ C- m9 [! A7 H" \9 m
x2 = 0; y2 = -1;
/ L" G0 g d, g5 z+ {0 k; D' ~ {/ T) e
ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /. / s, E# ?3 H" B. n L! @
a -> 1;, B; k7 g% b# m _6 P# `
eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;
6 I1 I6 J* L0 _4 s
x3 = (x1 + x2)/2;
) h/ V5 G# F: z9 P5 w) u
eq2 = x == x3;
, e7 z* M# s7 a: m! V
temp1 = x /. Solve[{eq1, eq2}, {x, y}];
& M! z5 R$ z9 J, u6 k H3 D
temp2 = y /. Solve[{eq1, eq2}, {x, y}];3 n W! n6 y- k$ T
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False, 7 t/ V( n. g7 x! m$ S- \
Axes -> True];7 m7 j( p5 x$ y, ?
Show[ob, ve]4 k+ d ?0 ]/ A: u9 ?6 Q6 v
写了几行代码，运行后是这样的
（不会填，抱歉）
) p0 d" B5 c) f+ N! D" U# |
; D( b( ^2 o, b( G v1 Sfile:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png! B! N0 b4 {- V# N: F
现在想改变a的值，然后垂直线也随着斜线的改变而改变 h0 G4 |3 u- u' l
Manipulate[Show[ob,ve],{a,0,1}]7 V7 G' m6 _$ Z# ~
但是运行后没有结果，哪位高手帮忙解答下，多谢。
作者: gaoshanliu水 时间: 2011-2-25 13:28
| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) |
Powered by Discuz! X2.5 |