Bu sayfadaki yazılar
Sayfanın metni
Sayfa 19
İşte COMMODORE 64 sadece bir oyun makinesidir diyenleri utandıracak bir uygulama. Bir Makine Mühendisliği problemini güzel, hızlı ve doğru olarak çözen bir program: Mil Çapı Hesabı.
Program çalıştırıldığında bir giriş ekranı ile sizi selamlıyor. Daha sonra mil malzemesi olarak düşündüğünüz malzeme soruluyor. Bu soruya vereceğiniz cevaptan sonra malzemenin kopma mukavemetini (SK), akma mukavemetini (SA), deney parçası akma mukavemeti (SD) ve emniyet katsayısı soruluyor.
Bir sonraki aşamada ise kritik noktadaki mil çapının hesabı için eğilme momenti (ME) ve burulma momenti (MB) soruluyor. Bu değerlere göre statik zorlama çapı hesaplanıyor.
Statik çap dinamik bir mil için yeterli bir hesap değildir. Bu yüzden bizden güvenirlik değeri, ortam sıcaklığı bilgisi, yüzey düzgünlüğü faktörü, çentik duyarlılığı, teorik gerilme yığılması gibi bazı parametreler soruluyor. Konuya yakınlığı olanların bu parametreleri MAKİNE ELEMANLARI, Cilt 1-2-3, M.AKKURT'dan bulabileceğini veya (4-3369778) numaralı telefonla irtibata geçebileceğini belirtelim.
Tüm bu verilerden sonra bilgisayarınız 'recursion' tekniğini kullanarak dinamik mil çapını hesaplıyor. Burada hemen 'recursion' tekniğinin ne olduğunu biraz açıklayalım. Bu tekniğin amacı, amaca ulaşana kadar bir programın veya altprogramın tekrar tekrar çalıştırılmasıdır. Çok değişik uygulamaları vardır. Bu programdaki uygulamasını da biraz açalım isterseniz. Yukarıda bir statik çap hesaplandığından söz etmiştik. Dinamik çap hesaplanırken büyüklük parametresinin değeri çapa göre verilmesi gerekiyor. Fakat biz zaten çapı bilmiyoruz. O halde bu parametre statik çapa göre seçiliyor. Bu değerlere göre yapılan dinamik çap hesabı sonunda statik çap ile dinamik çap arasında 0.05'ten daha büyük bir fark varsa büyüklük parametresi tekrar seçiliyor ve tüm işlemler yineleniyor. Ne zaman ki aradaki fark 0.05'ten daha küçük oldu dinamik çap odur deniyor.
Dinamik çap bulunduktan sonra size aynı milin başka bir kritik noktası için hesap yapıp yapmayacağınız ya da farklı bir mil için hesaplama isteyip istemediğiniz soruluyor. Cevabınıza göre programın ilgili bölümlerine dallanılıyor.
Diğer Mühendislik uygulamalarına yol gösterici olması umuduyla, iyi kullanımlar...
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 18
BOdAR PRİNT *C3SPACEYJOYSTİK PORTC2SPACE > (za) 00043 GET ASIJOSVALCASILIR ANO 2 THEN 50 ©0044 IF JOS1 THEN 46 IF THEN 00046 RETURN ©0047 PRİNT XC100 THEN POKE 1045.32 IF YC100 THEN POKE 1054.32 00049 RETURN 60050 FOR TO 1S01NEXT TO ÖKE ,80031 FOR TO
00055 DATA * <RVSO FE> *.*BATI >" , "DOGU <RVSOFF >CASPACE *.*0.BAT ı* 80036 DATA *K.DOGU Tes *