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