Option Explicit

Sub Hypocycloid()
Dim p, b, d, e, n
b = Rhino.GetReal ("Pin circle diameter")
d = Rhino.GetReal ("Pin diameter")
e = Rhino.GetReal ("Eccentricity")
n = Rhino.GetInteger ("Number of teeth")
p = (b/2)/n

Dim i, arrPoint, arrPoints(360)
For i = 0 To 360
arrPoint = Array(CalcX(p,d,e,n,Rhino.ToRadians(i)), CalcY(p,d,e,n,Rhino.ToRadians(i)), 0)
arrPoints(i) = arrPoint
Next
Rhino.AddInterpCurve(arrPoints)

Dim xtemp, ytemp
For i = 0 To n+1
xtemp = p*n*Cos(2*Rhino.pi/(n+1)*i)
ytemp = p*n*Sin(2*Rhino.pi/(n+1)*i)
arrPoint = Array(xtemp+e, ytemp, 0)
Rhino.AddPoint(arrPoint)
Next
End Sub

Private Function CalcYP(a, e, n, p)
CalcYP = Rhino.ATan2(Sin(n*a)/(Cos(n*a)+(n*p)/(e*(n+1))), 1.0)
End Function

Private Function CalcX(p,d,e,n,a)
CalcX = (n*p)*Cos(a)+e*Cos((n+1)*a)-d/2*Cos(CalcYP(a,e,n,p)+a)
End Function

Private Function CalcY(p,d,e,n,a)
CalcY = (n*p)*Sin(a)+e*Sin((n+1)*a)-d/2*Sin(CalcYP(a,e,n,p)+a)
End Function






ez a cycloid fájl rh4 skript editorába másold be aztán mentsd el.

Köszönöm a választ.
A propó cikloid.
El tudnád nekem még egyszer küldeni a fogaskerék, és a cikloid szerkesztő plugint a Rhino-hoz?
Köszönöm.

Előzmény: D.Laci, 2011-07-12 14:06:00 [6078]

Köszönöm kérdésed! Semmi különös, első a munkahely, talán ami a leginkább CNC-hez köthető, hogy gyerekeket utaztatok lin-vezetéken. (Hinta helyett) De ha már én is fel tudok valami szakmai dolgot mutatni, meg fogom tenni.

Előzmény: D.Laci, 2011-07-12 11:22:00 [6076]

Egy mezei 1,5Kw-os AC motor és egy 50W-os szervó motor cikloid hajtással. Fogas szíjat könyen tudom cserélni. de lehet lecserélem egy nagy AC szervóra...

Előzmény: Miki2, 2011-07-12 13:02:00 [6077]

Gratulálok, nagyon szép munka.
Laci! Milyen meghajtó motorod van az esztergán, amit "C" tengely, és főorsó üzemmódra is alkalmas?

Előzmény: D.Laci, 2011-07-11 21:01:00 [6044]

Laslie: Ha minden jól megy megy a posta!
Nemes János: köszi, te is páratlan reliefeket marsz.
Molinari: Mostanában ritkán látni téged! Mit remekelsz mostanában?

Ez igen!
Elfér a polcon még egy gratuláció?
Akkor azt én küldöm!

Előzmény: D.Laci, 2011-07-11 21:01:00 [6044]

Nagyon profi!

Előzmény: D.Laci, 2011-07-11 21:01:00 [6044]

Csak küldje-küldje....
Minden olyan érdekel ami nem olyan, mint amilyen.

Előzmény: D.Laci, 2011-07-12 09:18:00 [6072]

Valami alu.
Megprobálok beszélni a srácal hogy küldje el neked a darabot, megsasolás címén. Több szem többet lát. Tanulságos lehet mindenkinek.

Előzmény: Laslie, 2011-07-12 09:14:00 [6071]

Csakhogy az nem szabványos emelkedés.
Műanyag volt az eredeti ?

Előzmény: D.Laci, 2011-07-12 09:10:00 [6070]

Azzal kezdtem énis.
Már a menet fésűimet is kidobtam mert nem paszolt egyiksem...
Nagyából kimértem, és ezredenként változtattam a menet emelkedést így kijött az 1.076mm emelkedés ami tökéletesenpaszolt.

Előzmény: Laslie, 2011-07-12 09:05:00 [6069]

Ez biztosan nem jó adat.
24 menet lesz az...

Előzmény: D.Laci, 2011-07-12 09:00:00 [6067]

Akkor más lehetőség nincs, mint M35x1-es menet lesz az. Több variációt nem ismerek.

Előzmény: D.Laci, 2011-07-12 08:54:00 [6066]

De ne találgasunk tovább 1.076mm a menet emelkedés...

"A táblázatok is erösen hibásak. A linkelt táblázatban 1" esetén 24.3-24.4mm átméröt admeg. "
Ezt észre vettem hogy hülyeséget írtam ki is töröltem, de hogy maradt bene???
Kár hogy nem lehet utolag javittani.
Nem 24tpi-s a menet...

Előzmény: Laslie, 2011-07-12 08:40:00 [6065]

Basszus, a táblázatnak semmi baja nincs, csak az a 24,3 és a 24,4 a magfuratra vonatkozik nem a külső átmérőre.
24,3 az 1"-os külső és 24menetes emelkedés, a 24,4 pedig az 1"-os külső és 26menetes emelkedés.

A keresett meneted pedig nagy valószínűséggel az FG34,8-24.
Az átmérőt megesztergálod 34,7-re, majd egy hegyes 60 fokos késsel átmérőben lemész 1,2mm-t, 24 menet/coll emelkedés mellett.

Előzmény: D.Laci, 2011-07-12 06:36:00 [6063]

Csak ne szerénykedj! Nagy mágus vagy Te Barátom!

Előzmény: D.Laci, 2011-07-11 21:48:00 [6055]

Az átmérő 1.370"
Menetemelkedés azt nem mondom meg
Másfél napot szoptam vele netet bujtam idom szereket csináltam mire kijött a megfelelő menet emelkedés... valszeg a hagyományos gépen nem is lehet olyan menet emelkedést vágni.

BSC Menetek ezekre gondolsz?

A táblázatok is erösen hibásak. A linkelt táblázatban 1" esetén 24.3-24.4mm átméröt admeg.
1 3/8" esetén átváltja decimális értékre 1.370" ra, amit ha kiszámolunk 1 3/8" = 34.925mm , 1.370" = 34.798mm , aza ~0.13mm átméröben kurva sok.... na a menetben is ekora szorás van 3-4 menetnél nem számit. Szerencsére ~15-16mm hosszú menet mintát kaptam ott rögtön elő jött a gebasz...

Előzmény: Laslie, 2011-07-11 22:38:00 [6059]

Biztos van összefüggés a tudás,és a tej között.

Valaki mondta,... "A tudás,az hatalom".
Ebből kifolyólag Te,biztos tejbe-vajba fürdesz.
Már-ha,tejelnek a kuncsaftok rendesen.:))

Előzmény: Laslie, 2011-07-11 23:15:00 [6061]

Én mondtam, hogy a tudás a tejben van...

Előzmény: KoLa, 2011-07-11 22:59:00 [6060]

Há' ezért maradok én csak egy rossz esztergályos!

Előzmény: Laslie, 2011-07-11 22:38:00 [6059]

Te meg kinevetted....
Oszt tényleg az !

BSC = British Standard Cycle

Előzmény: KoLa, 2011-07-11 22:29:00 [6058]

Nálunk régen a GySGy ben volt egy mérnök aki azt mondta ilyen esetben, hogy, ez biciklimenet!

Előzmény: Laslie, 2011-07-11 22:16:00 [6057]

Mekkora átmérőt és mekkora menetemelkedést mérsz ?

Előzmény: D.Laci, 2011-07-11 21:41:00 [6053]

Ok Laci!várjuk a fejleményeket! ha van valami siker élményed csak oszd meg itt nekünk nyugodtan! mer az ilyen sikerek, növelik az elszántságot a társaságban!

Előzmény: D.Laci, 2011-07-11 21:48:00 [6055]

Kevés az még... amim van..
"Aki tudja csinálja, aki nem tudja, tanítja"
Figyelem a fejleményeket. Ha valamit észre veszek szólok.

Előzmény: KoLa, 2011-07-11 21:40:00 [6052]

Van foga?
Van hát!
Ne kötekedj!
:)
Amikor elkészült annyira tökéletes let hogy egésznap azon gondolkodtam, mit kelenne elbaszni rajta... Hát igy let belőle fogas kerék

Előzmény: PSoft, 2011-07-11 21:24:00 [6048]

A tudás bűn!!
Én ártatlan vagyok!!
Hamár ide vetödtél teis.
Légy oly kedves segits ki azzal hogy a hátsó agynál alkalmazott 7 szabvány menet méreteit megadod.
Mit össze görcsöltem mire kisakkoztam milyen menet volt az eredetin. A neten anyit találtam, hogy 7 szabvány tipust alkalmaznak, ezt tuti nem szabvány...

Előzmény: Laslie, 2011-07-11 21:16:00 [6047]

Beszállhatnál a 'honosításba' a gyakorlati tudásoddal!

Előzmény: D.Laci, 2011-07-11 21:36:00 [6050]

KLassz!

Előzmény: D.Laci, 2011-07-11 21:01:00 [6044]

Igen EMC2-vel készült.

Előzmény: KoLa, 2011-07-11 21:09:00 [6046]

Szerintem az csak egy szándékosan beleszőtt baki, hogy ne érezzük már magunkat teljesen alulexponált kezdőnek.

Előzmény: PSoft, 2011-07-11 21:24:00 [6048]

Biztos,csak lányos zavarodban lett abból az első osztályú lánckerékből fogaskerék.

Előzmény: D.Laci, 2011-07-11 21:01:00 [6044]

Ennél kevesebbért is haltak már meg !
TÚL SOKAT TUDSZ !!!!

Előzmény: D.Laci, 2011-07-11 21:01:00 [6044]

Nagyon szép munka!
Emc2-l készült?

Előzmény: D.Laci, 2011-07-11 21:01:00 [6044]

Úúúúúúúú!

Előzmény: D.Laci, 2011-07-11 21:01:00 [6044]

Egy kis C-tengelyes "esztergálás".
Kerékpár hátsó agy , és fogaskerék.
Alú és acél.

Növeld az előtolási sebességet, 2000mm/min egy jó gépen teljesen korrekt!

Előzmény: Ezustvihar, 2011-07-10 18:30:00 [6041]

Igen, egy vihart kavartál
Egy ezüstvihart. Lahet, valakinek aranyat ér

Ki gondolta, hogy ezzel mit indítok el...
Csak csendben olvastam a fejleményeket, próbáltam már 0,1-es lépésben mondanom sem kell mennyivel több ideig tart.
Danibá ötletét kipróbálom, és 0,3-as gravírtűvel esek neki legközelebb, 0,15 lépésben. Talán ez lesz számomra a legjobb kompromisszum!
Még a márványt is 0,2-es lépésekkel martam, nem gondoltam, hogy ezzel a hegyet mekkora terhelésnek tettem ki.

Nahát akkor mostmár ezt is tudjuk

Előzmény: Törölt felhasználó, 2011-07-10 16:37:00 [6037]

Nagyon köszönöm, megkaptam.
Ez jó alap lehet sok mindenhez.
Mégegyszer köszönöm.

Előzmény: Törölt felhasználó, 2011-07-10 16:57:00 [6038]

Mindkét keret a galambnál. Hamarosan oda ér.

Előzmény: Miki2, 2011-07-10 16:05:00 [6033]

Mivel, 1 élű "maróról" beszélünk, ezért a "Flat Radius (F)" hoz a fél méretet, kell írni.

Előzmény: Nemes János, 2011-07-10 16:10:00 [6034]

Akkor az mért van, hogy az artcam-ba a 0.2-es hegynél a stepovernél 50%-ot állítok be és akkor 0.2 lesz a stepover?

Előzmény: Motoros, 2011-07-10 09:38:00 [6031]

Szervusz Danibá !
Megköszönöm, ha elküldöd mindkettőt.

Előzmény: Törölt felhasználó, 2011-07-10 14:18:00 [6032]

Hogy, a lentebb megbeszélt marástechnikát ki lehessen próbálni, közre adok két sajátkészítésű reliefet.
Cserébe, a kész marást rakjátok fel ide.
Akinek kell, írjon nekem levelet.
Tükör, vagy képkeretnek ajánlom. Persze, ki minek gondolja.