Kent Park M-k
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Kent Park M-k as PDF for free.
More details
- Words: 830
- Pages: 12
Mehmet Akif BENZER 28080191
IM566 LİMİT ANALİZ ÖDEV 4 Geliştirilmiş Kent-Park beton modeliyle moment-eğrilik ilişkisini veren program Betonarme Kesit
Donatı: St1 Geliştirilmiş Kent-Park beton modeli
1
Mehmet Akif BENZER 28080191
Kesit İçin Moment-Eğrilik İlişkisi Sargısız Beton Modeli C C C C C C
C
C
C
C
DİKDÖRTGEN KESİTLİ BETONARME KESİTİN KENT-PARK BETON MODELİYLE VE SINIRLANDIRILMIŞ StI DONATI ÇELİĞİYLE MOMENT EĞRİLİK İLİŞKİSİNİN BULUNMASI İÇİN BİR PROGRAM SARGISIZ BETON MODELİ MEHMET AKİF BENZER 28080191 WRITE(*,*)'BETON MALZEME ZELLİKLERİNİ GİRİNİZ' WRITE(*,*)'FCK(MPA) GİRİNİZ' READ(*,*) FCK E= 3250*FCK**0.5+4000 ECO=0.002 E50U=(3+0.285*FCK)/(142*FCK-1000) ZU=0.5/(E50U-ECO) ______________________________________________ WRITE(*,*) '_________________________________' WRITE(*,*) 'BETON KESİT ÖZELLİKLERİNİ GİRİNİZ' WRITE(*,*) 'H (mm) GİRİNİZ' READ(*,*) H WRITE(*,*) 'B (mm) GİRİNİZ' READ(*,*) B WRITE(*,*) 'Cc (mm) GİRİNİZ' READ(*,*) CC _________________________________________ WRITE(*,*) '____________________________' WRITE(*,*) 'DONATI ÖZELLİKLERİNİ GİRİNİZ' WRITE(*,*) 'DONATI ÇAPI (Fİ)=?' READ(*,*) FI D=H-CC-FI/2 WRITE(*,*) 'D=',D WRITE(*,*) 'BOYUNA DONATI ADEDİ' READ(*,*) AD AS=3.14*(FI**2)/4*AD WRITE(*,*) 'As=',AS WRITE(*,*) '____________________________' StI MALZEME ÖZELLİKLERİ ES=200000 FY=220 EY=FY/ES EU=10*EY XS=D-H/2 ______________________________________________________________ EPC=0 C=H/2 DO 10 I=1,200 DO 20 J=1,1000 C=C-H/2000 EPS=(D-C)*EPC/C IF (EPS.LE.EY) THEN FS= AS*EPS*ES ELSEIF (EPS.LT.EU.AND.EPS.GT.EY) THEN 2
Mehmet Akif BENZER 28080191
C
C
C
30 20 50 10
FS=AS*FY ENDIF ____________________________________________ ACC=B*C IF(EPC.LE.ECO) THEN FC=ACC*(FCK*(2*EPC/ECO)-(EPC/ECO)**2) ELSEIF (EPC.LT.E50U.AND.EPC.GT.ECO) THEN FC=ACC*(FCK*(1-ZU*(EPC-ECO))) ENDIF _________________________________________________ YC=(H-0.85*C)/2 TN=ABS(FC)-ABS(FS) YSNFC=ABS(FC)*0.02 _________________________________________________ OPEN (1, File='KSONUC') OPEN (2, File='MSONUC') IF(TN.LE.YSNFC) THEN EKK=(ABS(EPC)/ABS(C))*1E3 EMM=(ABS(FC)*ABS(YC)+ABS(FS)*ABS(XS))/1E6 WRITE (1,30) EKK WRITE (2,30) EMM FORMAT (9X,2F50.6) GO TO 50 ENDIF CONTINUE EPC=EPC+E50U/200 CONTINUE STOP END
Program M ve K sonuçlarını dosyaya kaydetmektedir.
3
Mehmet Akif BENZER 28080191
K ve M değerlerinin bazıları aşağıda verilmiştir.
4
Mehmet Akif BENZER 28080191
Κ
M
0 0.00021 0.000421 0.000634 0.000847 0.001062 0.001278 0.001495 0.001713 0.001933 0.002153 0.002375 0.002671 0.003133 0.003629 0.004177 0.00474 0.005359 0.006011 0.006684 0.007399 0.008152 0.008937 0.009797 0.010685 0.011589 0.012493 0.013467 0.014517 0.015546 0.016649 0.017702 0.018961 0.020159 0.021435
0.000000 8.370127 16.749355 25.137903 33.535984 41.943821 50.361641 58.789658 67.228104 75.677223 84.137230 92.150848 94.894890 95.534019 96.103828 96.449608 96.949150 97.234375 97.518272 97.870743 98.154861 98.404724 98.655029 98.695381 98.781914 98.950752 99.238159 99.384529 99.388817 99.571327 99.635208 99.926048 99.763329 99.851601 99.844109 100.13697 8 100.35835 3 100.08669 3 100.15192 4 100.59127 8 100.52443
0.022608 0.02384 0.025355 0.026737 0.02794 0.02946
0.031067 0.032449 0.034228 0.035746 0.037328 0.038979 0.040701 0.042501 0.044384 0.045817 0.047846 0.049974 0.051563 0.053866 0.055567 0.058067 0.059891 0.061766 0.063691 0.066595 0.068673 0.07081 0.07301 0.075276 0.077611 0.080017 5
7 100.38497 9 100.65652 5 100.38391 1 100.54700 5 100.66188 0 100.72844 7 100.74662 0 100.71630 9 100.63744 4 101.09310 2 100.92942 8 100.71698 0 101.07609 6 100.77849 6 101.07713 3 100.69418 3 100.93222 0 101.14600 4 101.33551 0 100.79408 3 100.92282 1 101.02725 2 101.10736 1 101.16314 7 101.19458 0 101.20167 5
Mehmet Akif BENZER 28080191
0.082499 0.085059 0.087702 0.090431 0.093252 0.096168 0.099185
101.18440 2 101.14276 1 101.07674 4 100.98633 6 100.87152 9 100.73230 7 100.56867 2
6
Mehmet Akif BENZER 28080191
Sargılı Beton Modeli C C C C C C
C
C
DİKDÖRTGEN KESİTLİ BETONARME KESİTİN KENT-PARK BETON MODELİYLE VE SINIRLANDIRILMIŞ StI DONATI ÇELİĞİYLE MOMENT EĞRİLİK İLİŞKİSİNİN BULUNMASI İÇİN BİR PROGRAM SARGILI BETON MODELİ MEHMET AKİF BENZER 28080191 WRITE(*,*)'BETON MALZEME ÖZELLİKLERİNİ GİRİNİZ' WRITE(*,*)'FCK(MPA) GİRİNİZ' READ(*,*) FCK E= 3250*FCK**0.5+4000 ECO=0.002 E50U=(3+0.285*FCK)/(142*FCK-1000) ______________________________________________ WRITE(*,*) '_________________________________' WRITE(*,*) 'BETON KESİT ÖZELLİKLERİNİ GİRİNİZ' WRITE(*,*) 'H (mm) GİRİNİZ' READ(*,*) H WRITE(*,*) 'B (mm) GİRİNİZ' READ(*,*) B WRITE(*,*) 'Cc (mm) GİRİNİZ' READ(*,*) CC _________________________________________ WRITE(*,*) '_____________________________________________________' WRITE(*,*) 'DONATI ÖZELLİKLERİNİ GİRİNİZ' WRITE(*,*) 'DONATI ÇAPI (Fİ)=?' READ(*,*) FI D=H-CC-FI/2 WRITE(*,*) 'D=',D WRITE(*,*) 'BOYUNA DONATI ADEDİ' READ(*,*) AD AS=3.14*(FI**2)/4*AD WRITE(*,*) 'As=',AS WRITE(*,*) '_____________________________________________________' WRITE(*,*) 'ETRİYE ÖZELLİKLERİNİ GİRİNİZ' WRITE(*,*) 'Fİ ETRİYE' READ(*,*) FIT WRITE(*,*) 'S,HK,BK' READ(*,*) S,HK,BK LS=2*(HK+BK) AO=3.14*(FIT**2)/4 GS=(AO*LS)/(S*BK*HK) E50H=0.75*GS*(BK/S)**0.5 K=1+(GS*FY)/FCK ECOC=K*ECO FCC=K*FCK ZC=0.5/(E50U+E50H-ECOC) E20=ECOC+0.8/ZC WRITE(*,*) '_____________________________________________________' 7
Mehmet Akif BENZER 28080191 C
C
C
C
C
30 20 50 10
StI MALZEME ÖZELLİKLİRİ ES=200000 FY=220 EY=FY/ES EU=10*EY XS=D-H/2 ______________________________________________________________ EPC=0 C=H/2 DO 10 I=1,200 DO 20 J=1,1000 C=C-H/2000 EPS=(D-C)*EPC/C IF (EPS.LE.EY) THEN FS= AS*EPS*ES ELSEIF (EPS.LT.EU.AND.EPS.GT.EY) THEN FS=AS*FY ENDIF ____________________________________________ ACC=B*C IF(EPC.LE.ECOC) THEN FC=ACC*(FCC*(2*EPC/ECOC)-(EPC/ECOC)**2) ELSEIF (EPC.LT.E20.AND.EPC.GT.ECOC) THEN FC=ACC*(FCC*(1-ZC*(EPC-ECOC))) ENDIF _________________________________________________ YC=(H-0.85*C)/2 TN=ABS(FC)-ABS(FS) YSNFC=ABS(FC)*0.02 _________________________________________________ OPEN (1, File='KSSONUC') OPEN (2, File='MSSONUC') IF(TN.LE.YSNFC) THEN EKK=(ABS(EPC)/ABS(C))*1E3 EMM=(ABS(FC)*ABS(YC)+ABS(FS)*ABS(XS))/1E6 WRITE(*,*) 'FC=',FC,'FS=',FS,'K=',EKK,'M=',EMM WRITE (1,30) EKK WRITE (2,30) EMM FORMAT (9X,2F50.6) GO TO 50 ENDIF CONTINUE EPC=EPC+E20/200 CONTINUE STOP END
8
Mehmet Akif BENZER 28080191
Program bu aşamadan sonra K değerlerini KSSONUC dosyasına, M değerlerini ise MSSONUC dosyasına kaydetmektedir.
9
Mehmet Akif BENZER 28080191
K ve M değerlerinin bazıları aşağıda verilmiştir.
10
Mehmet Akif BENZER 28080191
K 0 0.00106 0.002126 0.004245 0.007537 0.011763 0.016919 0.023001 0.030006 0.038067 0.046775 0.056798 0.067197 0.079517 0.091249 0.104628 0.120026 0.12998 0.140324 0.151082 0.16228 0.173944 0.186104 0.198793 0.212046 0.225901 0.240401 0.255591 0.271522 0.28825 0.305835 0.324346 0.343858 0.364454 0.386226 0.40928 0.43373 0.459709 0.487364 0.516862 0.548395 0.58218 0.618468 0.657547
M 0 42.204693 84.406975 96.584244 98.176788 99.12545 99.751999 100.194412 100.521667 100.59671 100.968643 100.889221 101.253914 100.881874 101.446426 101.519402 101.100471 76.417542 75.784065 75.154648 74.529289 73.907997 73.290779 72.677635 72.068581 71.463615 70.862747 70.265976 69.673317 69.084778 68.500351 67.920052 67.343887 66.771866 66.203987 65.640251 65.080681 64.525269 63.974022 63.426956 62.884068 62.345367 61.81086 61.280548
0.699752 0.745475 0.795174 0.84939 0.908771 0.974089 1.046283 1.126499 1.216151 1.317011 1.431319 1.561957 1.712692 1.888551 2.096385 2.345787 2.650612 3.031646 3.521548 4.174757
11
60.754444 60.232552 59.714874 59.20142 58.692192 58.187199 57.686451 57.189945 56.697697 56.209702 55.725975 55.246521 54.771339 54.300442 53.833836 53.371525 52.913509 52.459805 52.010414 51.565342
Mehmet Akif BENZER 28080191
12
IM566 LİMİT ANALİZ ÖDEV 4 Geliştirilmiş Kent-Park beton modeliyle moment-eğrilik ilişkisini veren program Betonarme Kesit
Donatı: St1 Geliştirilmiş Kent-Park beton modeli
1
Mehmet Akif BENZER 28080191
Kesit İçin Moment-Eğrilik İlişkisi Sargısız Beton Modeli C C C C C C
C
C
C
C
DİKDÖRTGEN KESİTLİ BETONARME KESİTİN KENT-PARK BETON MODELİYLE VE SINIRLANDIRILMIŞ StI DONATI ÇELİĞİYLE MOMENT EĞRİLİK İLİŞKİSİNİN BULUNMASI İÇİN BİR PROGRAM SARGISIZ BETON MODELİ MEHMET AKİF BENZER 28080191 WRITE(*,*)'BETON MALZEME ZELLİKLERİNİ GİRİNİZ' WRITE(*,*)'FCK(MPA) GİRİNİZ' READ(*,*) FCK E= 3250*FCK**0.5+4000 ECO=0.002 E50U=(3+0.285*FCK)/(142*FCK-1000) ZU=0.5/(E50U-ECO) ______________________________________________ WRITE(*,*) '_________________________________' WRITE(*,*) 'BETON KESİT ÖZELLİKLERİNİ GİRİNİZ' WRITE(*,*) 'H (mm) GİRİNİZ' READ(*,*) H WRITE(*,*) 'B (mm) GİRİNİZ' READ(*,*) B WRITE(*,*) 'Cc (mm) GİRİNİZ' READ(*,*) CC _________________________________________ WRITE(*,*) '____________________________' WRITE(*,*) 'DONATI ÖZELLİKLERİNİ GİRİNİZ' WRITE(*,*) 'DONATI ÇAPI (Fİ)=?' READ(*,*) FI D=H-CC-FI/2 WRITE(*,*) 'D=',D WRITE(*,*) 'BOYUNA DONATI ADEDİ' READ(*,*) AD AS=3.14*(FI**2)/4*AD WRITE(*,*) 'As=',AS WRITE(*,*) '____________________________' StI MALZEME ÖZELLİKLERİ ES=200000 FY=220 EY=FY/ES EU=10*EY XS=D-H/2 ______________________________________________________________ EPC=0 C=H/2 DO 10 I=1,200 DO 20 J=1,1000 C=C-H/2000 EPS=(D-C)*EPC/C IF (EPS.LE.EY) THEN FS= AS*EPS*ES ELSEIF (EPS.LT.EU.AND.EPS.GT.EY) THEN 2
Mehmet Akif BENZER 28080191
C
C
C
30 20 50 10
FS=AS*FY ENDIF ____________________________________________ ACC=B*C IF(EPC.LE.ECO) THEN FC=ACC*(FCK*(2*EPC/ECO)-(EPC/ECO)**2) ELSEIF (EPC.LT.E50U.AND.EPC.GT.ECO) THEN FC=ACC*(FCK*(1-ZU*(EPC-ECO))) ENDIF _________________________________________________ YC=(H-0.85*C)/2 TN=ABS(FC)-ABS(FS) YSNFC=ABS(FC)*0.02 _________________________________________________ OPEN (1, File='KSONUC') OPEN (2, File='MSONUC') IF(TN.LE.YSNFC) THEN EKK=(ABS(EPC)/ABS(C))*1E3 EMM=(ABS(FC)*ABS(YC)+ABS(FS)*ABS(XS))/1E6 WRITE (1,30) EKK WRITE (2,30) EMM FORMAT (9X,2F50.6) GO TO 50 ENDIF CONTINUE EPC=EPC+E50U/200 CONTINUE STOP END
Program M ve K sonuçlarını dosyaya kaydetmektedir.
3
Mehmet Akif BENZER 28080191
K ve M değerlerinin bazıları aşağıda verilmiştir.
4
Mehmet Akif BENZER 28080191
Κ
M
0 0.00021 0.000421 0.000634 0.000847 0.001062 0.001278 0.001495 0.001713 0.001933 0.002153 0.002375 0.002671 0.003133 0.003629 0.004177 0.00474 0.005359 0.006011 0.006684 0.007399 0.008152 0.008937 0.009797 0.010685 0.011589 0.012493 0.013467 0.014517 0.015546 0.016649 0.017702 0.018961 0.020159 0.021435
0.000000 8.370127 16.749355 25.137903 33.535984 41.943821 50.361641 58.789658 67.228104 75.677223 84.137230 92.150848 94.894890 95.534019 96.103828 96.449608 96.949150 97.234375 97.518272 97.870743 98.154861 98.404724 98.655029 98.695381 98.781914 98.950752 99.238159 99.384529 99.388817 99.571327 99.635208 99.926048 99.763329 99.851601 99.844109 100.13697 8 100.35835 3 100.08669 3 100.15192 4 100.59127 8 100.52443
0.022608 0.02384 0.025355 0.026737 0.02794 0.02946
0.031067 0.032449 0.034228 0.035746 0.037328 0.038979 0.040701 0.042501 0.044384 0.045817 0.047846 0.049974 0.051563 0.053866 0.055567 0.058067 0.059891 0.061766 0.063691 0.066595 0.068673 0.07081 0.07301 0.075276 0.077611 0.080017 5
7 100.38497 9 100.65652 5 100.38391 1 100.54700 5 100.66188 0 100.72844 7 100.74662 0 100.71630 9 100.63744 4 101.09310 2 100.92942 8 100.71698 0 101.07609 6 100.77849 6 101.07713 3 100.69418 3 100.93222 0 101.14600 4 101.33551 0 100.79408 3 100.92282 1 101.02725 2 101.10736 1 101.16314 7 101.19458 0 101.20167 5
Mehmet Akif BENZER 28080191
0.082499 0.085059 0.087702 0.090431 0.093252 0.096168 0.099185
101.18440 2 101.14276 1 101.07674 4 100.98633 6 100.87152 9 100.73230 7 100.56867 2
6
Mehmet Akif BENZER 28080191
Sargılı Beton Modeli C C C C C C
C
C
DİKDÖRTGEN KESİTLİ BETONARME KESİTİN KENT-PARK BETON MODELİYLE VE SINIRLANDIRILMIŞ StI DONATI ÇELİĞİYLE MOMENT EĞRİLİK İLİŞKİSİNİN BULUNMASI İÇİN BİR PROGRAM SARGILI BETON MODELİ MEHMET AKİF BENZER 28080191 WRITE(*,*)'BETON MALZEME ÖZELLİKLERİNİ GİRİNİZ' WRITE(*,*)'FCK(MPA) GİRİNİZ' READ(*,*) FCK E= 3250*FCK**0.5+4000 ECO=0.002 E50U=(3+0.285*FCK)/(142*FCK-1000) ______________________________________________ WRITE(*,*) '_________________________________' WRITE(*,*) 'BETON KESİT ÖZELLİKLERİNİ GİRİNİZ' WRITE(*,*) 'H (mm) GİRİNİZ' READ(*,*) H WRITE(*,*) 'B (mm) GİRİNİZ' READ(*,*) B WRITE(*,*) 'Cc (mm) GİRİNİZ' READ(*,*) CC _________________________________________ WRITE(*,*) '_____________________________________________________' WRITE(*,*) 'DONATI ÖZELLİKLERİNİ GİRİNİZ' WRITE(*,*) 'DONATI ÇAPI (Fİ)=?' READ(*,*) FI D=H-CC-FI/2 WRITE(*,*) 'D=',D WRITE(*,*) 'BOYUNA DONATI ADEDİ' READ(*,*) AD AS=3.14*(FI**2)/4*AD WRITE(*,*) 'As=',AS WRITE(*,*) '_____________________________________________________' WRITE(*,*) 'ETRİYE ÖZELLİKLERİNİ GİRİNİZ' WRITE(*,*) 'Fİ ETRİYE' READ(*,*) FIT WRITE(*,*) 'S,HK,BK' READ(*,*) S,HK,BK LS=2*(HK+BK) AO=3.14*(FIT**2)/4 GS=(AO*LS)/(S*BK*HK) E50H=0.75*GS*(BK/S)**0.5 K=1+(GS*FY)/FCK ECOC=K*ECO FCC=K*FCK ZC=0.5/(E50U+E50H-ECOC) E20=ECOC+0.8/ZC WRITE(*,*) '_____________________________________________________' 7
Mehmet Akif BENZER 28080191 C
C
C
C
C
30 20 50 10
StI MALZEME ÖZELLİKLİRİ ES=200000 FY=220 EY=FY/ES EU=10*EY XS=D-H/2 ______________________________________________________________ EPC=0 C=H/2 DO 10 I=1,200 DO 20 J=1,1000 C=C-H/2000 EPS=(D-C)*EPC/C IF (EPS.LE.EY) THEN FS= AS*EPS*ES ELSEIF (EPS.LT.EU.AND.EPS.GT.EY) THEN FS=AS*FY ENDIF ____________________________________________ ACC=B*C IF(EPC.LE.ECOC) THEN FC=ACC*(FCC*(2*EPC/ECOC)-(EPC/ECOC)**2) ELSEIF (EPC.LT.E20.AND.EPC.GT.ECOC) THEN FC=ACC*(FCC*(1-ZC*(EPC-ECOC))) ENDIF _________________________________________________ YC=(H-0.85*C)/2 TN=ABS(FC)-ABS(FS) YSNFC=ABS(FC)*0.02 _________________________________________________ OPEN (1, File='KSSONUC') OPEN (2, File='MSSONUC') IF(TN.LE.YSNFC) THEN EKK=(ABS(EPC)/ABS(C))*1E3 EMM=(ABS(FC)*ABS(YC)+ABS(FS)*ABS(XS))/1E6 WRITE(*,*) 'FC=',FC,'FS=',FS,'K=',EKK,'M=',EMM WRITE (1,30) EKK WRITE (2,30) EMM FORMAT (9X,2F50.6) GO TO 50 ENDIF CONTINUE EPC=EPC+E20/200 CONTINUE STOP END
8
Mehmet Akif BENZER 28080191
Program bu aşamadan sonra K değerlerini KSSONUC dosyasına, M değerlerini ise MSSONUC dosyasına kaydetmektedir.
9
Mehmet Akif BENZER 28080191
K ve M değerlerinin bazıları aşağıda verilmiştir.
10
Mehmet Akif BENZER 28080191
K 0 0.00106 0.002126 0.004245 0.007537 0.011763 0.016919 0.023001 0.030006 0.038067 0.046775 0.056798 0.067197 0.079517 0.091249 0.104628 0.120026 0.12998 0.140324 0.151082 0.16228 0.173944 0.186104 0.198793 0.212046 0.225901 0.240401 0.255591 0.271522 0.28825 0.305835 0.324346 0.343858 0.364454 0.386226 0.40928 0.43373 0.459709 0.487364 0.516862 0.548395 0.58218 0.618468 0.657547
M 0 42.204693 84.406975 96.584244 98.176788 99.12545 99.751999 100.194412 100.521667 100.59671 100.968643 100.889221 101.253914 100.881874 101.446426 101.519402 101.100471 76.417542 75.784065 75.154648 74.529289 73.907997 73.290779 72.677635 72.068581 71.463615 70.862747 70.265976 69.673317 69.084778 68.500351 67.920052 67.343887 66.771866 66.203987 65.640251 65.080681 64.525269 63.974022 63.426956 62.884068 62.345367 61.81086 61.280548
0.699752 0.745475 0.795174 0.84939 0.908771 0.974089 1.046283 1.126499 1.216151 1.317011 1.431319 1.561957 1.712692 1.888551 2.096385 2.345787 2.650612 3.031646 3.521548 4.174757
11
60.754444 60.232552 59.714874 59.20142 58.692192 58.187199 57.686451 57.189945 56.697697 56.209702 55.725975 55.246521 54.771339 54.300442 53.833836 53.371525 52.913509 52.459805 52.010414 51.565342
Mehmet Akif BENZER 28080191
12
