网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
07月31日漏签0天
mathematica吧 关注:19,843贴子:73,918
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 2回复贴,共1页
<<返回mathematica吧
>0< 加载中...

【求助】为什么图里没有曲线呢?g = 9.8; L = 0.

  • 只看楼主
  • 收藏

  • 回复
  • nirvan
  • 有待掌握
    6
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
【求助】为什么图里没有曲线呢?
g = 9.8; L = 0.852; tmax = Sqrt[2*(L + yo/2)/g];
equs = {y'[t] == -Sqrt[((g*(yo^2 + 2*L*yo - y[t]^2 - 2 L*y[t]))/(
L + y[t]))], y[0] == yo - 0.0000000001};
s = NDSolve[equs, y, {t, 0, tmax}]
{y} = {y} /. s[[1]];
Manipulate[Plot[y[t], {t, 0, tmax}], {yo, 0.1, 0.8}]


  • 无影东瓜
  • 小吧主
    12
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
因为你的代码里没有体现出yo是一个变量,改成这样就好了
g = 9.8; L = 0.852;
tmax[yo_] := Sqrt[2*(L + yo/2)/g];
equs[yo_] := {y'[t] == -Sqrt[((g*(yo^2 + 2*L*yo - y[t]^2 - 2 L*y[t]))/(L + y[t]))], y[0] == yo - 0.0000000001};
s[yo_] := NDSolve[equs[yo], y, {t, 0, tmax[yo]}];
Manipulate[Module[{ysol},
ysol = y /. s[yo][[1]];
Plot[ysol[t], {t, 0, tmax[yo]}]], {yo, 0.1, 0.8}]


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 2回复贴,共1页
<<返回mathematica吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示