作业帮mathematica非线性拟合问题
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/28 10:32:42
mathematica非线性拟合问题
date={{1990, 632.98}, {1991, 702.15}, {1992, 809.94}, {1993, 973.35}, {1994,
1147.37}, {1995, 1289.96}, {1996, 1389.75}, {1997, 1577.45}, {1998,
1742.95}, {1999, 1986.82}, {2000, 2234.24}, {2001, 2572.82}, {2002,
3022.15}, {2003, 3602.15}, {2004, 4175.37}, {2005, 5007.73}, {2006,
6030.67}, {2007, 7234.57}, {2008, 8601.}, {2009, 10855.5}, {2010,
13740.5}}
n1/(1+(n1/632.98-1)Exp[-r(t-1990)],其中n1,r是参数 t是自变量
求解答,马上就结束了,求帮助. 求解,急啊.先谢谢了
date={{1990, 632.98}, {1991, 702.15}, {1992, 809.94}, {1993, 973.35}, {1994,
1147.37}, {1995, 1289.96}, {1996, 1389.75}, {1997, 1577.45}, {1998,
1742.95}, {1999, 1986.82}, {2000, 2234.24}, {2001, 2572.82}, {2002,
3022.15}, {2003, 3602.15}, {2004, 4175.37}, {2005, 5007.73}, {2006,
6030.67}, {2007, 7234.57}, {2008, 8601.}, {2009, 10855.5}, {2010,
13740.5}}
n1/(1+(n1/632.98-1)Exp[-r(t-1990)],其中n1,r是参数 t是自变量
求解答,马上就结束了,求帮助. 求解,急啊.先谢谢了
data = {{1990,632.98},{1991,702.15},{1992,809.94},{1993,
973.35},{1994,1147.37},{1995,1289.96},{1996,1389.75},{1997,
1577.45},{1998,1742.95},{1999,1986.82},{2000,
2234.24},{2001,2572.82},{2002,3022.15},{2003,
3602.15},{2004,4175.37},{2005,5007.73},{2006,
6030.67},{2007,7234.57},{2008,8601.},{2009,10855.5},{2010,
13740.5}};
FindFit[data,n1/(1 + (n1/632.98 - 1) Exp[-r (t - 1990)]),{n1,r},t]
再问： 这个我试了，不行啊，不出结果，是不是软件版本太低？？我的是4.0的
再答： 对啊，我用的是8.0.4的么，看来没人能帮你了，这年头不知道坚守4.0的能有多少位
再问： 求求了 ，正在下8.0，不知道什么时候完事 ，帮我运行下程序，我只要结果 了谢谢
再答： {n1 -> -11329.5, r -> 0.116935} data = {{1990, 632.98}, {1991, 702.15}, {1992, 809.94}, {1993, 973.35}, {1994, 1147.37}, {1995, 1289.96}, {1996, 1389.75}, {1997, 1577.45}, {1998, 1742.95}, {1999, 1986.82}, {2000, 2234.24}, {2001, 2572.82}, {2002, 3022.15}, {2003, 3602.15}, {2004, 4175.37}, {2005, 5007.73}, {2006, 6030.67}, {2007, 7234.57}, {2008, 8601.}, {2009, 10855.5}, {2010, 13740.5}}; model=n1/(1 + (n1/632.98 - 1) Exp[-r (t - 1990)]); FindFit[data, model, {n1, r}, t, MaxIterations -> 1000] (model /. %) /. (data /. {a_, b_} -> {Rule[t, a]})（* 拟合效果，拟合函数在t处的值 *）
再问： n1 -> -11329.5, r -> 0.116935 真心没看懂什么意思，，，， n1负值？？
再答： 对啊，你没学过Mathematica啊？ n1=-11329.5 r=0.116935
973.35},{1994,1147.37},{1995,1289.96},{1996,1389.75},{1997,
1577.45},{1998,1742.95},{1999,1986.82},{2000,
2234.24},{2001,2572.82},{2002,3022.15},{2003,
3602.15},{2004,4175.37},{2005,5007.73},{2006,
6030.67},{2007,7234.57},{2008,8601.},{2009,10855.5},{2010,
13740.5}};
FindFit[data,n1/(1 + (n1/632.98 - 1) Exp[-r (t - 1990)]),{n1,r},t]
再问： 这个我试了，不行啊，不出结果，是不是软件版本太低？？我的是4.0的
再答： 对啊，我用的是8.0.4的么，看来没人能帮你了，这年头不知道坚守4.0的能有多少位
再问： 求求了 ，正在下8.0，不知道什么时候完事 ，帮我运行下程序，我只要结果 了谢谢
再答： {n1 -> -11329.5, r -> 0.116935} data = {{1990, 632.98}, {1991, 702.15}, {1992, 809.94}, {1993, 973.35}, {1994, 1147.37}, {1995, 1289.96}, {1996, 1389.75}, {1997, 1577.45}, {1998, 1742.95}, {1999, 1986.82}, {2000, 2234.24}, {2001, 2572.82}, {2002, 3022.15}, {2003, 3602.15}, {2004, 4175.37}, {2005, 5007.73}, {2006, 6030.67}, {2007, 7234.57}, {2008, 8601.}, {2009, 10855.5}, {2010, 13740.5}}; model=n1/(1 + (n1/632.98 - 1) Exp[-r (t - 1990)]); FindFit[data, model, {n1, r}, t, MaxIterations -> 1000] (model /. %) /. (data /. {a_, b_} -> {Rule[t, a]})（* 拟合效果，拟合函数在t处的值 *）
再问： n1 -> -11329.5, r -> 0.116935 真心没看懂什么意思，，，， n1负值？？
再答： 对啊，你没学过Mathematica啊？ n1=-11329.5 r=0.116935