QQ登录

只需要一步,快速开始

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

新手跪求指导

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

1

主题

0

听众

2

积分

升级  40%

该用户从未签到

自我介绍
大神
跳转到指定楼层
1#
发表于 2012-12-4 22:51 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
r = 3.04042*10^(-6);5 F! V+ l: J, Y& f8 G
p[x_] := x^5 - (2 + r) x^4 + (1 + 2 r) x^3 - (1 - r) x^2 + $ F: b, h2 F4 ~  x( X
  2 (1 - r) x + r - 1! y1 G7 h! x; a1 Q1 m6 y5 R5 z
q[x_] := p[x] - 2 r*x^2;
$ I- n, _2 O% ?4 |a0 = 0.5; b0 = 1.5; delta = 10^(-6); k0 = 100;0 P- [6 c9 C( E
a = a0; b = b0;
% j0 Z8 w! L* V7 S7 q% uDo[x = (a + b)/2;
0 _! }$ o: a2 E% D If[p[x] == 0, Break[], If[N[p[x]*p[b]] < 0, a = x, b = x]];
+ Z$ r1 {$ ^: z6 Y If[N[Abs[b - a]] < delta, Break[], If[k == k0, Print[失败]]], {k, k0}]$ L. a1 C9 W  `$ ~5 b* k
x1 = x
# z7 Y( L' P3 s- P* \' U7 _Clear[x]- C+ q7 @9 V1 Y* U0 H" V# W1 c
Do[x = (a + b)/2;
( E3 W2 [5 Z. [( [$ r: a% w If[q[x] == 0, Break[], If[N[q[x]*q[b]] < 0, a = x, b = x]];
# u0 C) e. c' T' Q* i+ w! r0 ?( y1 t If[N[Abs[b - a]] < delta, Break[], If[k == k0, Print[失败]]], {k, k0}], g8 c2 L8 q; R. A
x2 = x/ |6 ]4 _8 C3 ^+ l" Z" K5 G% B
Clear[x]
" ?# t. K* `4 V+ @2 G( ~2 ^: F% X0 C; z$ F: U$ R$ M
我想让p q 两函数的解都求出来 每次都是两个一样的解(是第一个的)  明明用了clear的 怎么做6 D3 g. [' X( m5 {( a
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
qudazi        

5

主题

7

听众

111

积分

升级  5.5%

  • TA的每日心情
    开心
    2013-4-1 16:11
  • 签到天数: 35 天

    [LV.5]常住居民I

    自我介绍
    我就是我,无需介绍
    回复

    使用道具 举报

    花如梦 实名认证       

    1

    主题

    4

    听众

    1116

    积分

    升级  11.6%

  • TA的每日心情
    奋斗
    2016-6-12 14:58
  • 签到天数: 399 天

    [LV.9]以坛为家II

    邮箱绑定达人 社区QQ达人

    群组数学建模培训课堂2

    回复

    使用道具 举报

    小小灰        

    11

    主题

    9

    听众

    398

    积分

    升级  32.67%

  • TA的每日心情
    开心
    2016-1-13 20:47
  • 签到天数: 87 天

    [LV.6]常住居民II

    自我介绍
    always

    群组第一期sas基础实训课堂

    回复

    使用道具 举报

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

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-7-10 04:29 , Processed in 0.473521 second(s), 70 queries .

    回顶部