346土质边坡德定分析一原理 4.曲线-直线组合滑裂面例题 (1)数据文件 Spline-2dat 51.522-35.000 6-46.314-28.235 10-41.68525.511 1535.898 4.224 20-30.000-25.000 (2)计算成果 Spline-2c 151.522-35.00 2-50.480-33.459 6-46.314-28.235 7-45.157-27.300 8-44000-26.583 11-40.528-25511 12-39370-25.511 13-38.213-25.511 14-37.055-25.511 15-35.898-25.511 16-34.718-25 17-33.539-25.307 1832.359-25204 19-31.180-25.102 20-30.000-25.000 11.3.4计算土条重量和物理力学参数的程序 PROFILE FOR 1.说明 本子程序根据112.1介绍的方法计算每个土条的重量、条底的强度指标和孔隙水压力a 2.源程序 DIMENSION SH(20), M4(20), SHNE(20), M4NE(20) DIMENSION XU(80), HSL(80), X3(80), Y3(80) (10), LINES(80), YSF(80)B3/KD COMMON/AI/IN, INI, PF(20), PC(20), PDW(20), PDS(20), IPH, ICPH(40, 3) COMMON/A2/NN, NJ(20), NHY, DHRP, WL(80), BDA(80), CA(80), FAA(80) COMMON/A3/RW, RUL, UWL/SWEAK/TWEAK, KQ3(50), LWK, IC3(40, 3) COMMON/A6/X(80,Y(80,XN(99),YN(9),X2(80,Y2(80),IC(80,3),N COMMON/A7/(80), RU(80), C(80), F(80)/A8/MYK, KXSX, MTE, KL COMMON/A1S/UWLI, NCOUN, MLA(80), PF1(20), PCI(20), MID(20), PNOR(20) NHT, MRD INTEGER4 OPTION(6),OP1(6) COMMON/OPP/OPTION OPI OPEN(5, FILE= STATUS=UNKNOWN) PEN(6, FILE= STATUS=UNKNOWN) C IwR5=0,1分别相应顶部有、无拉力缝; YTENSION=拉力缝底Y坐标 DS.CX.CY=滑弧深度,圆心坐标346 土质边坡稳定分析 原理 ⋅ 方法 ⋅ 程序 4. 曲线-直线组合滑裂面例题 (1) 数据文件 Spline-2.dat 5 1 -51.522 -35.000 6 -46.314 -28.235 10 -41.685 -25.511 15 -35.898 -24.224 20 -30.000 -25.000 1 3 (2) 计算成果 Spline-2.c N= 20 1 -51.522 -35.000 2 -50.480 -33.459 3 -49.439 -31.965 4 -48.397 -30.565 5 -47.356 -29.306 6 -46.314 -28.235 7 -45.157 -27.300 8 -44.000 -26.583 9 -42.842 -26.011 10 -41.685 -25.511 11 -40.528 -25.511 12 -39.370 -25.511 13 -38.213 -25.511 14 -37.055 -25.511 15 -35.898 -25.511 16 -34.718 -25.409 17 -33.539 -25.307 18 -32.359 -25.204 19 -31.180 -25.102 20 -30.000 -25.000 11. 3. 4 计算土条重量和物理力学参数的程序 PROFILE.FOR 1. 说明 本子程序根据 11.2.1 介绍的方法计算每个土条的重量 条底的强度指标和孔隙水压力 2. 源程序 DIMENSION SH(20),M4(20),SHNE(20),M4NE(20) DIMENSION XU(80),HSL(80),X3(80),Y3(80) COMMON/CRU/RUS(10),LINES(80),YSF(80)/B3/IKD COMMON/A1/IN,IN1,PF(20),PC(20),PDW(20),PDS(20),IPH,ICPH(40,3) COMMON/A2/NN,NJ(20),NHY,DHRP,WL(80),BDA(80),CA(80),FAA(80) #,LRU(20) COMMON/A3/RW,RU1,UWL/SWEAK/IWEAK,KQ3(50),LWK,IC3(40,3) COMMON/A6/X(80),Y(80),XN(99),YN(99),X2(80),Y2(80),IC(80,3),N COMMON/A7/W(80),RU(80),C(80),F(80)/A8/MYK,KXSX,MTE,KL COMMON/A15/UWL1,NCOUN,MLA(80),PF1(20),PC1(20),MID(20),PNOR(20) # ,NHT,MRD INTEGER*4 OPTION(6),OP1(6) COMMON/OPP/OPTION,OP1 OPEN(5,FILE=' ',STATUS='UNKNOWN') OPEN(6,FILE=' ',STATUS='UNKNOWN') C IWR5=0,1 分别相应顶部有 无拉力缝 YTENSION=拉力缝底 Y 坐标 C DS,CX,CY=滑弧深度 圆心坐标