求fortran语言转化成c语言或者C++的程序实例!!(有文件 *** 作的哈!如一个fortran完整程序,转化成后仍完整

求fortran语言转化成c语言或者C++的程序实例!!(有文件 *** 作的哈!如一个fortran完整程序,转化成后仍完整,第1张

#include<stdio.h>闷带陵

#include<蚂戚stdlib.h>

main(){

FILE *fin,*fout

char namein[64],nameout[64]

int a,b,c,d

printf("\007Enter input file name\n")

scanf("%s",namein)

printf("Enter output file name\n")

scanf("%s",nameout)

fin=fopen(namein,"r")

fout=fopen(nameout,"w")

fscanf(fin,"行颂%d %d %d %d",&a,&b,&c,&d)

fprintf(fout,"%d %d %d %d\n",a,b,c,d)

fclose(fin)

fclose(fout)

return 0

}

/*

character*64 namein, nameout

integer*4 a,b,c,d

write(*,*) char(127),char(7)

write(*,*) 'Enter input file name'

read(*,'(A)') namein

write(*,*) 'Enter output file name '

read(*,'(A)') nameout

open(unit=1,file=namein,status='old')

open(unit=2,file=nameout,status='unknown')

read(1,'(1I5,1I5,1I5,1I5)') a,b,c,d

write(2,'(1I5,1I5,1I5,1I5)') a,b,c,d

close(1)

close(2)

end

*/

用最小二乘法拟合不就行了,IMSL或是MKL有现告者成的函数啊。。。

咋会难倒高手呢?没感觉出来袜搭薯:)

我之前还没看清,这是5个未知数与5组数据的线性方程组枝型啊。。。连拟合都用不上,直接解方程就行了。。。


欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/yw/12467975.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-05-23
下一篇2023-05-23

发表评论

登录后才能评论

评论列表(0条)

    保存