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

 
 
 
日一二三四五六
       
       
       
       
       
       

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

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

本吧签到人数:0

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

  • 图片

  • 吧主推荐

  • 游戏

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

【提问】代码最后一句查了帮助还是不懂

  • 取消只看楼主
  • 收藏

  • 回复
  • 凤影九千
  • 大写小写
    3
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
eqns = {Flatten@
Table[{-I Derivative[1][u[i]][
t] == \[Beta]1 (u[i - 1][t] + u[i + 1][t])}, {i, 2, 19}],
-I Derivative[1][u[1]][t] == \[Beta]1 u[2][t],
-I Derivative[1][u[20]][t] == \[Beta]1 u[19][t],
Flatten@Table[{u[i][0] == 0}, {i, 1, 10}], u[11][0] == 1,
Flatten@Table[{u[i][0] == 0}, {i, 12, 20}]} /. {\[Beta]1 -> 0.5};
ans = NDSolve[eqns, Flatten@Table[{u[i]}, {i, 1, 20}], {t, 0, 10}];
Abs[u[1][5] /. ans[[1]] ]^2
前面两段是求解一系列微分方程,最后一句是干什么的?请好心人解答,谢谢!


登录百度账号

扫二维码下载贴吧客户端

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