c********s
发帖数: 123 | 1 Fortran program is beautiful!!!
program convolve
implicit none
c-----convolve lbl transmittance data with RSS filter function
integer ik, ip, nk, np, k, p, mm, nnp, nnk
parameter(np = 512, nk = 1024, nnp=4096, nnk=8192, mm=8)
real respQM(nk), respEQ(np, nk), respW(np)
real nrespQM(nnk), nrespEQ(nnp, nnk), nrespW(nnp)
real Imdir(nnk), Imdif(nnk), Irdir(nnp), Irdif(nnp), wn(nnk)
real tmp
character*20 label
print *, 'Reading RSS instrument | h***o
发帖数: 539 | | c********s
发帖数: 123 | 3 hehe, just show on and show off.
Fortran is simple, clear, clean, crispy.
【在 h***o 的大作中提到】
: easy
| c*******e
发帖数: 8624 | 4 sigh,偶还是喜欢用tbc, hehe
【在 c********s 的大作中提到】
: hehe, just show on and show off.
: Fortran is simple, clear, clean, crispy.
| h***o
发帖数: 539 | 5 偶现在用不了了。因为装了win2k
【在 c*******e 的大作中提到】
: sigh,偶还是喜欢用tbc, hehe
| c*******e
发帖数: 8624 | 6 不会吧，偶现在就用tc2.0，最土最土了
就是很小，随便揣上就走了，呵呵
【在 h***o 的大作中提到】
: 偶现在用不了了。因为装了win2k
| h***o
发帖数: 539 | 7 我也想用呀
只好每次跑到unix服务器上用cc编译来编译去了 | p*****g
发帖数: 38 | 8 why? tc2 can't run under win2k? interesting..
【在 h***o 的大作中提到】
: 我也想用呀
: 只好每次跑到unix服务器上用cc编译来编译去了
| h***o
发帖数: 539 | 9 你的能？能run是能run...可是截面乱气八糟
【在 p*****g 的大作中提到】
: why? tc2 can't run under win2k? interesting..
| p*****g
发帖数: 38 | 10 don't know, win2k SHOULD support old DOS applications, hehe.
【在 h***o 的大作中提到】
: 你的能？能run是能run...可是截面乱气八糟
| | | h***o
发帖数: 539 | 11 能弄了，不过要全屏，而且不能用dos shell. :(
【在 p*****g 的大作中提到】
: don't know, win2k SHOULD support old DOS applications, hehe.
| p*****g
发帖数: 38 | 12 try compile a simple graphical program... I doubt it cannot run.
【在 h***o 的大作中提到】
: 能弄了，不过要全屏，而且不能用dos shell. :(
| h***o
发帖数: 539 | 13 算了。作图我有自己的工具，给我算出数据来，放到文件里去就ok了
【在 p*****g 的大作中提到】
: try compile a simple graphical program... I doubt it cannot run.
| c*******e
发帖数: 8624 | 14 呵呵，偶工作也是这样，不过现在麻烦大了
一个4变量的系统，老板要我找个公式
我到哪里去找，奶奶的，一点不动脑筋
想要什么就能要啊，你自己去试试看
（呵呵，不敢当面说，只好这里发泄一下喽）
【在 h***o 的大作中提到】
: 算了。作图我有自己的工具，给我算出数据来，放到文件里去就ok了
| h***o
发帖数: 539 | 15 fit fit ya
只是可能误差会很大。:P
老板现在给我看的paper就是她从前怎么fit fit 4 参数系统的,
开始误差很大，后来通过一个approximation减掉一个参数，再fit,
哟，居然符合要求了，哈哈 "we accept this pleasant luck"
【在 c*******e 的大作中提到】
: 呵呵，偶工作也是这样，不过现在麻烦大了
: 一个4变量的系统，老板要我找个公式
: 我到哪里去找，奶奶的，一点不动脑筋
: 想要什么就能要啊，你自己去试试看
: （呵呵，不敢当面说，只好这里发泄一下喽）
| c*******e
发帖数: 8624 | 16 没有公式怎么fit,偶现在是一个参数一个参数搞
累死了，奶奶的，给图都不行
【在 h***o 的大作中提到】
: fit fit ya
: 只是可能误差会很大。:P
: 老板现在给我看的paper就是她从前怎么fit fit 4 参数系统的,
: 开始误差很大，后来通过一个approximation减掉一个参数，再fit,
: 哟，居然符合要求了，哈哈 "we accept this pleasant luck"
| h***o
发帖数: 539 | 17 分特。能花出图来还fit不出来？那画图软件是怎么画的？
【在 c*******e 的大作中提到】
: 没有公式怎么fit,偶现在是一个参数一个参数搞
: 累死了，奶奶的，给图都不行
| c*******e
发帖数: 8624 | 18 一个曲线当然没有问题了，问题是至少要好几百条曲线呐
一个一个搞要出人命的，而且拟合出来的参数还要拟合，呜呜
死定了死定了
【在 h***o 的大作中提到】
: 分特。能花出图来还fit不出来？那画图软件是怎么画的？
| h***o
发帖数: 539 | 19 comfort comfort......
【在 c*******e 的大作中提到】
: 一个曲线当然没有问题了，问题是至少要好几百条曲线呐
: 一个一个搞要出人命的，而且拟合出来的参数还要拟合，呜呜
: 死定了死定了
| f*******d
发帖数: 339 | 20 you call this beautiful?
No offense to you, but to FORTRAN, I mean.
【在 c********s 的大作中提到】
: Fortran program is beautiful!!!
: program convolve
: implicit none
: c-----convolve lbl transmittance data with RSS filter function
: integer ik, ip, nk, np, k, p, mm, nnp, nnk
: parameter(np = 512, nk = 1024, nnp=4096, nnk=8192, mm=8)
: real respQM(nk), respEQ(np, nk), respW(np)
: real nrespQM(nnk), nrespEQ(nnp, nnk), nrespW(nnp)
: real Imdir(nnk), Imdif(nnk), Irdir(nnp), Irdif(nnp), wn(nnk)
: real tmp
| | | c********s
发帖数: 123 | 21 oh, yeah. clean, simple. It is a good tool, it can do good job.
do you even use fortran?
【在 f*******d 的大作中提到】
: you call this beautiful?
: No offense to you, but to FORTRAN, I mean.
| f*******d
发帖数: 339 | 22 I use Fortran frequently, mostly because some old program was
written in that language, it cost too much time to write a new
one, patchy work.
As for your point of "simple", let me say this: it is no more
complicated to write the program in any other language. On the
other hand, for some more complicated works, it is very difficult
or ugly if you use FORTRAN.
As for "clean", I noted that you used lots of "end dos", strictly
speaking, that's not part of F77 standard. To ensure it runs
everywhere, | m*****e
发帖数: 4193 | 23 I once read a F77 program, and wanted to port it to Solaris. Too painful!
【在 c********s 的大作中提到】
: oh, yeah. clean, simple. It is a good tool, it can do good job.
: do you even use fortran?
| l******r
发帖数: 4 | 24 hehe
在下里开才两天,
科学就变了味,
不要吵架好不好.
特献给大家一段刚写的小程序.
program linesolve
!this program introduce the method to solve equation such as Ax=y,
!A is a n*n matrix,in program is x(i,j) i,j<=n
!x is a n vector,in program is y(i) i=n
!y is a n vector,in program is x(i,n+1) i<=n
!this method can easily to generalize to solve AX=Y,where the A,X,Y
!all is a n*n matrix
integer n,i,j,k,l
| t**t
发帖数: 9 | 25 There is a big difference between fortran 77 and 90.
The standard 77 version is too out-dated and not-easy-to-use,
90 is good, esp. considering the support of matrix operation
(not very powerful yet, but with not too much coding, you can
develop your library, like those in matlab.) and parallel computation.
If time permitted, I prefer writing 90 codes myself over copying
those 77 packages public avaliable: They are ugly. (Programming is
sometimes for fun, 77 is surely not.)
在 landauer (baby) 的大作 |
|
