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

 
 
 
日一二三四五六
       
       
       
       
       
       

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

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

本吧签到人数:0

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

  • 图片

  • 吧主推荐

  • 游戏

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

想询问是我代码有问题,还是本身数学上的问题

  • 只看楼主
  • 收藏

  • 回复
  • 只求昵称
  • 安装激活
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
这是一个物理题,这里的m0是绳重,l是绳长,t和x都是关于l的函数。我是想画一条f与l的关系曲线图,原计划l是无穷长的,但是因为公式计算里有m0的需要因此还是给出了确定的数值。
\[Lambda] = 0.031; Subscript[m, 1] = 4; Subscript[m, 2] = 2; m = 1; \
\[Mu] = 0.5; c = 1; Subscript[c, 2] = 1000; Subscript[m, 0] = \
61.9845; g = 9.8;
t = ((\[Lambda]*(Subscript[c, 2] - l) + Subscript[m, 2])*(m -
2*\[Lambda]*(c - 2*l) + 2*Subscript[m, 0] +
4*Subscript[m, 1]))/(m + 2*Subscript[m, 0] +
2*Subscript[m, 1] + 2*Subscript[m, 2]);
x = (Subscript[m, 1] - Subscript[m, 2] - c*\[Lambda])/(
1/2*m + Subscript[m, 0] + Subscript[m, 1] + Subscript[m, 2])*g*
l + (\[Lambda]*l*l)/(
1/2*m + Subscript[m, 0] + Subscript[m, 1] + Subscript[m, 2])*g;
equs1 = {f == t*E^(\[Mu]*\[Pi]) - x*\[Lambda]};
s = Solve[equs1, f, {l, 0, 800}];
Labeled[Show[
Plot[{Evaluate[f[l] /. s]}, {l, 0, 800}, PlotStyle -> {Black}],
AxesLabel -> {"l",
"\!\(\*FractionBox[SubscriptBox[\"F\", \"n\"], \"d\[Theta]\"]\)"},
AspectRatio -> 0.5, Frame -> True], 3]


  • xzcyr
  • 吧主
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
下标导致的问题,具体参看精品区《为什么我的代码加了下标就出问题了?》。


登录百度账号

扫二维码下载贴吧客户端

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