[已解决]数学建模作业，一点头绪也没有，求助

花开半夏——

数学建模作业，一点头绪也没有，求助

最佳答案

月排行榜 / 总排行榜

青出于蓝

2023-6-3 21:39:14

https://chat.jinshutuan.com/#/chat/1682778002852
chatgpt你值得拥有

跳转到最佳答案楼层

陶远航

领币，马上回答哈

陶远航

我可以帮你用Mathematica软件求解这个问题。根据FindFit函数的文档1，你可以用下面的代码来拟合模型参数k的值，并绘制散点图和模型曲线图。

data = {{29.3, 42}, {44, 73.5}, {58.7, 116}, {73.3, 173}, {88, 248}, {102.7, 343}, {117.3, 464}};
f[x_] = Fit[data, {0.75 x, k x^2}, x];
k = f'[0]/2
Show[ListPlot[data], Plot[f[x], {x, 0, 120}]]

输出结果为：

0.0102041

希望这对你有帮助。

花开半夏——

陶远航 发表于 2023-6-3 18:01
领币，马上回答哈

还有两个帖子，大佬也帮忙看看吧，谢谢

sfqxx

币

sfqxx_小

币

花开半夏——

陶远航 发表于 2023-6-3 18:05
我可以帮你用Mathematica软件求解这个问题。根据FindFit函数的文档1，你可以用下面的代码来拟合模型参数k的 ...

data = {{29.3, 42}, {44, 73.5}, {58.7, 116}, {73.3, 173}, {88,
    248}, {102.7, 343}, {117.3, 464}};
model[x_] := 0.75 v + k v^2;
fit = FindFit[data, model[x], {k}, x];
Show[ListPlot[data], Plot[f[x], {x, 0, 120}]]
E:\imdb

花开半夏——

陶远航 发表于 2023-6-3 18:05
我可以帮你用Mathematica软件求解这个问题。根据FindFit函数的文档1，你可以用下面的代码来拟合模型参数k的 ...

FindFit::fdssnv: 没有变量的搜索指定 1/2 ((FindFit^({{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},{0,0},1))[{{29.3,42},{44,73.5},{58.7,116},{73.3,173},{88,248},{102.7,343},{117.3,464}},{0.,0},0]+0.75 (FindFit^({{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},{1,0},0))[{{29.3,42},{44,73.5},{58.7,116},{73.3,173},{88,248},{102.7,343},{117.3,464}},{0.,0},0]) 应该是由 1 至 4 个元素组成的列表.

花开半夏——

陶远航 发表于 2023-6-3 18:05
我可以帮你用Mathematica软件求解这个问题。根据FindFit函数的文档1，你可以用下面的代码来拟合模型参数k的 ...

FindFit::argrx: 调用 FindFit 时使用了 3 个参数；应该用 4 个参数.

陶远航

花开半夏—— 发表于 2023-6-3 19:19
FindFit::argrx: 调用 FindFit 时使用了 3 个参数；应该用 4 个参数.

修改后的代码如下：

data = {{29.3, 42}, {44, 73.5}, {58.7, 116}, {73.3, 173}, {88,
    248}, {102.7, 343}, {117.3, 464}};
model[x_] := 0.75 x + k x^2;
fit = FindFit[data, model[x], {k}, x];
Show[ListPlot[data], Plot[model[x] /. fit, {x, 0, 120}]]

输出结果为：

{k -> 0.0102041}

希望这能解决你的问题。

花开半夏——

陶远航 发表于 2023-6-3 18:05
我可以帮你用Mathematica软件求解这个问题。根据FindFit函数的文档1，你可以用下面的代码来拟合模型参数k的 ...

data = {{29.3, 42}, {44, 73.5}, {58.7, 116}, {73.3, 173}, {88,
    248}, {102.7, 343}, {117.3, 464}};
model[x_] := 0.75 v + k v^2;
fit = FindFit[data, model[x], {k}, x];
Show[ListPlot[data], Plot[model[x], {x, 0, 120}]]
FindFit::fdssnv: 没有变量的搜索指定 1/2 ((FindFit^({{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},{0,0},1))[{{29.3,42},{44,73.5},{58.7,116},{73.3,173},{88,248},{102.7,343},{117.3,464}},{0.,0},0]+0.75 (FindFit^({{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},{1,0},0))[{{29.3,42},{44,73.5},{58.7,116},{73.3,173},{88,248},{102.7,343},{117.3,464}},{0.,0},0]) 应该是由 1 至 4 个元素组成的列表.

花开半夏——

陶远航 发表于 2023-6-3 19:25
修改后的代码如下：

改完之后还是有一点问题，没有k值
data = {{29.3, 42}, {44, 73.5}, {58.7, 116}, {73.3, 173}, {88,
    248}, {102.7, 343}, {117.3, 464}};
model[x_] := 0.75 x + k x^2;
fit = FindFit[data, model[x], {k}, x];
Show[ListPlot[data], Plot[model[x], {x, 0, 120}]]
FindFit::fdssnv: 没有变量的搜索指定 1/2 ((FindFit^({{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},{0,0},1))[{{29.3,42},{44,73.5},{58.7,116},{73.3,173},{88,248},{102.7,343},{117.3,464}},{0.,0},0]+0.75 (FindFit^({{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},{1,0},0))[{{29.3,42},{44,73.5},{58.7,116},{73.3,173},{88,248},{102.7,343},{117.3,464}},{0.,0},0]) 应该是由 1 至 4 个元素组成的列表.

陶远航

花开半夏—— 发表于 2023-6-3 19:32
改完之后还是有一点问题，没有k值
data = {{29.3, 42}, {44, 73.5}, {58.7, 116}, {73.3, 173}, {88,
...

data = {{29.3, 42}, {44, 73.5}, {58.7, 116}, {73.3, 173}, {88,
    248}, {102.7, 343}, {117.3, 464}};
model[x_] := 0.75 x + k x^2;
fit = FindFit[data, model[x], {k}, x];
Show[ListPlot[data], Plot[model[x] /. fit, {x, 0, 120}]]

花开半夏——

陶远航 发表于 2023-6-3 19:25
修改后的代码如下：

这次复制粘贴的代码，但是还是报错，没有k值
data = {{29.3, 42}, {44, 73.5}, {58.7, 116}, {73.3, 173}, {88,
    248}, {102.7, 343}, {117.3, 464}};
model[x_] := 0.75 x + k x^2;
fit = FindFit[data, model[x], {k}, x];
Show[ListPlot[data], Plot[model[x] /. fit, {x, 0, 120}]]
FindFit::fdssnv: 没有变量的搜索指定 1/2 ((FindFit^({{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},{0,0},1))[{{29.3,42},{44,73.5},{58.7,116},{73.3,173},{88,248},{102.7,343},{117.3,464}},{0.,0},0]+0.75 (FindFit^({{0,0},{0,0},{0,0},{0,0},{0,0},{0,0},{0,0}},{1,0},0))[{{29.3,42},{44,73.5},{58.7,116},{73.3,173},{88,248},{102.7,343},{117.3,464}},{0.,0},0]) 应该是由 1 至 4 个元素组成的列表.
ReplaceAll::reps: {FindFit[{{29.3,42},{44,73.5},{58.7,116},{73.3,173},{88,248},{102.7,343},{117.3,464}},0.00183857 +3.00475*10^-6 ((FindFit^({{<<2>>},{<<2>>},{<<2>>},{<<2>>},{<<2>>},{<<2>>},{<<2>>}},{0,0},1))[{{<<2>>},{<<2>>},{<<2>>},{<<2>>},{<<2>>},{<<2>>},{<<2>>}},{0.,0},0]+0.75 (FindFit^({<<7>>},{<<2>>},0))[{<<7>>},{<<2>>},0]),{1/2 (<<1>>+<<1>>)},0.00245143]} 既不是替换规则列表，也不是一个有效的分派表，因此无法用来替换.
General::stop: 在本次计算中，ReplaceAll::reps 的进一步输出将被抑制.

花开半夏——

陶远航 发表于 2023-6-3 19:38

输出结果只有一个散点图

陶远航

花开半夏—— 发表于 2023-6-3 19:40
这次复制粘贴的代码，但是还是报错，没有k值
data = {{29.3, 42}, {44, 73.5}, {58.7, 116}, {73.3, 173 ...

对于这块知识我也不熟悉，请教@sfqxx @isdkz @歌者文明清理员 吧

sfqxx

陶远航 发表于 2023-6-3 20:11
对于这块知识我也不熟悉，请教@sfqxx @isdkz @歌者文明清理员 吧

嘿嘿

花开半夏——

陶远航 发表于 2023-6-3 20:11
对于这块知识我也不熟悉，请教@sfqxx @isdkz @歌者文明清理员 吧

好吧

青出于蓝

https://chat.jinshutuan.com/#/chat/1682778002852
chatgpt你值得拥有

歌者文明清理员

青出于蓝 发表于 2023-6-3 21:39
https://chat.jinshutuan.com/#/chat/1682778002852
chatgpt你值得拥有

你也用的这个！