| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 370 人关注过本帖
标题:求助!耦合振子的编程
只看楼主 加入收藏
jdlsd1985
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-5-7
收藏
 问题点数:0 回复次数:2 
求助!耦合振子的编程

我有一个程序是模拟2个耦合振子的运动方程,哪位大虾帮小弟把它改成N个耦合振子的,N能由用户输入,原程序如下:
#include <stdio.h>
#include <conio.h>
#define N 10

void main()
{
int i,n=4,j=0;
double u[N]={0,0.5,0,0},v[N],a[N],t=0,dt=1e-4,tmax=20,k=1,M=1;
FILE *fp;
fp=fopen("zhendong.txt","w");
fprintf(fp,"t");
for(i=1;i<n-1;i++)fprintf(fp,"\tu%d",i);
fprintf(fp,"\n");
printf("Calculating...\n");
while(t<=tmax){
if(j%100==0){
fprintf(fp,"%lf",t);
for(i=1;i<n-1;i++)fprintf(fp,"\t%lf",u[i]);
fprintf(fp,"\n");
}
for(i=1;i<n-1;i++){
a[i]=(u[i-1]+u[i+1]-2*u[i])*k/M;
v[i]+=a[i]*dt;
u[i]+=v[i]*dt;
}
t+=dt;
j++;
}
fclose(fp);
printf("Finished!\n");
getch();
}

搜索更多相关主题的帖子: 振子 耦合 
2007-05-07 12:05
jdlsd1985
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-5-7
收藏
得分:0 
回复:(jdlsd1985)求助!耦合振子的编程

没有人会吗?

2007-05-09 09:43
nuciewth
Rank: 14Rank: 14Rank: 14Rank: 14
来 自:我爱龙龙
等 级:贵宾
威 望:104
帖 子:9786
专家分:208
注 册:2006-5-23
收藏
得分:0 
耦合振子
解释这个先.

倚天照海花无数,流水高山心自知。
2007-05-09 10:34
快速回复:求助!耦合振子的编程
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022622 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved