|
KULLANILAN FORMÜLLER
dY = Y B - YA
dX = X B - XASİ = ( dY 2 + dX 2)1 / 2
(AB) = arkTan ( dY / dX )
Bu program CASIO FX3600 için uyumludur.
SEMT-KENAR PROĞRAMI -Koordinatları bilinen iki nokta arasındaki mesafe ve ilk noktadan ikinci noktaya olan acıklık açısı(semt) hesaplanmak istendiginde kullanılan proğramdır. Şimdi aşağıdaki programı makinanıza yukleyebilirsiniz
MODE EXP I RUN 1 Kin 1 RUN 2 Kin 2 RUN 3 Kin 3 RUN 4 Kin 4 - Kout 2 = Shift + ( Kout 3 - Kout 1 ) = RUN Shift Kin Shift 7 + 400 = MODE . -Aralarında bosluk olan her karakter ayrı bir makina tuşunu ifade etmektedir. Örneğin MODE bir tuş olduğu gibi. 4 'te bir başka tuşu ifade eder. -Eğer programı hatasız yükledinizse çalıştırması cok basit. Sırasıyla semt ve kenarını hesaplayacagınız noktaların koordinatlarını makinaya girmelisiniz. Sırasıyla Y1, X1, Y2, X2 değerlerini girerek her girişten sonra RUN tuşuna basmalısınız. İşte size birde örnek. Programı yükledikten sonra P1 le programa girin daha sonra sırasıyla 1 RUN 2 RUN 4 RUN 5 RUN tuslarına basın. RUN tuşuna en son bastığınızda ekranda 4.242640687 ve tekrar RUN tuşuna basıncada 50 degerlerini almalısınız. Aldığınız ilk değer metre biriminde kenar uzunluğu, ikincisi ise ilk noktadan ikinci noktaya giden grad cinsinden semt açısıdır. Bu değerleri bulamazsanız proğramı tekrar yüklemenizi tavsiye ederim...
F 2= Y i * ( Xi+1 - Xi-1) + . . . . .
GAUSS ALAN HESABI -En az üç noktayla (nokta sayısı daha fazlada olabilir) çevrili kapalı bir bölgenin alanı hesaplanmak istendiğinde kullanılabilecek bir program. İşte proğramı makinanıza yüklemek için takip etmeniz gereken tuş sırası. MODE EXP I Kout 2 Kin 1 Kout 3 Kin 2 RUN 3 Kin 3 - Kout 1 = * RUN 4 Shift Kout 4 = / 2 m+ Shift 9 MODE . Burda * carpma tuşudur.-Program nokta sayısı sınırsız tutularak hazırlanmıştır. Bu programla köşe koordinatları bilinen bir üçgenin alanını hesaplayabileceginiz gibi, koordinatları bilinen 100 köşeli düzgün olmayan bir çokgenin de alanını hesaplayabilirsiniz. -Nokta sayısı 5 olan bir beşgenle programın çalışma sistemini açıklayalım. Bu örnegi farklı nokta sayılı çokgenlerede uygulayabilirsiniz. Yi (m) Xi (m)
Y1 X1
Y2 X2
Y3 X3
Y4 X4
Y5 X5
Programın çalışması iki adımla gerçekleşiyor.İlk olarak programı açmadan hafızalara üç deger atamamız gerekiyor. Bu degerler ilk noktanın Y, ikinci noktanın Y ve X koordinatlarıdır. Y1 Kin 2 Y2 Kin 3 X2 Kin 4 Bu şekilde koordinatları girip varsa önceden MR ye girdigimiz degeri siliyor ve programı açıyoruz. Programı actıktan sonra saat ibresi yönünde diger bütün koordinatları giriyoruz.Y3 RUN X3 RUN Y4 RUN X4 RUN Y5 RUN X5 RUN Son noktanın koordinatını da girdikten sonra sanki noktalar devam ediyormuş gibi ilk iki noktanın koordinatlarınıda giriyoruz. Y1 RUN X1 RUN Y2 RUN X2 RUN İkinci noktanın X degerini girip RUN tuşuna bastıktan sonra MR tuşuna basarak alanı öğreniyoruz...
Yİ = Y A + o Sİ + a dUİ
Xİ = X A + o Sİ - a dUİ
Sİ = ( S ı - S ıİ - 1 ) kdUİ =
Uİ + 1 - U İ - 1 )
k = S ı / So = dY /
Sa = dX / S
Bu program KÜÇÜK NOKTA hesaplarında da kullanılabilir. CASIO FX3600 için uyumlu degildir.
YAN NOKTA PROĞRAMI -Koordinatları bilinen iki nokta arasınadaki noktaların koordinatlarını hesaplama yöntemlerinden bir taneside yan nokta hesabıdır. İlk noktaya olan uzaklıklar (Sİ) dik ayak ve dogrultuya olan yükseklikler (Uİ) dik boylar kullanılarak ilgili noktaların koordinatları hesaplanabilir. Programın kulanışlı olması açısından 3 aşamada kurulması gerekmektedir. işte proğramın ilk aşaması.......- MODE EXP I RUN 1 Kin 1 RUN 2 Kin 2 RUN 4 Kin 4 RUN 5 Kin 5 Kout 4 - Kout 1 = Kin 4 X2 + ( Kout 5 - Kout 2 ) Kin 5 X2 = X1/2 Shift MR Kout 4 / MR = Kin 3 Kout 5 / MR = Kin 6 MR / RUN = Shift MR 0 Kin 4 0 Kin 5 MODE . -Yukarıda yazdıgımız programın ilk aşaması olup program I e yükladiğimizi farketmiş olmalısınız. Bu programla koordinatları bilinen noktaların koordinatlarını ve arazide ölçülen Sİ uzunlugunu girerek a,o katsayıları ile k düzeltme faktörünü makinaya hesaplatarak hafızasına kaydetmiş oluyoruz. Programın tamamını yükleyipte hesaba başlayacagımız zaman ilk olarak PI i acıyor ve sırasıyla YA RUN XA RUN YB RUN XB RUN Sİ RUN şeklinde degerleri giriyoruz. -Şimdi ikinci aşamadayız. Bu programı makinanın ikinci program hafızasına yüklüyecegiz. Programa girecegimiz dik ayak ve dik boylar sonunda bize girdigimiz her nokta icin Y koordinat degerini verecektir. Bu ve sonraki aşamada dikkat etmemiz gereken bir nokta var. Oda dik boyların dogrultunun sagında yada solunda olma durumu. Eger dik boyumuz gidiş yönüne göre sag tarafta kalıyorsa pozitif (+) sol tarafta kalıyorsa negatif (-) alınacaktır. İşte proğram..... - MODE EXP II Kout 1 + Kout 3 * MR *( RUN 3 - Shift Kout 4 ) + Kout 6 * ( RUN 5 -Shift Kout 5) = Kin 1 Shift RUN Shift 9 MODE . -Programın bu bolumunude yukledikten sonra artık elimizdeki butun noktaların Yi koordinatlarını hesaplayabiliriz. Yapmanız gereken cok basit. Program II'yi açıyoruz ve Sırasıyla S1 RUN U1 RUN S2 RUN U2 RUN ............Sİ RUN Uİ RUN şeklinde bütün detay noktaların Y koordinatlarını alıp son aşamaya geciyoruz. diyelimki 5 numaralı noktamız doğrultunun solunda kalıyor. Böyle durumlarda S5 RUN +/- U5 RUN şeklinde degerleri girip dogru koordinatları hesaplıyoruz. +/- bu tuşla 5 nolu noktanın dikboyu önüne - (negatif) işareti koymuş olduk. -Sıra geldi üçüncü ve son aşamaya. Bu programı makinanın üçüncü program hafızasına yüklüyecegiz. Program ikinci bölümün bir tekrarı. Girecegimiz dik ayak ve dik boylar sonunda bize girdigimiz her nokta icin X koordinat degerini verecektir. - MODE EXP Shift I Kout 2 + Kout 6 * MR *( RUN 3 - Shift Kout 4 ) - Kout 3 * ( RUN 5 -Shift Kout 5) = Kin 2 Shift RUN Shift 9 MODE . -Programın yüklemesini tamamladık. Bu aşama sonucunca bütün noktaların Xi koordinatlarını hesaplayabiliriz. Yapmanız gereken ikinci bölümde yaptığımızın aynısı. Bir farkla proğramı acmadan 4. ve 5. hafızalara 0 (sıfır) degerini giriyoruz. 0 Kin 4 0 Kin 5 Program III'ü açıyoruz ve Sırasıyla S1 RUN U1 RUN S2 RUN U2 RUN ............Sİ RUN Uİ RUN şeklinde bütün detay noktaların X koordinatlarını hesaplamış oluyoruz. Burada da yine noktanın dogrultuya gore sagda yada solda oluşuna dikkat etmeyi unutmuyoruz
CASIO FX 880P VE 3600P İCİN HARITACILIK PROGRAMLARI
*** ALAN HESABI (Kapalı Bir Alanın Hesabı)***
10 PRINT “ALAN”
20 INPUT “N=”;P;”EKSENE MESAFE 1=”;A;”NOKTA KOTU1=”;B
30 N=A:M=B:T=0
40 FOR I= 2 TO P
50 PRINT .EKSENE MESAFE ”;I;”=”;:INPUT E
60 PRINT .NOKTA KOTU ”;I;
70 T=(B-F) * (A+E)+T:B=F:A=E
80 NEXT I
90 T=(B-M)*(A+N)+T
100 PRINT “ALAN =”;ROUND((T/2),-3);”m2”
*** B)KESİŞME PROGRAMI (Şevin Arazi ile kesiştiği Nokta)***
10 PRINT “KESİŞME”
20 INPUT “EKSENE MESAFE 1=”;A;”NOKTA KOTU 1=”;B
22 INPUT “EKSENE MESAFE 2=”;C;”NOKTA KOTU 2=”;D
30 INPUT “EKSENE MESAFE 3=”;E;”NOKTA KOTU 3=”;F;”GABARİ EĞM(m)”;M
40 N=(D-B)/(C-A)
50 L=(N*A-M*E+F-B)/(N-M)
60 H=B+N*(L-A)
70 SET F2:PRINT “EKSENE MESAFE 4=”;L;”NOKTA KOTU 4=”;H;
80 SE F4:PRINT “T.Z.EĞİMİ=”;N
90 GOTO 20
*** C) TAKEOMETRE PROGRAMI(Bakılan Noktanın Kot ve Mesafesi)***
10 PRINT “TAKEOMETRE PROGRAMI”
20 MODE 6
30 INPUT “NOKTA KOTU=”;J;”ALET YÜK.=”;Q
40 K=J+Q
50 INPUT “ALT KIL=”;A;”ORTA KIL=”;B;”ORTA KIL=”;C
60 D=ABS(2*B-C-A)
70 INPUT “DÜŞEY AÇI=”;Z
80 E=C-A:S=E*(SIN Z)*(SIN Z)
90 SET F2
100 H=E/2*SIN(2*Z)-B/100+K
110 PRINT “MESAFE=”;S;”MT”;” “;”NOKTA KOTU=”;H
120 GOTO 50
*** D)YATAY KURB HESABI (Kurb Elemanları Hesabı)***
10 PRINT “ YATAY KURB HESABI”
20 INPUT “SAPMA AÇISI =”;A;”YARIÇAP=”;B;”To KM= “;C
30 D=A*(PI)*B/200:T=B*TAN(A/2)
40 K=B*((1/(COS(A/2))-1):M=C+D
50 SET F2
60 PRINT “T=”;T;” D=”;D;” BIS=”;K;” TF KM=”;M
70 GOTO 20
***E)DÜŞEY KURB HESABI(Kot Hesabı)***
5 PRINT “DÜŞEY KURB”
6 INPUT “1.KM=”;K1;”TEPE KM=”;B;”2.KM=”;K3
30 INPUT “TEPE KOTU =”;A;”L=”;C
40 INPUT “M1=”;U;”M2=”;O
50 T=A-U*C/2:R=A-C/2
60 E=B-C/2:F=B+C/2
70 PRINT “T1 KM=”;E
80 PRINT “T2 KM=”;F
90 INPUT “KM=”;S
100 N=S-E
105 G=U-O
110 H=U*N-G/(2*C)*N^2
120 K=T+H
121 IF S< P>
122 IF S>F;K=A+(S-B)*O
140 PRINT “KOT=”;K
150 GOTO 90
***F)SEMT AÇISI (Semt-Kenar Uzunluğu Hesabı)***
10 PRINT “SEMT-KENAR HESABI”:MODE 6
15 PRINT “DURULAN NOKTA”
20 INPUT “Y=”;A;”XD=”;B
22 PRINT”BAKILAN NOKTA”
25 INPUT “YB=”;C;”XB=”;D
30 E=C-A:F=D-B
40 M=E/F:K=SQR(E^2+F^2):M= ATN M
50 IF F<0 THEN 80
60 IF E>0 THEN 100
70 IF E<0 THEN 90
80 M=M+200:GOTO 100
90 M=M+400
100 M=M
110 PRINT “SEMT=”;ROUND(M,-5);”KENAR=”;ROUND(K,-3)
120 GOTO 25
***G)KOORDİNAT HESABI(Bir Noktadan Hareketle Noktaya Koordinat Verme)***
10 PRINT “KOORDİNAT HESABI
20 INPUT “ilkX=”;B;”ilkY=”;A;”İLK SEMT=”;U
30 INPUT “SAPMA AÇISI=”;Z;”KENAR=”;S
40 U=U+Z
50 Y=SIN U*S:X=COS U*S
60 A=A+Y:B=B+X
70 SET F2
80 PRINT “X=”;B;” Y=”;A
90 GOTO 30
***H)NOKTA KOORDİNAT HESABI(İki Nokta Yardımıyla 3.’ye Koordinat Verme)***
10 PRINT “NOKTA HESABI”
20 INPUT “Bakılan Noktanın Y si=”;B;”Bakılan Noktanın X i=”;A
22 INPUT “Durulan Noktanın Y si=”;D;”Durulan Noktanın X i=”;C
30 Y=C-D
35 X=C-A
40 K=Y/X
50 IF X <0 THEN 80
60 IF Y <0 THEN 100
70 Z= ATN K
80 Z=200 +ATN K
85 GOTO 110
100 Z=400+ATN K
110 PRINT “SEMT=”;Z
120 INPUT “AÇI=”;E
125 INPUT “MESAFE=”;S
130 F=Z+E
140 IF F <400 THEN 160
150 F=F-400
160 IF F >200 THEN 200
170 Q=F+200
180 M=S*SIN Q
190 N=S*COS Q
200 W=F-200
210 M=S*SIN W
220 N=S*COS W
225 SET F4
230 PRINT “C NOKTASININ Y=”;M+D
240 PRINT “C NOKTASININ X=”;N+C
250 GOTO 120
|
