Deutsch: Ein Loxodrom hat im Gegensatz zur archimedischen Kugelspirale einen konstanten Winkel zwischen den Längengraden und den Breitengraden, der hier das Verhältnis von 10 Länge zu 1 Breite hat.
100SCREEN1:KEYOFF:P=ATN(1)/45:R=96110REM P = WINKEL UMRECHNEN IN RAD : R=RADIUS DER KUGEL120REM (REM=REMARK=ANMERKUNG) ZWANZIG BLICKWINKEL ERZEUGEN130FORU=0TO175STEP9:T=P*U:G=COS(T):H=SIN(T)140CLS:LINE(60,0)-(259,199),3,B:LOCATE2,9:PRINTRIGHT$(" "+STR$(U),3);150REM BREITENKREISE IN ROT ERZEUGEN160FORV=90TO270STEP18:A=P*V:C=R*COS(A):Z=R*SIN(A)170FORW=0TO360STEP(-2*R)/(C-.001):B=P*W180X=C*COS(B):Y=C*SIN(B):M=160+X:N=100-G*Z-H*Y:O=H*Z-G*Y190IFO>-1THENPSET(M,N),2200NEXTW:NEXTV210REM MERIDIANE IN GRUEN ERZEUGEN220FORV=90TO260STEP18:A=P*V:E=COS(A):F=SIN(A)230FORW=0TO360STEP2:B=P*W:Z=R*SIN(B)240X=E*R*COS(B):Y=F*R*COS(B):M=160+X:N=100-G*Z-H*Y:O=H*Z-G*Y250IFO>-1THENPSET(M,N),1260NEXTW:NEXTV:V=90.1:REMSTARTBREITENWINKEL270REM LOXODROME IN WEISS ERZEUGEN280FORW=0TO9000STEP.1281B=P*W:V=V+.1*.1*ABS(COS(P*V)):A=P*V:C=R*COS(A):Z=R*SIN(A)290REM ABS(COS(P*V)) WEIL KLEINER RADIUS = KLEINE STRECKE300X=C*COS(B):Y=C*SIN(B):M=160+X:N=100-G*Z-H*Y:O=H*Z-G*Y310IFO>-1THENPSET(M,N),3320NEXTW330REM NAECHSTER BLICKWINKEL340IFINKEY$=""THEN340350NEXTU:SCREEN0:CLS:KEYOFF:WIDTH80:LIST:END360REM SAVE"KUGSPI-9.BAS",A
Loxodrome *Beschreibung: **Die Loxodrome hat im Gegensatz zur archimedischen **Kugelspirale einen konstanten Winkel zwischen **den Längengraden und den Breitengraden, der hier **das Verhältnis von 10 Länge zu 1 Breite hat. *Quelle: **Gezeichnet a