Fortran在线运行

版本:

编辑于 2024-06-29 19:46 累计访问:3296
点击了解高性能代码运行API
运行结果
代码简介
代码仓库
极速运行
终端运行
图形+终端

                        
以下是用户最新保存的代码
求逆子程序段 发布于:2024-09-21 19:47 UMAT for xianxin 发布于:2024-09-05 01:03 请问对方收到 发布于:2024-07-31 17:49 hello world 发布于:2024-07-17 10:33 试验数组语法 发布于:2024-07-12 09:11 Zarchan 3rd ed. Listing 20.1 发布于:2024-07-02 10:06 面热源子程序 SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,JLTYP, 1 TEMP,PRESS,SNAME) C INCLUDE 'ABA_PARAM.INC' C DIMENSION COORDS(3),FLUX(2),TIME(2) CHARACTER*80 SNAME C U=16.5 AI=60. v=250./60 yita=0.75 R0=5. qm=yita*U*AI*1000./3.14/R0/R0 dx=v*time(1) rr=((COORDS(1)-dx)**2+COORDS(2)**2 FLUX(1)=3*qm*EXP(-(3*rr)/R0**2) RETURN END 发布于:2024-06-29 19:46 冒泡排序module 发布于:2024-06-09 17:06 一个简单的代码 发布于:2024-05-21 18:02 计算矩形面积 发布于:2024-03-11 10:50 计算2+4+6+8+10 发布于:2024-03-01 16:11 位错密度演变vumat.1 发布于:2024-01-09 15:23 ! 求解微分方程:y'=y-x, ! 定解条件:x=0.0,y=2.0 ! 积分区间:[0,10] 发布于:2024-01-09 10:24 ! 求解微分方程:y'=y, ! 定解条件:x=0.0,y=1.0 ! 积分区间:[0,1] 发布于:2024-01-09 10:13 try fortran 发布于:2023-12-14 13:40 数据的相关系数和回归检验 发布于:2023-12-11 13:58 fortran:: selec-case 发布于:2023-10-31 15:51 逻辑判断代码 发布于:2023-10-25 10:07 课后习题啊 发布于:2023-10-23 22:29 计算所得税 发布于:2023-10-22 20:48 整数的输出格式 发布于:2023-10-15 19:38 program main integer:: a=3 print *,"Hello print*,sqrt4 print*,alog100 end 发布于:2023-10-14 13:05 测试不加括号 发布于:2023-10-14 12:58 Fortran语言编写的B样条曲线基函数的递推公式代码示例 发布于:2023-10-13 11:17 使用Fortran编写的B样条曲线的公式代码以及计算B样条曲线上某一参数点的物理坐标的示例代码。在此示例中,我们使用了三次B样条曲线(K=3) 发布于:2023-10-13 11:15 EPS_deformation.f90 封装的PostScript,变形 发布于:2023-10-10 17:25 EndNote.f90 尾注 发布于:2023-10-10 17:18 module com 发布于:2023-10-02 11:28 对一些数组进行编译测试 发布于:2023-12-05 21:26 BW模型严格求解/测试 发布于:2023-10-12 18:45 实现一个简单的加法 发布于:2023-09-21 19:54 测试positron fortran 发布于:2023-09-14 16:07 二分法求数值 发布于:2023-09-12 18:22 Fortran :type变量测试 发布于:2023-09-19 09:07 0806 只算3个 发布于:2023-09-10 19:48 Fortran: type 嵌套使用 发布于:2023-10-23 14:56 Fortran:字符串类型转换为integer类型测试 发布于:2023-10-08 08:58 结构力学矩阵位移法 发布于:2023-09-01 23:53 P181/字符串 发布于:2023-08-29 16:08 数组参数/P180 发布于:2023-08-29 15:54 自定义函数(function)/P166 发布于:2023-08-29 15:43 主程序在调用子程序时,可以传递变量数据,“传递参数”/P161 发布于:2023-08-29 15:03 主程序与子程序中的变量不会相互影响,可以使用相同的变量名称/P159 发布于:2023-08-29 14:54 子程序(subroutine)的调用/P158 发布于:2023-08-29 10:07 数组的应用/P149 发布于:2023-08-29 10:02 可变大小的数组/P147 发布于:2023-08-29 09:43 where/P138/通过逻辑运算来取用数组中的元素 发布于:2023-08-28 16:44 对整个数组的操作/P134 发布于:2023-08-28 16:27 数组/赋初值/P131 发布于:2023-08-28 16:16 二维数组/保存五个班级,每个班级中五位同学的成绩/P124 发布于:2023-08-28 15:29 [更多]

作者 我是大神(xc2001)
编辑于:2024-06-29 19:46

面热源子程序

SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,JLTYP,

1 TEMP,PRESS,SNAME) C INCLUDE 'ABA_PARAM.INC' C DIMENSION COORDS(3),FLUX(2),TIME(2) CHARACTER*80 SNAME C

U=16.5 AI=60. v=250./60 yita=0.75 R0=5.

qm=yitaUAI*1000./3.14/R0/R0

dx=v*time(1)

rr=((COORDS(1)-dx)2+COORDS(2)2

FLUX(1)=3qmEXP(-(3rr)/R0*2)

RETURN END

提示:本站严禁涉政、违法等无关技术的内容
发送
学习嵌入式的绝佳套件,esp8266开源小电视成品,比自己去买开发板+屏幕还要便宜,省去了焊接不当搞坏的风险。 蜂鸣版+触控升级仅36元,更强的硬件、价格全网最低。

点击购买 固件广场

yout