N=
SW=0.0
SWX=0.0
SWY=0.0
SWZ=0.0
VARW=0.0
VARX=0.0
VARY=0.0
VARZ=0.0
IDUM=
SS=0.2*(EXP(5.0)-EXP(-5.0))
VOL=3.0*7.0*SS
DO J=1,N
X=1.0+3.0*RAN2(IDUM)
Y=-3.0+7.0*RAN2(IDUM)
S=0.00135+SS*RAN2(IDUM)
Z=0.2*LOG(5.0*S)
IF (Z**2+(SQRT(X**2+Y**2)-3.0)**2 < 1.0) THEN
SW=SW+1.
SWX=SWX+X
SWY=SWY+Y
SWZ=SWZ+Z
VARW=VARW+1.
VARX=VARX+X**2
VARY=VARY+Y**2
VARZ=VARZ+Z**2
END IF
END DO
W=VOL*SW/N
X=VOL*SWX/N
Y=VOL*SWY/N
Z=VOL*SWZ/N
DW=VOL*SQRT((VARW/N-(SW/N)**2)/N)
DX=VOL*SQRT((VARX/N-(SWX/N)**2)/N)
DY=VOL*SQRT((VARY/N-(SWY/N)**2)/N)
DZ=VOL*SQRT((VARZ/N-(SWZ/N)**2)/N)
没有合适的资源?快使用搜索试试~ 我知道了~
VF.zip_fortran code
共193个文件
f90:191个
for:1个
txt:1个
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 88 浏览量
2022-09-22
23:14:12
上传
评论
收藏 97KB ZIP 举报
温馨提示
fortran常用算法源代码,是一些实例代码,为fortran77语言源码
资源推荐
资源详情
资源评论
收起资源包目录
VF.zip_fortran code (193个子文件)
SVDCMP.F90 4KB
HQR.F90 3KB
ADI.F90 2KB
SIMPLX.F90 2KB
DIFEQ.F90 2KB
AMOEBA.F90 2KB
SOLVDE.F90 2KB
JACOBI.F90 2KB
DBRENT.F90 2KB
QCKSRT.F90 2KB
FOURN.F90 2KB
SFROID.F90 2KB
BESJAN.F90 1KB
TRED2.F90 1KB
BESIAN.F90 1KB
ODEINT1.F90 1KB
MRQMIN.F90 1KB
BRENT.F90 1KB
SHOOTF.F90 1KB
PINVS.F90 1KB
ODEINT.F90 1KB
GAUSSJ.F90 1KB
LFIT.F90 1KB
TOEPLZ.F90 1KB
SPARSE.F90 1KB
LUDCMP.F90 1KB
ZBRENT.F90 1KB
TQLI.F90 1KB
MNBRAK.F90 1KB
HUNT.F90 1KB
SCRSHO.F90 1KB
DFPMIN.F90 1KB
POWELL.F90 1KB
RKQC.F90 1KB
BNLDEV.F90 1KB
MDIAN2.F90 1KB
MEDFIT.F90 1KB
BSSTEP.F90 1KB
BESSY1.F90 1KB
REALFT.F90 1KB
FIT.F90 1KB
BESSY0.F90 1KB
RTSAFE.F90 1KB
BS.F90 1KB
FOUR1.F90 1011B
BESSJ1.F90 1010B
BESSJ0.F90 1004B
SOR.F90 958B
BESSJ.F90 905B
RAN3.F90 883B
RAN2.F90 865B
COSFT.F90 864B
LAGUER.F90 843B
FRPRMN.F90 834B
GASCOL.F90 833B
SVDFIT.F90 832B
QRDCMP.F90 821B
SHOOT.F90 817B
BALANC.F90 795B
ZROOTS.F90 778B
BESSI1.F90 767B
RZEXTR.F90 757B
PZEXTR.F90 754B
PENDAG.F90 738B
POIDEV.F90 717B
BESSK1.F90 715B
SPLINE.F90 712B
RATINT.F90 707B
BETACF.F90 707B
BESSK0.F90 698B
ELMHES.F90 693B
QROOT.F90 680B
MRQCOF.F90 679B
SIMP2.F90 677B
VANDER.F90 662B
CONVLV.F90 658B
BESSI0.F90 648B
RTFLSP.F90 644B
COVSRT.F90 644B
POLINT.F90 640B
BESSI.F90 637B
INDEXX.F90 620B
GAULEG.F90 615B
RAN1.F90 610B
LINMIN.F90 609B
GOLDEN.F90 599B
SORT2.F90 590B
KSTWO.F90 588B
GAMDEV.F90 580B
PLGNDR.F90 577B
MOMENT.F90 565B
QUAD3D.F90 559B
MMID.F90 551B
SINFT.F90 542B
TWOFFT.F90 539B
MNEWT.F90 537B
GCF.F90 535B
RKDUMB.F90 534B
EX.F90 534B
EULSUM.F90 528B
共 193 条
- 1
- 2
资源评论
小波思基
- 粉丝: 72
- 资源: 1万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功