CB-Z-241-1987可调螺距螺旋浆桨叶图谱设计计算方法

中国船舶工业总公司指导性技术文件中国船舶工业总公司指导性技术文件bBp-8或Bp-8.图谱。航行工况下螺旋桨的儿何要素、散水效率、航速(规定拖力)或拖力(2.4根据2.1、2.2、2.3项计算，可决定自由航行和拖曳航行工况下可调螺距螺旋桨的参c螺距比d敞水效率中国船舶工业总公司1987年批准发布34图2高铝高强高铝锰青铜一般铸钢Y——功率系数，按下式计算：(4)、(5)式中：E——桨叶后倾角，(0);K1、K₂、K₃、K4、K₅、K₆、K₇、Kg—系数，见下表：r附录A主机：主机类型桨叶材料最大限制直径(Dmax)船舶吃水(T)桨轴距基线高度(H)系数：伴流分数(w)23锰铜实船航速及有效功率(如图3所示):0(1)满足Dmax<3。55m的螺旋桨几何参数；(2)最大自由航速；(4)给定拖速Vs=11.5Kn时，最大拖力；(8)要求采用JDC3叶系列图谱设计.表1、2或3进行，若直径不受限制，且给定拖力可按表1计算。若直径受到限制，利用表2计算给123456Tt978P/D(查图谱)9n。(查图谱)6(查图谱)mP/D(查图谱)n。(查图谱)δ(查图谱)mP/D(查图谱)%(查图谱)δ(查图谱)计算结果(根据图4得)Dm.0名P%表2拖曳航作工况设计计算(给定拖力)123456D(给定)m78T(给定)t9P/D(查图谱)no(查图谱)··序号P/D(查图谱)n。(查图谱)P/D(查图谱)n。(查图谱)计算结果(根据图5得)DmTt表3拖曳航行工况计算(给定拖速)序号1Ae/Ao(给定)2Vs(给定)34567D(给定)m89n。(查图谱)P/D(查图谱)Pg(查曲线)NTtp=104.5kg序号项目12Dm345项目单位Ae7890.7R=(P。一Py)/(8)T。(查曲线图)p=104.5mN=2.00拖力t单位Ae0123Dm456789Tc(查曲线图) 表6拖曳航行工况空泡校核计算(给定拖速)水的密度水压头m海水压力序号项目单位123Dm45678序号9T。(查图)Pg(查曲线)T(拖力)tIⅡⅢ0Ne=5632.5KWZ=3N=200r/min123bm4567序号8K9实际最大厚度值r=0.35Rr=0.35Rr=0.60Rr=0.60R根据图7,当Vs=11.5(Kn)N·mN·mN·mJDC3系列三种工况下的特性：Np=2IⅡⅢ9Tt桨轴数目19052Kr(查敞水曲线)3J(查敞水曲线)456N789Ksh(查图)Kgo(查图)计算结果(根据图7读出)9拖力序号19052KT(查图谱)3J(查图谱)456N789计算结果(根据图7读出)9KEY45判别信息KEY45≠0拖曳航行工况及性能估算中，给定拖航KEY46判别信息KEY46=0按拖曳航行工况计算得到的直径计算IAIA=0强度计算中，系数A₁不增加30%;RPM主机转速，转/分；II齿轮箱减速比ETC传送效率(包括齿轮箱效率);ETR相对旋转效率；OMIGA材料密度，按规范取，克/厘米3:RHO水的密度1、子程序JDC的功能是输入JDC3系列调距桨的水动力性能多项式的系数以及几何尺度：2、计算最佳直径及对应螺距比的子程序HDT及DLT系JDC3系列的资料；3、计算叶力矩子程序的有关资料系JDC3系列的试验结果；4、计算叶轴位置的子程序FRO中的资料系JDC3系列规定的数据计算。****THEDESIGNOFC.P.P.WITHTHEAREALI,KCL,JP,KT,KQ,Kao,HP6:INTEGER9:COMMON/M2710:COMMON/M3/M:*COMMON/M4/IFTc(3,5,25):IFQC(3,5:25):BOC(3,5:25),BTC(3:5:25)13:COMMON/M5/XR(9),CBR15:cOMMON16:COMMON/M7/vi(10),v2(10),v(10),EHP1(1COMMON/MB/AEC(10),AEK(10),DA(i0),HDA(10),VsA(10),DAE(10)19:cOMMON/M9!EPA20:CONMON/MO/AE1(2),Vsi(2),D1(2),HD1(2COMMON/CA/T,H,Qa,TW,RHO23:COMMON/CP/JP,Ka0,QP,Ka,MV,JS,RPS,To,VT,WJ,24:cOMMON/ST/zY,APCL,DHP,OHIGA,30:READ(5,1)MV1,MV2,ZY,js,aa,TW,KEY45,KEY46,IA,31:READ(5,3)BH*READ(5,2)iI,ETC,ETR,DMAX,APCL,DN,OMIGA,KCL,GAHA,RHO,T,H,35:READ(5,3)(vi36:READ(5,3)(EHP37:READ(5,340:WRITE(6,5001)(V1(1),41:WRITE(6,5002)(EHP1(1),42:RITE(6,5003)(V2(WRITE(b,5002)(EHP2(1),I=1,WRITE(6,5004)zy,js,aa,BHP,HPI,HP2,RPM,11,ETC,ETR,DMAXWRITE(6,5005)TW,W1,W2,T1,T2:5001FORMAT(777//1ex,'THECALCUL*A'/24X,'(JDC-3SERIES)'15002FORMAT(8943:5003FORMAT(90x,'vs:,10F8.2)44:5004FORMAT(//102X,'ZYm′,110/102X,'Js=′,110/45:*,F15.4/101X,'HP1=′,F15.4/101X,'HP2=′,F15.4/101x,'RPH=′,F15.4/1048:*F15:4/100x,'APCL=,F15.4/102X:'DN=′,F1CAMA=',F15.4/101X,'RHO52:5005FORMAT(102X,'TW=′,110/102x,'w!53:*'W2=′,Fi5.4/102X,'T1=′,F15.4/102x,'T2=′,F15.4/102X,54:*102x,'VT=′,F15.4/1111/25X,'SHANCHAI62:IF(RHO.GT.104.)RW=1RPS=RPM/60.70:T0=0.71:100QP=4500./6.283184*DHP/86!BP=SQR90:IF(BP.GE92:CALL96:IF(D0.LT.DMAX)100:HD=FNDH(IFQ105:CALL106:125CALL107:EPA(K)=JP/6.28112TJZ=THPO-EHPO-T0*113IF(ABS(TJZ).LE.THPO*1.E-4)k19;31V0=(V01+V02)*.5120:130124:CALLFKTa(IFT,BT,MT,A,HD,JP,KT)IF(KEY45,EQ.0)GOTOT2(K)=(TL*(1.-TJ)*JS-EHPO*75./FORMAT(20X,'TZ=,F15.3,′TJZ=THPO-EHPO-T0*VS/75IF(ABS(TJZ).LE.THPO*1.E-4)Goro34AEC(K)=CAV(D,A,HDA(K),VP,RPSIF(MA.E0.1)GOTOCALLLAG(MK,DAE,AEK,.0,ACALLLAG(MK,DAE,HDA,.0,HD1(KO)IF(KEY45,EQ.0)GOTO42WRITE(6,5007)KO,AE1(KO),vs1(KO),D1《KO),HD1(KO),EPWRITE(6,5101)JS,Js,zY,2Y,DFORMAT(/717//24X,'RESURTSOFTHEDESIGNCALCULAT1ONS'/1/27*'FORFREERUNNINGCONDIT10N′,34X,'FO*5X,'NUMBEROFPROPELLER′,16X,'Js=,110,10X*5X,NUMBEROFBLADE',20x,z=1*2(5X,'DESIGNPITCH*2(5X,'DESIGNPITCHWRITE(6,5102)AE1,ETC,ETC,ETR,ETR,A1,A2,EP15102FORMAT(2(5X,'BLADEAREARATI0',18X,'AE/AD5102FORMAT(2(5X,'BLADEAREARATI0',18X,'AE/AD*2(5X,'HULLEFFIcIENCY',20X,'ETH=′,F10.5,10X)/*2(5X,'PROPELLEREFFICIENCY′,15X,'ETP*2(5X,'PROPULsIVEEFFICIENCY',14X,'ETSa′,F10.5,1WRITE(6,5103)Vs1,RPM,RP5103FORMAT(5X,'RUNNINGSERVICE*9X,'TRAWL.INGSERVICESPEED′,13x,′Vs=′,F10.5,′IF(AE1(2).GT.AE)AE=DHD=(HD1(1)-HD1(2))/4.WRITE(6,5010)IN,D,AE,HFORMAT(111/80X,'NO.',14/166X,'SCREWDIAM****CALLGDI(GAMA,ATO=0.CALLCPER(D,AE,HD,CT,VS,EP)WRITE(6,5012)DCT,Vs,EP,KT,K5012FORMAT(75X,'ANGLEDCT=′,F8.4,′DEG'/75X,'SPEED米‘/63X,'SCREWEFFICIENCYEP=′,FB.4762X,'THRUSTCOEFF1CIENTKT=*′,FB.4/62X,'TORQUECOEFFICIENTKQ=′,FB.4/82X,'PU=′,F8.4,′TON′)5013FORMAT(/1160X,‘***TRAWLINGCONDIT1ONSUBROUTINEFKTQ(ICF,BTQ=0./KK/KKKIF(KKK.NE.0)WRITE(6,50)ASUBROUTINEDIMENSIONX(N),Y(N)IF((U-X(I))*(U-X(1+1)))11,11,IF(ABS(U-X(1)).LT.ABS(U-X(NIF(ABS(U-X(K))-ABS(U-X(K+1)))21,1V=0.IF(J.NE.I)H=H*(U-X(J))/《X(I/KK/KKK/KK/KKKRW=1.CEK=(10336.+(T-H)*10TC=EXP(-.0266*(ALOG(CEK))**2+.755*ALOC(CEKTC=EXP(-.0453*(ALOG(CEK)》**2+.531*ALOG(CEK)-TC=EXP(.561*ALOG(CEK)-TC=EXP(-.0615*(ALOG(CEK))**2+.475*ALOG(CEK)-TC=EXP(.58*ALOG(CEKCAV=FP/(1.067-.229*IF(KKK.NE.0)WRITE(6,5FORMAT(20X,'AEO=′,FFUNCTIONFNDH(ICF,B,N,A,HO,JP,Q0)DIMENSIONICF(N),B(N)COMMON/AHJ/NAIF(ABS(X0).LE.1.E-30)X0=.KQP=KQP+NH*S*X0**(NIF(KK.GE.30)GOTOSUBROUTINECPER(D,AE,HD,CT,VS,EP)REALJP,K00,KTCOMMON/M1/MT,MG,MKT,MCOMMON/M3/MTC(3,5),MQC(3,5),HDO(3,5),AEO(3)COMMON/M4/IFTC(3,5,25),IFQC(3,5,25),BQC(3,5,25),BTC(3,5,25)COMMON/M7/V1(10),V2(10),V(10),EHP1(10),EHP2(10),EHP(10)COMMON/CA/T,H,a0,TW,RHOCOMMON/CP/JP,KQ0,QP,KQ,MV,JS,RPS,TO,VDIMENSIONIFTO(25),BTO(25),IFQ0(25),BQ0(25),EP米C1(5),EP1(5KG0=QP/(RHO*RPS*RPS*IF(K0.EQ.1)421:HO=ATAN(HD/2.199)-ATAN(H423:1F(KKK.NE.0)WRITE(6,6000)JP,HO,HD,HH(J)co(J)=FNDH(IFao,BaO,MKQ,HH(J426:CALLFKTa(IFTO,BTO,MKT,HH(J),co(J),jP,KT)431:TJZ=THPO-EHPO-TO*432:IF(KRK.NE.0)WRITE(6,6000)AE1(1),VsA(J),HHCJ),TL,THPO,TJz,co(J):6000FORMAT("435:IF(ABS(TJ2).LE.THPO*1.E-4)CoTo446:co(J)=FNDH(IFQ0,BaO,MKQ,HH(J),CO(J),JP,K00)447:CALLFKTa(IFTO,BTO,MKT,HH(J),co(J),452:1251VSA(J)=(TL:TJZ=THPO-EHPO-TO*VS/75.*1000.457:1F(ABS(TJ2).LE.THPO*1.E-4)GOTOIF(KKK.NE.0)WRITE(6,6001)HH,CO,EPA,CALLLAG(MH,HH,EPA,HD,EP1(1))CALLLAG(MH,HH,VSA,HD,vsi(I))IF(MA.NE.1)CoToCALLLAG(MA,CALLLAG(MA,AE1,vsi,AE,IF(KEY45.EQ.0)GOTOvs=vī****/M5/XR(9),CBR(9),CBL(9),CBE(9),CTR(9),CDL(9),CDT/M5/XR(9),CBR(9),CBL(9),CBE(9),CTR(9),CDL(9),CDTCOMMON/GE/B(9),BL(9),BT(9),BE(9),DL(9),DTXLJ(17),YBJ(17),YFJcOMMON/Mb/XL(9,17),YB(9,17),YF(9,17)FORMAT(/!//68x,'GEOMETRICDATAOF9X,'BL',8x,'BT',8X,'BE′,ex,'TX',7X,P/Di,8x,'R=XR(I)*D/2.*1000.WRITE(6,5002)XR(I),R,B(I),BL(1),BT(1),BE(1),TX(1),HDX(1),FORMAT(30X,F6.2,F12.2,SF10.2,F9.3,F11.3,F1c=1.WRITE(6,5003)C,E,A,TXFORMAT(30X,F6.2,Fi2.2,10X,2(10X,F10WRITE(6,5004)XR(I),XLJ,YBFORMAT(F6.2,'RXL,17F7.17Bx,'YB,17F7.1/8X,'YFCOMMON/Ms/XR(9),CBR(9),CBL(9),CBE(9),CTR(9),CDL(9),CDT(9),COMMON/ST/2Y,APCL,DHP,OMIGA,RPH,KCL)+1320./HD-16.B=(1.45542+2.01377)/2.*DA2=(64.+28.*APCL)/(.925*HD)+57.*APCL+420.A2=(23.+12.*APCL)/HD+65.*APCL+330.T10=CC*D*1000.556:IF(T06.LT.T60)Coro566:SUBROUTINE570:COMMHON/M3/MTC(3,5),MQC(3,5),HDO(3571:cOMHON/CA/T,H,QCoMMON/CP/JP,Kao,aP,KO,MV,JS,RPS,To,VT,WJ,TJ583:F(1)=-.87765+.021901*C-.0085607*JP+.0022754*C*C-.024417*JP*JP590:*F(3)=-.012731+.032577*C-.0584304*JP*JP+.0031648*C*JP*JP+.038004*591:米*JP**3-.0189522593:F(4)=-.018519+.020274*C-.0094818*JP+.045774*C**2-.11499*C*JP*JP*-.028503*C**4+.070395*C*C*JP*JP+.016162*C*J598:F(5)=-.022813+.039703*C-.052271*JP*JP+.0300797*C*JP*JP-.004987*C609:CALLLAG(5,HPD,F,HD12001CALLLAG(3,AEO,AC,A620:WRITE(6,2001)AHH,A621:cFORMAT(82X,'KH=′,F10.6/60x,'HYDRO.S(KG-M)'/82X,'KC=',F10.6/60x,'CENTR.SPINDLETORQUEMC=624:F10.2,′(KG-M)'162SUBROUTINEGDI(GB=3.85*1.*1.02*.248*GAMA*AE*.05*D*D*D*1000.GN=.59*DN*DN*L*GAMA*1000.IMP=2.548*1.06*GB*DWRITE(6,5001)GB,GN,G0FORMAT(165X,'WEIGHTOFBLADESGH=′,F10.2,′(KGGH=′,F10.2,′(KG)'165X, RO=.0199434632-.0068650793*HD+.0204415584*HD*HD-.007323232FORMAT(82X,RO=′,FB.COMMON/DB/DT1(12),DT2(21),DT3(19),BP1(12),BP2(21),BP3(19),*PD1(12),PD2(21),CALLLAG(12,BP1,PD1,CALLLAG(21,BP2,PD2,CALLLAG(19,BP3,PD3,CALLLAG(3,AD,PBD,ACOHMON/DB/DT1(12),DT2(21),DT3(19),BP1(12),B米PD1(12),PDCALLLAG(12,BP1,DT1,BP,DTT(1))CALLLAG(21,BP2,DT2,BP,DTT(2))CALLLAG(19,BP3,DT3,BP,DTT(3))CALLLAG(3,AD,DTT,ACOMMON/M1/MT,MQ,MKT,MKQ,MH,MA,KOCOMMON/M2/IFT(14),IFQ(14),BT(14),COMMON/M3/MTO(3,5),MaC(3,5),HDO(3,5),AEO(3)COMMON/M4/IFTC(3,5,25),IFaC(3,5,25),BQC(3,5,25),BTC(3,5,25)COMMON/M5/XR(9),CBR(9),CBL(9),CBE(9),CTR(9),CDL(9),CDT(9),COMMON/M6/XL(9,17),YB(9,COMMON/DB/DT1(12),DT2(21),DT2(19),BP1(12),BP2(21),BP3(19),米PD1(12),PD2(21),PD3(NR=9NX=17READ(5,10)(IFT(1),BT(I),IFQ(I),BQ(I),I=READ(5,10)IFTC(K,L,1),BTC(K,L,I),IFQC(K,L,1),BQC(232READ(5,12)BP1(1),DT1(I),READ(5,12)BP2(I),DT2(1),PREAD(5,12)BP3(1),DT3(I),PREAD(5,13)(XL(I,J)I=READ(5,13)(YB(I,J)I=READ(5,13)(YF(1,J)I=:30RESULTsOFTHEDESIGMCALNUMBEROFFROPELLERNUMBEROFBLADEHULLEFFICIENCYPROPELLEREFFICIENCYPROPULSIVEEFFICIww23ZDZDRELATIVEROTATIVEEFFIC223NO.1BLADEAREARAT10AE/A0=.4457TORQUECOEFFICIENTKG=XRB.50887.5012.601065.001381.67713.1666.701242.501395.63676.607142.29352.40303.80531.04652.36720422.88460.56637.25780.84852.49493.36537.32743.45909.45984.861027.461003.e9563.84614.0B849.661038.061106.031150.141110.08634.32690.