IF INT(x) = y ... -> .F. ? [erledigt]

[AUGE_OHR]

hi,

ich hatte doch die Berechnung für den ZZP. http://www.xbaseforum.de/viewtopic.php?f=7&t=7920

Die zweiten Formel war nun eine Gegenprobe zur ersten Formel.
ich habe also die Werte per Parameter übergeben und komme auch auf das gewünschte Ergebnis.

Nun kann ein COS() ja von -1 bis +1 gehen und bei einem Kreis wäre bei 180° der "Wendepunkt" (?)
Ich wollte das nun abfangen mit der Zeile

Code: Alles auswählen

IF INT(n) = 180

aber da bekomme ich nur .F. ???

Code: Alles auswählen

PROC Do_More(XX,RR,LL,aa,oPS)
LOCAL x
LOCAL y
LOCAL z
LOCAL n

   y := RR**2
   y += (LL + RR - XX)**2
   y -= LL**2

   z := 2*RR
   z *= (RR + LL - XX)

   x := (y/z)     // von +1 bis -1
   GraSetColor( oPS, GraMakeRGBColor({1,aa,aa}) )
   GraMarker( oPS, {aa, (x*100)+100 } )

   n := RtoD( Acos(x) )  // Radiant in Grad

   IF INT(n) = 180   // müsste doch gehen !!!
*  IF aa = 180       // Zähler wurde als Parameter übergeben -> OK
*  IF n > 179.6      // hm ... das würde gehen
      n180 := .T.
   ENDIF

   IF n180 = .T.
      x := 360 - n
   ELSE
      x := n
   ENDIF

   GraSetColor( oPS, GraMakeRGBColor({aa,aa,1}) )
   GraMarker( oPS, {aa, (x) } )

RETURN

[brandelh]

das dürfte das übliche Problem sein, 180° in DOUBLE Fließkommazahl ist halt selten exact 180° ...
Lösung, vergleichen mit Round() oder String oder > 179.9999 and < 180.0001 oder so !

[Herbert]

Nein, Hubert hier ist dies nicht der Fall. Obwohl nicht alle Variablentypen klar sind.

Int() ist das Problem. Int schneidet simpel die Nachkommastellen weg.
179.899 ergibt also 179 und nicht 180. Du musst also tatsächlich auf einen Grenzwert prüfen.

[Tom]

@Herbert: Richtig. Oder runden und Int() verwenden.

[AUGE_OHR]

hi,

Ja ... ich habe bei INT() einen Denkfehler gemacht.

Code: Alles auswählen

IF ROUND(n,0) = 180

wäre die richtige Lösung.

[brandelh]

Du musst halt wissen, ob 179,500° bis 180,499° für deine Zwecke genau genug ist um es als 180° anzusehen, immerhin ist das 1°
Ein Maschienenbauer wird sich die Hände über dem Kopf zusammenschlagen, ein Maurer sagt wunderbar genau

[AUGE_OHR]

hi,

ich übergebe ja das Ergebnis in die 2th. Formel und habe in der 1st. Formel INT von 1° - 360° vorgegeben.
es wäre also ähnlich wie

Code: Alles auswählen

ROUND((10/3)*3, 0) = 10

[brandelh]

Hallo Jimmy,

ich hatte im Hinterkopf, dass es um das geht ...

für die Einstellung des ZZP ( Zünd-Zeit-Punkt) wird der Wert in ° ( Grad ) vor OT angegeben.
nun zeigt mein Totpunktfinder in 1/10 mm an und ich müsste es nach dieser Formel umrechnen

und wollte nur sagen, dass du beachten musst ob die Genauigkeit ausreicht.

Ich gebe zu nicht alle Code-Beispiele durchexerziert zu haben, wenn du nur eine COS() Linie am Monitor darstellen willst, reichen 1° Schritte genauso wie bei meinen gedrehten Schriften
Ich war mir nur nicht sicher ob dein Programm Berechnungen für ... erstellen soll und für das Motormanagement wären 1° Schritte wohl zu ungenau.

Daher mein Einwand, dass du wissen (oder prüfen) musst, ob die Genauigkeit reicht.

[AUGE_OHR]

Ich war mir nur nicht sicher ob dein Programm Berechnungen für ... erstellen soll und für das Motormanagement wären 1° Schritte wohl zu ungenau.

dazu muss ich sagen das es sich um ein altes Motorrad mit Kontakt-Zündung handelt wo man eh nur +- 1° genau einstellen kann.

Das ganz sollte zur Kontrolle dienen, weil beim Umbau der Anlasser-Kranz mit den Zündmarkierungen falsch eingebaut wurde.
Ich habe also den OT per "Ess-Stäbchen" Methode eingestellt und die statische Vorzündung "pi-mal-Daumen" 1 1/2 Zähne (7°)vor OT eingestellt.

OT_7_10.jpg (95.33 KiB) 3910 mal betrachtet

während ich in der Nähe des OT nicht vernünftig messen kann kann ich 0.3mm - 0.6mm (7°-10°) durchaus bestimmen.