有哪些信誉好的足球投注网站- 1、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
工程地质学程序
READ(5,*) NS !土条总数
READ(5,*)(X2(I),I=1,NS)
READ(5,*)(Y2(I),I=1,NS)
N=NS+1
DO 302 I=1,N
READ(5,*)W(I),RU(I),C(I),F(I),BDA(I),WL(I),FQUH(I),FDIS(I),YSF(I)
302 CONTINUE
!读入两端点和土条底中点的数据,其中涉及力的物理量均以单宽土条计
!X2,Y2=坐标,W=土条重量,RU=孔压系数,C=凝聚力=,F=磨擦系数,BDA=土容重,
!WL=浸润线Y坐标,FQUH,FDIS,YSF=水平地震力的大小,Y坐标,垂直水平地震力的大小
IF(OPTION.EQ.3)THEN
READ(5,*)ASP
WRITE(6,*)陆军工程师团法，平均坝坡=,ASP
ASP=ASP*3.14159/180.
ENDIF
WRITE(6,709)RW
709 FORMAT(1X,水容重=,F10.3//)
WRITE(6,702)
702 FORMAT(T25,DATA FOR ASSUMED SIDE
READ(5,*) NS !土条总数
READ(5,*)(X2(I),I=1,NS)
READ(5,*)(Y2(I),I=1,NS)
N=NS+1
DO 302 I=1,N
READ(5,*)W(I),RU(I),C(I),F(I),BDA(I),WL(I),FQUH(I),FDIS(I),YSF(I)
302 CONTINUE
!读入两端点和土条底中点的数据,其中涉及力的物理量均以单宽土条计
!X2,Y2=坐标,W=土条重量,RU=孔压系数,C=凝聚力=,F=磨擦系数,BDA=土容重,
!WL=浸润线Y坐标,FQUH,FDIS,YSF=水平地震力的大小,Y坐标,垂直水平地震力的大小
IF(OPTION.EQ.3)THEN
READ(5,*)ASP
WRITE(6,*)陆军工程师团法，平均坝坡=,ASP
ASP=ASP*3.14159/180.
ENDIF
WRITE(6,709)RW
709 FORMAT(1X,水容重=,F10.3//)
WRITE(6,702)DO 208 I=2,NS
X(I)=(X2(I)+X2(I-1))/2.
Y(I)=(Y2(I)+Y2(I-1))/2.
ALF(I)=ATAN((Y2(I)-Y2(I-1))/(X2(I)-X2(I-1)))
208 CONTINUE
ALF(1)=ALF(2)
ALF(N)=0
X(N)=X2(NS)
Y(N)=Y2(NS)
X(1)=X2(1)
Y(1)=Y2(1)
WRITE(6,716)
716 FORMAT(T5,NO. ,T14,X,T24,Y,T34,W,T44,RU,T54,C,
#T64,F,T74,BDA,T84,WL,T94,QH,T104,YE)
DO 901 I=1,N
WRITE(6,718) I,X(I),Y(I),W(I),RU(I),C(I),F(I),BDA(I),WL(I)
#,FQUH(I),FDIS(I)
901 CONTINUE
718 FORMAT(1X,I5,11F10.3)
WRITE(6,719)
719 FORMAT(1X,/NOTE:)
WRITE(6,720)
720 FORMAT(5X,W=土条的单宽重量)
WRITE(6,721)
721 FORMAT(5X,RU=孔隙水压力系数)
WRITE(6,722)
722 FORMAT(5X,C=凝聚力)
WRITE(6,723)
723 FORMAT(5X,F=摩擦系数)
WRITE(6,724)
724 FORMAT(5X,BDA=土条的平均容重)
WRITE(6,725)
FORMAT(5X,WL=浸润线的Y坐标)
SELECT CASE (OPTION)
CASE(0)
WRITE(6,701)
701 FORMAT(/10X,SPENCER METHOD)
CALL SAFE2(X2,F,FQUH,FDIS,W,RU,N,X,ALF,C,AB1,4)
IWALL=0
DO 301 I=1,80
FXO(I)=0
FX(I)=1
301 CONTINUE !tan(BETA(I))=FXO(I)+ALAM*FX(I)
KXYX=0
CALL MP(N,KXYX,KS,AB1,DQ,DM,BN,FX,FXO,
C,F,X2,Y2,X,Y,W,RU,FQUH,WL,FDIS,RW,DB,DF)
CASE(1)
WRITE(6,704)
704 FORMAT(/20X,BISHOP法/)
CALL SAFE2(X2,F,FQUH,FDIS,W,RU,N,X,ALF,C,AB1,OPTION)
CASE(2)
WRITE(
文档评论（0）