CutVal(Min, Max, Val) (Makrospielerei ^^)

[cxAlex]

Ganz netter, einfacher Code, einfach ne Zahl zwischen einen minimal und einen Maximalwert begrenzen:

PS:

Hier gings mir eigentlich nur darum das ohne If zu probieren, praktischer Nutzen ist eher wenig vorhanden .

Code: Alles auswählen

Macro CutVal(Min, Max, Val)
  ((Val>Max) Or 0)*Max + ((Val<Min) Or 0)*Min + (((Val> = Min) And (Val< = Max)) Or 0)*Val
EndMacro

Procedure CutVal2(Min, Max, Val)
  Protected RtVar
  If Val>Max
    RtVar = Max
  ElseIf Val<Min
    RtVar = Min
  Else
    RtVar = Val
  EndIf
  ProcedureReturn RtVar
EndProcedure

[Kaeru Gaman]

oh ja... das berühmt-berüchtigte "boolcast" workaround...

[PMTheQuick]

Hier ne Minifunktion fürs berechnen der Differenz von 2 Zahlen. Die Macrovariante ist dabei schneller

Code: Alles auswählen

Macro DifVar(Z1, Z2)
  ((Z1>Z2)*Z1)+((Z2>Z1)*Z2)-(((Z2>Z1)*Z1)+((Z1>Z2)*Z2))
EndMacro

Procedure DifVarProc(Z1, Z2)
  If Z1>Z2
    ProcedureReturn Z1-Z2
  Else
    ProcedureReturn Z2-Z1
  EndIf
EndProcedure

ST = GetTickCount_()
For i = 1 To 100000
  s = DifVar(20, 10)
  s = DifVar(5, 15)
Next i
Debug "Zeit: "+Str(GetTickCount_()-ST)+"ms"
Debug "Resultate: "
Debug DifVar(20, 10)
Debug DifVar(5, 15)

Debug ""

ST = GetTickCount_()
For i = 1 To 100000
  s = DifVarProc(20, 10)
  s = DifVarProc(5, 15)
Next i
Debug "Zeit: "+Str(GetTickCount_()-ST)+"ms"
Debug "Resultate: "
Debug DifVarProc(20, 10)
Debug DifVarProc(5, 15)

Zeit: 16ms
Resultate:
10
10

Zeit: 62ms
Resultate:
10
10

Gruss PMTheQuick

[Kaeru Gaman]

ach PM...

1. Performance-Tests mit Debugger bringen nix.

2. aussagekräftig wird das erst bei dementsprechender Länge, d.h. einem Vielfachen einer Timeslice also bei mehreren Sekunden...


3. warum nicht einfach:

Code: Alles auswählen

z1.l = Random($FFFFFF)
z2.l = Random($FFFFFF)

z3.l = Abs( z1 - z2 )

Debug z1
Debug z2
Debug z3

Hintergrund:
Abs() ist zwar nur für Floats geeignet, aber da ein Ausdruck übergeben wird, wird der auf Float gecastet.
man muss hier nur drauf achten, dass die Differenz auch in eine Float reinpasst.

[cxAlex]

oh ja... das berühmt-berüchtigte "boolcast" workaround...

^^. Solange das mit Or 0 geht brauch ich keine native Boolsche Logik.

[PMTheQuick]

Code: Alles auswählen

z1.l = Random($FFFFFF)
z2.l = Random($FFFFFF)

z3.l = Abs( z1 - z2 )

Debug z1
Debug z2
Debug z3

[/code]

Diese Lösung wäre ja viiieeeel zu einfach Zudem ist das hier viel schöner anzusehen im Code: (besser lesbar)

Code: Alles auswählen

Macro DifVar(Z1, Z2)
  ((Z1>Z2)*Z1)+((Z2>Z1)*Z2)-(((Z2>Z1)*Z1)+((Z1>Z2)*Z2))
EndMacro 

*gg* ne Scherz... War gedacht, mal als erstes mal etwas mit so ner öhm naja halt mit dieser Weise ne Prozedur zu bauen...

Gruss
PMTheQuick

[DarkDragon]

Btw in anderen Programmiersprachen kennt man deine Funktion ("CutVal") unter dem Namen clamp(value, min, max).

[Kaeru Gaman]

Btw in anderen Programmiersprachen kennt man deine Funktion ("CutVal") unter dem Namen clamp(value, min, max).

... und was macht dann die Funktion Ratchet() ...?