| تبليغات | X |
! Structures Analyze Program
! Winter 2004
! Ehsan Milani
real mk(100,4,4),mem(100,5),sk(100,100),Ax(100,100), Bx(100, 100, 100), Cx(100, 100), Mx(100),ans(100,4)
real cj,e,r(50),v(100,2,4),zx(100,4)
integer nj,za(100),hh(2,2)
dimension cj(50,7)
hh(1,1)=1
hh(2,2)=1
hh(1,2)=-1
hh(2,1)=-1
print *,"Enter No. of Joints :"
read *,nj
print *," "
print *,"Enter E value :"
read *,e
do 10 i=1,nj
امروزه توليد آلاينده ها به ميزاني افزايش يافته كه همگان را در سرتاسر دنيا با نگراني مواجه ساخته است.آلودگي محيط زيست و به خصوص آلودگي هوا در شهر هاي بزرگي مثل تبريز و تهران و…. مشهودتر مي باشد. آلودگي محيط زيست در مقاطعي عامل صدمات جبران ناپذيري بر زندگي انسانهايي مي شود كه در تحت چنين شرايطي زندگي مي كنند. در اين مقاله آلودگي استان آذربايجان شرقي را كه يكي از استانهاي صنعتي كشور مي باشد بررسي كرده و عوامل به وجود آورنده اين آلودگي ها مورد بحث واقع مي شوند . در انتها راهكارها يي را كه مي توان جهت كنترل و يا حداقل كاهش آلودگي استان انجام داد ارائه مي گردند.
