算法及编程语言 - 声振论坛 - 振动,动力学,声学,信号处理,故障诊断

frogfish 发表于 2005-7-25 11:38

与结构动力计算相关的Fortran程序

<TABLE cellSpacing=0 cellPadding=5 width=600 align=center>

<TR>
<TD vAlign=top align=middle>
Programs </TD></TR>
<TR>
<TD>
You may download all of the files at once as <a href="http://www.structural-dynamics.com/programs/programs.zip" target="_blank" >programs.zip</A>. Note that the *.exe files may not be downloaded from the table below do to a web server security policy. The zip file contains the executables for MS Windows. 
<TABLE height=226 cellSpacing=0 cellPadding=0 width="101%" border=1>

<TR>
<TD align=middle width="14%" height=36>Programs</TD>
<TD width="26%" height=26>
Description</TD>
<TD align=middle width="15%" height=26>Source</TD>
<TD align=middle width="15%" height=26>Executable</TD>
<TD align=middle width="17%" height=26>Instructions</TD>
<TD align=middle width="14%" height=26>Input</TD></TR>
<TR>
<TD align=middle width="14%" height=16>GRESP</TD>
<TD align=middle width="26%" height=16>
Generate the response spectra of a linear SDOF system to base excitation.</TD>
<TD width="15%" height=16>
<a href="http://www.structural-dynamics.com/programs/gresp/gresp.for" target="_blank" >gresp.for</A></TD>
<TD width="15%" height=16>
gresp.exe</TD>
<TD width="17%" height=16>
<a href="http://www.structural-dynamics.com/programs/gresp/gresp.wri" target="_blank" >gresp.wri</A></TD>
<TD width="14%" height=16>
<a href="http://www.structural-dynamics.com/programs/gresp/gresp.in" target="_blank" >gresp.in</A> <a href="http://www.structural-dynamics.com/programs/gresp/p7accl.in" target="_blank" >p7accl.in</A></TD></TR>
<TR>
<TD align=middle width="14%" height=16>LRESP</TD>
<TD align=middle width="26%" height=16>Generate the displacement response spectra of a SDOF system to arbitrary loading.</TD>
<TD width="15%" height=16>
<a href="http://www.structural-dynamics.com/programs/lresp/lresp.for" target="_blank" >lresp.for</A></TD>
<TD width="15%" height=16>
lresp.exe</TD>
<TD width="17%" height=16>
<a href="http://www.structural-dynamics.com/programs/lresp/lresp.wri" target="_blank" >lresp.wri</A></TD>
<TD width="14%" height=16>
<a href="http://www.structural-dynamics.com/programs/lresp/lresp.in" target="_blank" >lresp.in</A></TD></TR>
<TR>
<TD align=middle width="14%" height=16>MODES</TD>
<TD align=middle width="26%" height=16>Compute the response of a MDOF system using Mode-Superposition. System must be linear and have proportional damping.</TD>
<TD width="15%" height=16>
<a href="http://www.structural-dynamics.com/programs/modes/modes.for" target="_blank" >modes.for</A></TD>
<TD width="15%" height=16>
modes.exe</TD>
<TD width="17%" height=16>
<a href="http://www.structural-dynamics.com/programs/modes/modes.wri" target="_blank" >modes.wri</A></TD>
<TD width="14%" height=16>
<a href="http://www.structural-dynamics.com/programs/modes/modes.in" target="_blank" >modes.in</A></TD></TR>
<TR>
<TD align=middle width="14%" height=16>NEWB</TD>
<TD align=middle width="26%" height=16>Simulate the response of a MDOF system using Newmark-Beta time integration to directly integrate the coupled ordinary differential equations of motion at specified time intervals.</TD>
<TD width="15%" height=16>
<a href="http://www.structural-dynamics.com/programs/newb/newb.for" target="_blank" >newb.for</A></TD>
<TD width="15%" height=16>
newb.exe</TD>
<TD width="17%" height=16>
<a href="http://www.structural-dynamics.com/programs/newb/newb.wri" target="_blank" >newb.wri</A></TD>
<TD width="14%" height=16>
<a href="http://www.structural-dynamics.com/programs/newb/newb.in" target="_blank" >newb.in</A></TD></TR>
<TR>
<TD align=middle width="14%" height=16>PLAS</TD>
<TD align=middle width="26%" height=16>Compute the elasto-plastic response of a SDOF system to an arbitrary applied load including the nonlinear behavior of the system caused by displacements beyond the elastic limit of the material.</TD>
<TD width="15%" height=16>
<a href="http://www.structural-dynamics.com/programs/plas/plas.for" target="_blank" >plas.for</A></TD>
<TD width="15%" height=16>
plas.exe</TD>
<TD width="17%" height=16>
<a href="http://www.structural-dynamics.com/programs/plas/plas.wri" target="_blank" >plas.wri</A></TD>
<TD width="14%" height=16>
<a href="http://www.structural-dynamics.com/programs/plas/plas.in" target="_blank" >plas.in</A></TD></TR>
<TR>
<TD align=middle width="14%" height=16>NRIDGE</TD>
<TD align=middle width="26%" height=16>Northridge earthquake record.</TD>
<TD align=middle width="15%" height=16> </TD>
<TD align=middle width="15%" height=16> </TD>
<TD align=middle width="17%" height=16> </TD>
<TD align=middle width="14%" height=16><a href="http://www.structural-dynamics.com/programs/Northridge/nridge.dat" target="_blank" >nridge.dat</A></TD></TR>
<TR>
<TD align=middle width="14%" height=16>FFT</TD>
<TD align=middle width="26%" height=16>Compute the fast Fourier transform of a timeseries or the inverse transform of spectral components (real and/or complex).</TD>
<TD align=middle width="15%" height=16><a href="http://www.structural-dynamics.com/programs/fft/Fft.for" target="_blank" >fft.for</A></TD>
<TD align=middle width="15%" height=16>fft.exe</TD>
<TD align=middle width="17%" height=16><a href="http://www.structural-dynamics.com/programs/fft/fft.txt" target="_blank" >fft.txt</A></TD>
<TD align=middle width="14%" height=16> </TD></TR>
<TR>
<TD align=middle width="14%" height=16>UPCROSS</TD>
<TD align=middle width="26%" height=16>Determines the zero upcrossing waves from a timeseries of the free surface.</TD>
<TD align=middle width="15%" height=16><a href="http://www.structural-dynamics.com/programs/up_cross/Upcross.for" target="_blank" >upcross.for</A></TD>
<TD align=middle width="15%" height=16>upcross.exe</TD>
<TD align=middle width="17%" height=16><a href="http://www.structural-dynamics.com/programs/up_cross/upcross.txt" target="_blank" >upcross.txt</A></TD>
<TD align=middle width="14%" height=16><a href="http://www.structural-dynamics.com/programs/up_cross/input.dat" target="_blank" >input.dat</A></TD></TR>
<TR>
<TD align=middle width="14%" height=16>LWT</TD>
<TD align=middle width="26%" height=16>Compute?the free surface elevation, horizontal and vertical velocity, horizontal and vertical acceleration as a function of time at a given horizontal and vertical location.</TD>
<TD align=middle width="15%" height=16><a href="http://www.structural-dynamics.com/programs/lwt/LWT.FOR" target="_blank" >lwt.for</A></TD>
<TD align=middle width="15%" height=16>lwt.exe</TD>
<TD align=middle width="17%" height=16><a href="http://www.structural-dynamics.com/programs/lwt/lwt.txt" target="_blank" >lwt.txt</A></TD>
<TD align=middle width="14%" height=16> </TD></TR>
<TR>
<TD align=middle width="14%" height=16>STOKES5</TD>
<TD align=middle width="26%" height=16>Compute?the free surface elevation, horizontal and vertical velocity, horizontal and vertical acceleration as a function of time at a given horizontal and vertical location.? </TD>
<TD align=middle width="15%" height=16><a href="http://www.structural-dynamics.com/programs/stokes5/stokes5.for" target="_blank" >stokes5.for</A> </TD>
<TD align=middle width="15%" height=16>stokes5.exe </TD>
<TD align=middle width="17%" height=16> </TD>
<TD align=middle width="14%" height=16> </TD></TR>
<TR>
<TD align=middle width="14%" height=16>CNOIDAL</TD>
<TD align=middle width="26%" height=16>Compute free surface elevation, horizontal and vertical velocity, and horizontal acceleration as a function of time at a given vertical location. </TD>
<TD align=middle width="15%" height=16><a href="http://www.structural-dynamics.com/programs/cnodial/cnodial.for" target="_blank" >cnoidal.for</A></TD>
<TD align=middle width="15%" height=16>cnoidal.exe</TD>
<TD align=middle width="17%" height=16> </TD>
<TD align=middle width="14%" height=16> </TD></TR></TABLE></TD></TR></TABLE>

linqus 发表于 2005-7-26 19:03

不错的好东东,谢谢

hxd1024 发表于 2005-11-3 21:55

谢谢！

xhtoday 发表于 2005-11-25 22:56

恩 做的界面很漂亮

rqmp 发表于 2005-12-29 20:12

我怎么没办法下啊，楼上的兄弟可否拿出来共享一下，多谢！

linqus 发表于 2005-12-30 09:26

回复：（rqmp）我怎么没办法下啊，楼上的兄弟可否拿出...

<DIV class=quote>以下是引用rqmp在2005-12-29 20:12:24的发言： 我怎么没办法下啊，楼上的兄弟可否拿出来共享一下，多谢！</DIV>
刚试了一下，完全可以呵， 有空你再试试，因为是国外的网站可能速度慢些。

mikebaby 发表于 2006-4-10 13:57

好

好东西呀

user34j 发表于 2006-4-10 16:44

好东东，谢谢咯

havvn 发表于 2006-4-14 10:49

这些东西楼主能分享太让我们感动了！！！！向楼主致敬！也要向楼主学习！等我们成长起来了也要分享自己的东西！！！！！！！！！！1

jiangqun18 发表于 2006-4-28 16:18

向楼主致敬！也要向楼主学习！等我们成长起来了也要分享自己的东西！！！！！！！！！！1

liu3806881 发表于 2006-5-15 11:26

呵呵， 好东西呢 强顶

cookie1226 发表于 2006-5-15 11:41

好东东，谢谢分享！

renqing99 发表于 2006-7-28 16:50

thank you very much!

cjf108417590 发表于 2008-12-25 22:10

好，谢谢了啊

timber 发表于 2008-12-28 20:04

好东东，谢谢楼主！编程时可以参考了。

页: [1] 2

声振论坛's Archiver

与结构动力计算相关的Fortran程序

回复：（rqmp）我怎么没办法下啊，楼上的兄弟可否拿出...

好