%
O0060(MACRO KONIK HESAPLAMA)
#1=50(BYK CAP)
#2=6(KCK CAP)
#3=14.928(BOY)
#4=0(ACI)
(BRDN SNRSNI DGSTRMYN)
IF[#1AND#2AND#3AND#4GT0]GOTO501
#100=[#1+#2]
#101=[#1+#3]
#102=[#1+#4]
#103=[#2+#3]
#104=[#2+#4]
#105=[#3+#4]
IF[#100LE0]GOTO500
IF[#101LE0]GOTO500
IF[#102LE0]GOTO500
IF[#103LE0]GOTO500
IF[#104LE0]GOTO500
IF[#105LE0]GOTO500
IF[#4LE0]GOTO1
IF[#3LE0]GOTO2
IF[#2LE0]GOTO3
IF[#1LE0]GOTO4
N4(BUYUK CAP)
#17=TAN[#4]*[#3]
#18=[[[#2/2]+#17]*2]
F#2
#3006=1(KCK CAP F==== ISE)
F#3
#3006=1(BOY F==== ISE)
F#4
#3006=1(ACI F====ISE)
F#18
#3000=1(BYK CAP F=DEGERINDE)
M99
N3(KUCUK CAP)
#15=TAN[#4]*[#3]
#16=[[[#1/2]-#15]*2]
F#1
#3006=1(BYK CAP F==== ISE)
F#3
#3006=1(BOY F==== ISE)
F#4
#3006=1(ACI F=====ISE)
F#16
#3000=1(KCK CAP F=== DGRNDE)
M99
N1(ACI)
IF[#4GT0]GOTO501
N100#10=[[#1-#2]/2](FARK)
#11=ATAN[#3]/[#10]
#12=[90-#11]
F#1
#3006=1(BYK CAP F==== ISE)
F#2
#3006=1(KCK CAP F==== ISE)
F#3
#3006=1(BOY F==== ISE)
F#12
#3000=1(ACI F===== SATIRINDA)
M99
N2(BOY)
#13=[[#1-#2]/2]
#14=TAN[90-#4]*[#13](BOY)
F#1
#3006=1(BYK CAP F==== ISE)
F#2
#3006=1(KCK CAP F==== ISE)
F#4
#3006=1(ACI F==== ISE)
F#14
#3000=1(BOY F==== DEGERINDE)
M99
N500#3006=1(IKI DEGER 0 OLRK YZLMZ)
M99
N501#3006=1(HERSEYI YAZDIN NE ARIYON)
M99
%
Yukarıdaki program KONİK hesaplama için kullanılabilir.
Aradığıniz değer neyse o değişkene =0 yazın ve starta basın.3.starta kadar F değerinde
Yazdınız değerleri.4.startta kırmızı alarmla F değerinde aradığız sonucu göreceksiniz.
Not:aradığınız sonuca sıfır yazmayı unutmayın.
emeğine sağlık ama tezgaha yükledim çalışmadı daha ayrıntılı açıklarsan ana ve alt proğram varsa açıklayıcı olarak teşekkürler
Konik isleme şoyle ustam ornegin distan isleyeceksin kucuk cap 30mm buyuk capin 50 mm isleme boyun 50mm kullanilacak takimda 20 p.f hesaplamasi soyle
50-30=20/2=10
50/0.1=500 (burda 0.1 Z eksenindeki kayma 500 tekrar)
10/500=0.02(burda 0.02 x eksenindeki kayma )
30/2=15+10=25 (baslangictaki 30mm lik cap)
Programlamasi
T1M6
S1500M3
G0G90G54X0Y0
G43Z2H1
#1=0
#2=50
#3=25
N1G1X#3F1000
Z-#1
G2I-#3
#1=#1+0.02
#3=#3+0.1
IF[#1LE#2]GOTO1
G0Z100
G91G28Z0Y0
M30
ilgine teşekkür proğramı tezgaha yükledim çalışmadı
%
(MACRO KONIK HESAPLAMA)
#1=50(BYK CAP)
#2=6(KCK CAP)
#3=14.928(BOY)
#4=0(ACI)
IF[#1AND#2AND#3AND#4GT0]GOTO501
#100=[#1+#2]
#101=[#1+#3]
#102=[#1+#4]
#103=[#2+#3]
#104=[#2+#4]
#105=[#3+#4]
IF[#100LE0]GOTO500
IF[#101LE0]GOTO500
IF[#102LE0]GOTO500
IF[#103LE0]GOTO500
IF[#104LE0]GOTO500
IF[#105LE0]GOTO500
IF[#4LE0]GOTO1(ACI)
IF[#3LE0]GOTO2(BOY)
IF[#2LE0]GOTO3(K Q)
IF[#1LE0]GOTO4(B Q)
N4(BUYUK CAP)
#17=TAN[#4]*[#3]
#18=[[[#2/2]+#17]*2]
F#2
#3006=1(KCK CAP F==== ISE)
F#3
#3006=1(BOY F==== ISE)
F#4
#3006=1(ACI F====ISE)
F#18
#3000=1(BYK CAP F=DEGERINDE)
M99
N3(KUCUK CAP)
#15=TAN[#4]*[#3]
#16=[[[#1/2]-#15]*2]
F#1
#3006=1(BYK CAP F==== ISE)
F#3
#3006=1(BOY F==== ISE)
F#4
#3006=1(ACI F=====ISE)
F#16
#3000=1(KCK CAP F=== DGRNDE)
M99
N1(ACI)
IF[#4GT0]GOTO501
N100#10=[[#1-#2]/2](FARK)
#11=ATAN[#3]/[#10]
#12=[90-#11]
F#1
#3006=1(BYK CAP F==== ISE)
F#2
#3006=1(KCK CAP F==== ISE)
F#3
#3006=1(BOY F==== ISE)
F#12
#3000=1(ACI F===== SATIRINDA)
M99
N2(BOY)
#13=[[#1-#2]/2]
#14=TAN[90-#4]*[#13](BOY)
F#1
#3006=1(BYK CAP F==== ISE)
F#2
#3006=1(KCK CAP F==== ISE)
F#4
#3006=1(ACI F==== ISE)
F#14
#3000=1(BOY F==== DEGERINDE)
M99
N500#3006=1(IKI DEGER 0 OLRK YZLMZ)
M99
N501#3006=1(HERSEYI YAZDIN NE ARIYON)
M99
%
Sana yazığım konik hesaplama macrosu
göndereyim bi tane .bunu tezgaha yükle
aradığın değer neyse ona sıfır yaz .
sonra statta bas.Her statta bastığında
F değerinde girdiğin değerleri gösterecek
4.startta kırmızı alarm ve F de aradağın sonuç.
ister büyük çapı bul ,ister küçük çapı,
ister boyu,istersen açıyı.
Kenan kardesim orda paso miktarlarinin yerlerini degistirmek gerekiyo orda ufak bir yanlis yaptm #1=#1+0.1 #3=#3+0.02 yaparsan calisir
KENAN 71 Kardeşim konik hesaplama macrosu güzel olmuş çok uğraştırdımı seni
Ellerinizi sağlık ustalar teskur