QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 2917|回复: 1
打印 上一主题 下一主题

manipulate命令

[复制链接]
字体大小: 正常 放大
aqaqaaq        

2

主题

0

听众

8

积分

升级  3.16%

该用户从未签到

跳转到指定楼层
1#
发表于 2011-2-24 16:15 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
本帖最后由 aqaqaaq 于 2011-2-24 16:20 编辑
  S# T- C3 m0 q1 \) }
2 [2 U+ p9 F% c  q& A" B2 m
小弟初学mathematica,有些问题想请教下大哥大姐们。) @! I& c: d% A2 i" Q  v" ~/ h4 N
x =.; y =.
9 H0 F4 m: P* N* s* H( v) T
x1 = 2; y1 = 0;# P% w) N% y. \- o1 h3 T
x2 = 0; y2 = -1;
! u; l( s+ x4 K( b+ ^: n
ob = Graphics[Line[{{x1, y1}, {x2, y2 - a}}], Axes -> True] /. 5 i1 ~! t6 D2 q9 o" c
   a -> 1;# V; |5 J# o  I7 P$ w) {
eq1 = (y - y1)/(x - x1) == (y - y2 + a)/(x - x2) /. a -> 1;& Z8 m) i2 }% a
x3 = (x1 + x2)/2;) p# J" R! h  e
eq2 = x == x3;
5 O: v: J7 c/ E9 R* i* u
temp1 = x /. Solve[{eq1, eq2}, {x, y}];# j+ h! U0 J" t* f% s
temp2 = y /. Solve[{eq1, eq2}, {x, y}];, E  J: J2 l- d& V! ~
ve = ContourPlot[x == x3, {x, 0, 2}, {y, temp2, 0}, Frame -> False, - s/ ]+ P+ i+ q: v! M% L* q3 V! k
   Axes -> True];
, r9 X" r7 w, ?. x0 R* @+ I
Show[ob, ve]8 d4 ?* I) s: H- j& f" k2 Y
写了几行代码,运行后是这样的
(不会填,抱歉)
9 ~# h  D8 X! c8 r2 f
/ J1 P3 |' s' O; Q, W0 ~! }
file:///C:/DOCUME%7E1/Kent/LOCALS%7E1/Temp/ksohtml/wps_clip_image-27824.png6 G1 O% y: e; N1 y, D% s: ]$ f
现在想改变a的值,然后垂直线也随着斜线的改变而改变
5 }; d' D* c' z3 C
Manipulate[Show[ob,ve],{a,0,1}]+ k; r6 U7 w  l
但是运行后没有结果,哪位高手帮忙解答下,多谢。
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信

17

主题

3

听众

2216

积分

  • TA的每日心情
    开心
    2012-1-30 23:29
  • 签到天数: 39 天

    [LV.5]常住居民I

    群组小草的客厅

    群组数学建模

    群组Matlab讨论组

    群组LINGO

    群组中南民族大学

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-8-28 05:04 , Processed in 0.349836 second(s), 62 queries .

    回顶部