rita log spiral?

[grym]

har lust att prova att etsa en logspiral antenn
vet på ett ungefär hur den ska se ut men är blank i huvudet hur man ska kunna både matematiskt definera spiralen och hur man ska kunna skapa den så man kan skriva ut den

några förslag?

ungefär såhär men man ska kunna ställa varv, vinkel, och bredd på spiralerna

[Chribbe76]

Jag har en "stomme" i VB som jag använder när jag ska göra pulsgivar-skivor.
Den var enkel att modifiera för att göra en spiral.
Det är inte exakt som du vill ha det men en början iaf.

Formeln jag har använt är i princip Vinkel+Radie^0.5

[007sweden]

vb6? du har inte lust att dela med dig av sourcen? ^^ gärna den modifierade spiralegivaren ^^

[Chribbe76]

Några inlägg försvann i flytten, jag lägger in det viktigaste.


Ja, det är vb6.

Nu har jag lyckats göra en logspiral.
Jag fixade även rundning i ändarna (vilket är snyggt men kanske helt fel).
Det som är kvar är om man vill definiera spiral-vinkeln, nu definieras den med en siffra som är lite svår att förklara innebörden av.
Tjockleken går att definiera men den är lika genom hela spiralen.

Programmet består bara av en knapp som ritar upp det på skärmen och skapar bildfil (.bmp).
Jag rekommenderar att filen konverteras till ett lämpligare format tex gif.
Alla iställningar görs i koden, ex:

SizeX = 56 'BildStorlek(filen) i mm
SizeY = 56 'BildStorlek(filen) i mm
DpiX = 1200 'Bildens upplösning (DPI)
DpiY = 1200 'Bildens upplösning (DPI)

LogMult = 1.5 'Spiralens vinkel men i okänt format
Tjocklek = 0.15 'Tjocklek med 2st spiraler max 0.24, 3st spiraler max 0.16
Start = 45 'Startvinkel
Slut = -3 * 360 - 45 'Slutvinkel, ska vara negativ

Om man vill skapa en bildfil så ta bort ' framför gosub raden.
Filnamn = "d:\Logspiral1.bmp" 'Sökväg och filnamn
'GoSub WriteToFile

Det kan ta flera minuter att göra en fil med hög upplösning.

Om någon vill gå vidare och göra ett komplett program så posta gärna koden här.

http://ake.myftp.org/forum/LogSpiral.rar





Knasig logspiral: