deallocate 函数 matlab,fortran编程。求教求余函数的算法。我认为

公告: 为响应国家净网行动,部分内容已经删除,感谢读者理解。

话题:fortran编程。求教求余函数的算法。我认为

问题详情:program mainimplicit none integer a,b,c a=1 b=5 c=mod(a,b) w回答:同学,你的算法没有错误!求余运算中,mod(1,5)是等于1的,因为1/5=0…1所以余数是1,希望你能够采纳!谢谢!话题:使用fortran语言编程,已知2维图像回答:ansys、flux之类的功能比较点, 设置一下就可以做分析, 但是你有什么新奇点的想法大概是很难实现的了matlab有个FEM函数包, 也做这方面能容易些吧。如果你是里要做事情, 用ansys flux这种现成的就好了。 如果是搞要琢磨算法或者写的话也matlab好一些。 如果完了要实用的话, 可以等matlab做通了转fortran, 速度能快一些 写码比较省心, 要是能设置好分布式计算的话, 算几天什么数据都有了 。 而且用ansys的话里对算法、精度、开销、细节之类的也不太好分析吧说ansys, flux之类的东西方法都是固定的, 不是用来的, 如果就具体某类问题你选了一个比较适合的方法,做了一些适当的改话题:求一个能计算数据个数的FORTRAN程序!

问题详情:要求能批处理。读1.TXT,输出RESULT_1.TXT这样。每回答:character*40 filenameinteger,allocatable::a(:),b(:),c(:)filename='1.txt'call get_para(filename,n,min,max)allocate(a(n),b(n),c(n))open(12,file=filename,status='old')read(12,*) (a(i),i=1,n)close(12)k=1do j=min,max sum=0 do i=1,n if(a(i).eq.j)then sum=sum+1 b(k)=j c(k)=sum endif enddo if(sum.ne.0) k=k+1enddok=k-1open(13,file='RESULT_1.txt',status='unknown')do i=1,k write(13,*) b(i),c(i)enddoclose(13)deallocate(a,b,c) endsubroutine get_para(filename,n,min,max)real tempcharacter*(*) filenamen=0open(11,file=filename,status='old')do while(.not.eof(11)) read(11,*) temp n=话题:编程入门

问题详情:我想学如何编程,让我一窍不通,知道编程的告诉我:我应回答:: .d2school./ 第二学堂 这个从基础讲起,而且通俗易懂,基本上就是大,没有基础也能学会,不像那些编程书简单的问题都给说复杂了。

参考回答:先学C吧.去买本谭浩强的C程序设计,好多都拿这个做入门教材话题:与Fortran混合编程?回答:我想做一个优化计算项目,拟用Delphi与Fortran混淆编程,有几个问题想求教:3、因为须要频繁地调用Fortran部分的计算函数,且每次计算均须要占用大大量的内存,可会造成内存释放不完全等后? 1、除了将Fortran部分编译成DLL外还有没有其他的办法。2、这种混淆编程有没有明显的缺点。

参考回答:可以推敲应用进行数据,如能简单一点话题:fortran程序求

问题详情:编写程序实现之。(求平方根可用函数SQRT,如a=sqrt(4.0))回答:我想本题的关键在于理论的分析。由于的轨迹为二次曲线方程,因次在二次曲线对称轴x=0.0/(2*0.0000125)处上升最大高度。另外发时和落地时距地面的高度均为0。因此令f(x)=0求出发点和落地点的横坐标x1,x2,相减之后(x2-x1),就是前行的最远距离。下面是程序,望对你有帮助!程序:module tool implicit none real*::distance !上升的最大高度 real*::high !飞行的最远距离contains real* function f(x) real*::x f=-0.0000125*x**2+0.0*x-50 !飞行曲线的轨道方程 !f=x**2+1 end function real* function binroot(f,x1,x2)!二分法求方程的根(点) real*,external::f real*::x1,x2,x0 do while(f(x1)*f(x2)1e

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值