应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 数学 » 工科数学 » 求助解方程！！
121/2返回列表12下一页
查看: 1610  |  回复: 11
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

hedge

银虫 (小有名气)

[求助] 求助解方程！！

本人碰到一个数学难题！200金币！！初步考虑了一下，应是一个X的n+1次的方程！！

11.png
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2012-09-22 10:28:37
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

dingd

铁杆木虫 (职业作家)

【答案】应助回帖

用编程模式，再大的n都没问题（如果有解的话）
CODE:
Constant n=20, A0=1, B0=1, C=10; //n>4
ConstStr A1=1+x, B1=2+x;
Parameter x;
StartProgram [Pascal];
Procedure MainModel;
var i: integer;
    A, B: array of double;
Begin
    setlength(A, n+2);
    setlength(B, n);
    for i := 2 to n + 1 do begin
        if i = 2 then A[i]:=(i+x)*A1-A0
        else if i = 3 then A[i]:=(i+x)*A[2]-A1
        else A[i]:=(i+x)*A[i-1]-A[i-2];
    end;
    for i := 3 to n do begin
        if i = 3 then B[i-1]:=(i+x)*B1-B0
        else if i = 4 then B[i-1]:=(i+x)*B[2]-B1
        else B[i-1]:=(i+x)*B[i-2]-B[i-3];
    end;
    ObjectiveResult := sqr(A[n+1]-B[n-1]-C);
End;
EndProgram;

x: -10.9999999999994
赞一下(1人) 回复此楼
5楼2012-09-24 18:37:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

dingd

铁杆木虫 (职业作家)

【答案】应助回帖

感谢参与，应助指数 +1
用1stOpt试了下，不知对否，参考下：
假设C=10，n取8
CODE:
Constant n=8, A0=1, B0=1, C=10; //n>4
ConstStr A1=1+x, B1=2+x;
ConstStr For(i=2:n+1)(A[i]=(i+x)*A[i-1]-A[i-2]),
         For(i=3:n)(B[i-1]=(i+x)*B[i-2]-B[i-3]);
Function A[n+1]-B[n-1]=C;

函数表达式 (((9+x)*(((8+x)*(((7+x)*(((6+x)*(((5+x)*(((4+x)*(((3+x)*(((2+x)*((1+x))-1))-((1+x))))-(((2+x)*((1+x))
            -1))))-(((3+x)*(((2+x)*((1+x))-1))-((1+x))))))-(((4+x)*(((3+x)*(((2+x)*((1+x))-1))-((1+x))))-(((2+x)
            *((1+x))-1))))))-(((5+x)*(((4+x)*(((3+x)*(((2+x)*((1+x))-1))-((1+x))))-(((2+x)*((1+x))-1))))-(((3+x)
            *(((2+x)*((1+x))-1))-((1+x))))))))-(((6+x)*(((5+x)*(((4+x)*(((3+x)*(((2+x)*((1+x))-1))-((1+x))))-(((2
            +x)*((1+x))-1))))-(((3+x)*(((2+x)*((1+x))-1))-((1+x))))))-(((4+x)*(((3+x)*(((2+x)*((1+x))-1))-((1+x))))
            -(((2+x)*((1+x))-1))))))))-(((7+x)*(((6+x)*(((5+x)*(((4+x)*(((3+x)*(((2+x)*((1+x))-1))-((1+x))))-(((2
            +x)*((1+x))-1))))-(((3+x)*(((2+x)*((1+x))-1))-((1+x))))))-(((4+x)*(((3+x)*(((2+x)*((1+x))-1))-((1+x))))
            -(((2+x)*((1+x))-1))))))-(((5+x)*(((4+x)*(((3+x)*(((2+x)*((1+x))-1))-((1+x))))-(((2+x)*((1+x))-1))))
            -(((3+x)*(((2+x)*((1+x))-1))-((1+x))))))))))-(((8+x)*(((7+x)*(((6+x)*(((5+x)*(((4+x)*(((3+x)*((2+x))
            -1))-((2+x))))-(((3+x)*((2+x))-1))))-(((4+x)*(((3+x)*((2+x))-1))-((2+x))))))-(((5+x)*(((4+x)*(((3+x)
            *((2+x))-1))-((2+x))))-(((3+x)*((2+x))-1))))))-(((6+x)*(((5+x)*(((4+x)*(((3+x)*((2+x))-1))-((2+x))))
            -(((3+x)*((2+x))-1))))-(((4+x)*(((3+x)*((2+x))-1))-((2+x))))))))-(10) = 5.684341886E-013
目标函数值(最小): 3.23117426778526E-25
x: -4.00073291639669

有多组解：
x: -0.18247902078968

x: -4.99044771453577

x: -6.01381051142547

jv2.JPG
赞一下 回复此楼
2楼2012-09-22 20:56:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

meteor1245

金虫 (正式写手)

一饭之恩必偿，睚眦之怨必报
不是一般的复杂啊。好难
赞一下 回复此楼
这个世界上重要的不是你站在什么位置，而是你正向着什么方向移动！
3楼2012-09-23 00:22:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hedge

银虫 (小有名气)
引用回帖:
2楼: Originally posted by dingd at 2012-09-22 20:56:26
用1stOpt试了下，不知对否，参考下：
假设C=10，n取8

Constant n=8, A0=1, B0=1, C=10; //n>4
ConstStr A1=1+x, B1=2+x;
ConstStr For(i=2:n+1)(A=(i+x)*A-A),
         For(i=3:n)(B=(i+x)*B-B);
Funct ...

谢谢您的回复。理论上讲可以这么做。
但是当N比较大的时候可能就没有办法了！
我想得另想他途。
为了感谢您，以50金币为感谢！！
请管理员帮忙代发！！
赞一下 回复此楼
4楼2012-09-24 10:34:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

不可理喻_

金虫 (小有名气)

【答案】应助回帖

感谢参与，应助指数 +1
帮顶下，不是很清楚！
赞一下 回复此楼
加油，GOGO！！！
6楼2012-09-24 19:03:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qwer.
7楼2012-09-24 19:04:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

hedge

银虫 (小有名气)
引用回帖:
5楼: Originally posted by dingd at 2012-09-24 18:37:31
用编程模式，再大的n都没问题（如果有解的话）

Constant n=20, A0=1, B0=1, C=10; //n>4
ConstStr A1=1+x, B1=2+x;
Parameter x;
StartProgram ;
Procedure MainModel;
var i: integer;
    A, B: arra ...

非常感谢，至于你讲再大的N都可以，
那么，能不能给出N＝50情况的全部解？
如果可以 且验证正确的话。我愿意再给200金币！！
赞一下 回复此楼
8楼2012-09-25 14:45:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

晨宇飞扬

银虫 (小有名气)
好难啊，真的不会做，会做的人真的是很了不起的人。
赞一下 回复此楼
低调做人，高调做事。
9楼2012-09-25 15:13:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingd

铁杆木虫 (职业作家)

【答案】应助回帖

n改成50计算是没问题的，只是此时的A[n+1]和B[n-1]已经是个非常大的数了，如10^25次方，计算估计会受很大影响，有时会溢出。2楼代码改为如下，供参考：
CODE:
Constant n=50, A0=1, B0=1, C=10; //n>4
ConstStr A1=1+x, B1=2+x;
Parameter x;
StartProgram [Pascal];
Procedure MainModel;
var i: integer;
    A, B: array of double;
Begin
    setlength(A, n+2);
    setlength(B, n);
    for i := 2 to n + 1 do begin
        if i = 2 then A[i]:=(i+x)*A1-A0
        else if i = 3 then A[i]:=(i+x)*A[2]-A1
        else A[i]:=(i+x)*A[i-1]-A[i-2];
    end;
    for i := 3 to n do begin
        if i = 3 then B[i-1]:=(i+x)*B1-B0
        else if i = 4 then B[i-1]:=(i+x)*B[2]-B1
        else B[i-1]:=(i+x)*B[i-2]-B[i-3];
    end;
     ObjectiveResult := sqr((A[n+1]-B[n-1]-C)/A[n+1]);
End;
EndProgram;

目标函数值(最小): 8.51704067929194E-16
x: -0.241853624043933
赞一下 回复此楼
10楼2012-09-26 15:21:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 hedge 的主题更新
121/2返回列表12下一页
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 让我中一个面上吧！ +4 大萍1987 2026-08-20 4/200 2026-08-20 20:22 by ran2233
[基金申请] 时间戳又变了 +12 wuchongjun 2026-08-20 17/850 2026-08-20 20:05 by spzhao
[基金申请] 科研孤儿太难了 +10 我4大白菜 2026-08-20 10/500 2026-08-20 20:04 by littlezl
[基金申请] 今天系统多次维护，明天很可能放榜！ +10 zju2000 2026-08-16 11/550 2026-08-20 20:02 by cl479861084
[基金申请] 时间戳变了，能看出什么问题？ +18 基诺咪客 2026-08-17 23/1150 2026-08-20 17:19 by Godzela
[基金申请] 只有每年这种时候来逛逛小木虫 +21 yaoyewhu2008 2026-08-20 22/1100 2026-08-20 17:03 by yaoyewhu2008
[基金申请] 放榜前的不淡定 40+3 snowwithsea 2026-08-19 12/600 2026-08-20 15:56 by lfy8008
[基金申请] 重要消息，中午系统在维护 +11 yuleib84 2026-08-18 12/600 2026-08-20 11:09 by xskun
[基金申请] 今天基金会出结果吗？20260819 +14 kkkl_v 2026-08-19 15/750 2026-08-20 08:21 by sunzitan
[基金申请] filecode，4个jtjc了 +11 ziyangfang 2026-08-19 13/650 2026-08-19 21:28 by aasahr
[教师之家] 为什么余额宝的年化利率越来越低？主要原因有哪些？ +5 瞬息宇宙 2026-08-15 5/250 2026-08-19 20:23 by super2002521
[基金申请] 朋友圈看到的 +6 wangzilk 2026-08-18 8/400 2026-08-19 10:55 by Haru815
[基金申请] 快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。 +6 Tide man 2026-08-14 7/350 2026-08-19 09:56 by ZJTJZ
[基金申请] 明天放榜？ +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
[论文投稿] 投稿咨询 +4 wwm09 2026-08-17 6/300 2026-08-18 15:36 by wwm09
[基金申请] 时间戳又变了8-15 +14 archvillain 2026-08-15 26/1300 2026-08-18 13:37 by phantomgost
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
[基金申请] 93BebMhtakh前后11位开头都是大写 +4 且听虎啸 2026-08-17 5/250 2026-08-18 00:49 by 蔡棒棒菂
[精细化工] 招聘 金属平磨液，抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] 各位道友，我要去昆明玩几天，回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
信息提示
关闭
请填处理意见
关闭