Newsgroup: it.comp.lang.visual-basic
Titolo: Algoritmo per ruote dentate

Ciao a tutti, sto sviluppando un programma per il disegno di ruote dentate,
non e' un programma di calcolo meccanico particolare serve solo a disegnare
le ruote.
Non ho nessun problema per il calcolo delle dimensioni delle ruote e dei
denti il problema e' il disegno dell'esatto profilo del dente, qualcuno sa
dove trovare (o puo inviarmi) algoritmi o modelli matematici. sara' un mese
che cerco in internet senza risultati
Grazie a tutti
--
Ciao Stefano
steve...@tiscalinet.it

 che cerco in internet senza risultati
Per curiosità ho fatto questa funzione:
Sub disegnaruotdentata(x As Single, y As Single, r1 As Single, r2 As Single,
numerodenti As Long)
Dim a As Long
Dim st   As Single
Dim an As Single
an = 0
st = (3.141592 * 2) / (numerodenti * 2)
For a = 1 To numerodenti
    Circle (x, y), r2, , an, an + st
    Circle (x, y), r1, , an + st, an + 2 * st
    Line (x + r1 * Cos(an), y + r1 * Sin(an))-(x + r2 * Cos(an), y + r2 *
Sin(an))
    an = an + st
    Line (x + r1 * Cos(an), y + r1 * Sin(an))-(x + r2 * Cos(an), y + r2 *
Sin(an))
    an = an + st
Next
End Sub
es di chiamata:
Call disegnaruotdentata(Me.Width / 2, Me.Height / 2, 1000, 1500, 10)
non so se può servire ai tuoi scopi...
Manca la gestione dell'angolo iniziale (ma ci vuole poco basta porre an<>0).
Inoltre disegna solo il caso particolare in cui l'angolo occupato da un
dente è uguale all'angolo occupato dallo spazio far due denti.
termoPilucco.

 denti
Dove l'hai imparato?  ...lì dovresti trovare pure come si disegna.
Quindi si tratta di un libro di "meccanica applicata alle macchine"
La parte puramente grafica la trovi anche , e certamente
spiegata meglio, su un libro di disegno meccanico
Se non riesci a trovare qualche amico che studia ingegneria meccanica
potrai trovare certamente qualche perito meccanico.
Di routines già pronte non credo ve ne siano.
In ogni caso, buon lavoro
Tommaso


 Per curiosità ho fatto questa funzione:
Ti ringrazio, ma questo lo faccio gia' (piu altre cosine relative alle ruote
dentate) come vedi il dente disegnato assomiglia ad una spatola in realta'
dovrebbe essere una specie di "ogiva" questo profilo non e' costante ma
cambia in base al numero dei denti della ruota.
--
Ciao Stefano
steve...@tiscalinet.it

 potrai trovare certamente qualche perito meccanico.
Sui testi che ho potuto consultare (del solito amico perito) ma anche dopo
ampie ricerche in internet ho trovato descritti dei metodi ma non
sufficientemente esaustivi.
Il risultato che dovrei raggiungere e' visibile su
http://members.aol.com/gearLab/
  la seconda gif animata descrive il profilo
costruito dal dente che si inserisce nell'altro. Come puoi vedere queste
curve non sono costanti ma cambiano rispetto al n di denti della ruota
(trovi anche il programma scaricabile) le formule per questo calcolo non le
trovo (o non mi sono acccorto di averle trovate dato che le  mie conoscenze
matematiche sono troppo scarse per comprenderle;-) )
--
Ciao Stefano
steve...@tiscalinet.it

 cambia in base al numero dei denti della ruota.
Eh eh... troppo realistico... in effetti quello che serve č la bibliografia
del caso piů che l'implementazione.
termoPilucco.


cercando su google "profilo evolvente"
ho trovato questo documento:
http://www.ing.unipi.it/~d5973/INVILUPP.pdf
buon divertimento ;-)
HTH
bye
R


Grazie, ad un prima occhiata sembra interessante, adesso mi scriroppo tutte
le 44 pagine e vedo un po',
Ho un documento simile, ma molto piu contenuto e non sono riuscito a farci
nulla
--
Ciao Stefano
steve...@tiscalinet.it