 |
Das deutsche QBasic- und FreeBASIC-Forum Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
ytwinky

Anmeldungsdatum: 28.05.2005 Beiträge: 2624 Wohnort: Machteburch
|
Verfasst am: 19.08.2007, 17:25 Titel: |
|
|
Christoph, du weißt aber schon, daß das Sin(90) ist, wenn du es im Bogenmaß berechnest!
Wenn du das nicht kennst, probiers halt mal mit Rechner-Plus.Exe, schalte den auf Rad, gib 90 ein und dann sin anklicken..
Schwupps, schon steht da die Zahl, die du ausgerechnet hast.
Sin(90°)=Sin(Pi/2)rad=Sin(100gon) und das ist immer 1
genauso wie Cos(90°)=Cos(Pi/2)rad=Cos(100gon) immer 0 ist.
Deshalb hat der Windows-Rechner auch ein Problem bei Tan(RechterWinkel)..
Andere liefern an der Stelle die größtmögliche Zahl.
(RechterWinkel=90°=Pi/2rad=100gon)
Den Link für die Grundlagen findest du hier. _________________
v1ctor hat Folgendes geschrieben: | Yeah, i like INPUT$(n) as much as PRINT USING.. | ..also ungefähr so, wie ich GOTO.. |
|
Nach oben |
|
 |
Christoph
Anmeldungsdatum: 07.04.2006 Beiträge: 108 Wohnort: NRW, Rietberg
|
Verfasst am: 19.08.2007, 17:40 Titel: |
|
|
Ah, ich habe es grade mit nem andern Prog ausgerechnet, stimmt, das ist im Rad, dann kommt diese Zahl daraus, in Deg kriege ich 1
Zitat: | Sin(90°)=Sin(Pi/2)rad=Sin(100gon) |
Was ist den gon? Das hab ich noch nei gehört... |
|
Nach oben |
|
 |
ytwinky

Anmeldungsdatum: 28.05.2005 Beiträge: 2624 Wohnort: Machteburch
|
Verfasst am: 19.08.2007, 17:56 Titel: |
|
|
Im Vermessungswesen wird der Vollkreis in 400gon eingeteilt.
Damit hat ein Rechter Winkel 100gon und es gibt wunderbare Vereinfachungen durch die Dezimalrechnung.
Gut, RechterWinkel/3 ist nicht mehr 30° sondern 33.33333gon,
aber das läßt sich ja genausogut merken, wie 66.66666gon.
Zum Umrechnen wird nur 0.9 benötigt:
50*0.9=45
45/0.9=50
66.66666=?
Du könntest natürlich auch hier mal nachkucken
..oder hier..
..oder bei .. nö, bei Obi sicher nicht
Ich hab gestern noch einen einfachen Plotter gefunden: Code: | Const Modus=18, Breite=320, Hoehe=200, Rot=4, Weiss = 15, Pi=4*Atn(1), Pi2=2*Pi
Dim As Integer x, y
Screen Modus
For x = 1 To Breite
y = Int(Sin((-x * Pi2) / Breite) * Hoehe / 3 + Hoehe / 2)
PSet (x, y), Rot
Next
Locate 25, 30
?"Fertig...";
Sleep
End | vllt. hilft er dir ja..
Gruß
ytwinky _________________
v1ctor hat Folgendes geschrieben: | Yeah, i like INPUT$(n) as much as PRINT USING.. | ..also ungefähr so, wie ich GOTO.. |
|
Nach oben |
|
 |
Christoph
Anmeldungsdatum: 07.04.2006 Beiträge: 108 Wohnort: NRW, Rietberg
|
Verfasst am: 21.08.2007, 16:17 Titel: |
|
|
Der Code ist auch nicht schlecht...
Muss ich mal ein wenig testen, der macht mir schon nen einfacheren Eindruck als deiner^^
Aber noch nicht ganz so ausgereift, die Anzeige ist teilweise etwas seltsam... |
|
Nach oben |
|
 |
|
|
Du kannst keine Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum nicht antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|