Beiträge von Mars

**Mars**

Mein Ansatz war die Folge rückwärts zu berechnen (da gibt es wenigstens nur 1 bis 2 mögliche Lösungen pro Schritt).

Code

1 -> 2 -> 4 -> 8 -> 16 -> 5 -> 10 -> 20 -> 40 -> 13 -> 26 -> 52 -> 17 -> 34 -> 11 -> 22 -> 7 -> 14 -> 28 -> 56 -> 112 -> 37 -> 74 -> 148 -> 49 -> 98 -> 196 -> 65 -> 130 -> 43 -> 86 -> 172 -> 344 -> 688 -> 229 -> 458 -> 916 -> 305 -> 610 -> 203 -> 406 -> 812 -> 1624 -> 541 -> 1082 -> 2164 -> 721 -> 1442 -> 2884 -> 961 -> 1922 -> 3844 -> 7688 -> 15376 -> 5125 -> 10250 -> 20500 -> 6833 -> 13666 -> 4555 -> 9110 -> 18220 -> 6073 -> 12146 -> 24292 -> 48584 -> 97168 -> 32389 -> 64778 -> 129556 -> 259112 -> 518224 -> 172741 -> 345482 -> 690964 -> 230321 -> 460642 -> 153547 -> 307094 -> 614188 -> 1228376

Allerdings ist das nicht wirklich die längste Folge unter 1 Mio^^

AutoIt

Global $m = 1


For $i = 0 To 99 Step 1
	ConsoleWrite($m)
	$m = (IsInt(F2($m)) And Not IsInt(F2($m) / 2) And F2($m) <> 1 And Not IsInt(F2($m) / 3)) ? F2($m) : F1($m)
	If $m > 1e6 Then
		ConsoleWrite(' -> ' & $m & @CRLF)
		ExitLoop
	EndIf
	ConsoleWrite(' -> ')
Next


Func F1($n)
	Return 2 * $n
EndFunc


Func F2($n)
	Return ($n - 1) / 3
EndFunc

Alles anzeigen

lg
M

**Mars**

Apropos: Arraymukke geht hier ebenfalls
(Gegen das Knacken muss man noch etwas erfinden... aber das Prinzip funktioniert einwandfrei)

2,5kHz|Gain=14|_Sin($x,StringSplit('73 00 68 69 71 00 69 68 66 00 66 69 73 00 71 69 68 00 68 69 71 00 73 00 69 00 66 00 66 00 00 00', ' ', 2)[Mod(Int($x/500),31)])

Edit:
Klassiker: Wir dämpfen zwischen den Noten einfach mit einem Abs(Sin(...)). (Die Wurzel ist damit die Dämpfung etwas "rechteckiger" wird.)
_Sin($x,StringSplit('73 00 68 69 71 00 69 68 66 00 66 69 73 00 71 69 68 00 68 69 71 00 73 00 69 00 66 00 66 00 00 00', ' ', 2)[Mod(Int($x/500),31)])*Abs(Sin(0.00628318*$x))^0.5

Edit2:
Man kann es mit der Arraymusik natürlich auch überteiben... Weil der Text so lang ist musste ich die Box vergrößern. Dann Gibts noch einen Wrapper für StringSplit (via Local Static -> weniger Rechenaufwand). Das hier angeheftete ist aber nur zum Ausprobieren. Die Version aus dem Startpost bleibt die aktuelle.

Spoiler anzeigen

AutoIt

; +++++ Wissenswertes +++++


; Funktionen:
; $x - Position innerhalb der WAV. Die funktion die man ins Feld eingibt f($x) berechnet die Amplitute (signed 16Bit Wert) zum Zeitpunkt des Samples
;    | Bei z.B. 8000 kHz werden 8000 Werte pro Sekunde berechnet und der Lautsprecher entsprechend bewegt. Man kann ihm also 8000 Mal pro Sekunde
;    | eine neue Position zwischen -(2^15-1) und 2^15-1 zuweisen. Töne ergeben sich durch wiederholtes neupositionieren. Frequenzen haben NICHTS mit der
;    | Ampliture zu tun die die Funktion berechnet, sondern mit der Periodizität der Funktion.
; $z - Läuft von 0 (Beginn des Sounds) bis 1 (Ende des Sounds)
; $p - Kreiszahl PI (braucht man villeicht für irgendwas)


; Allgemein können alle buildIn AutoIt Funktionen benutzt werden, da Execute benutzt wird bitte ich darum keinen Unfug zu treiben. Man kann sich auch
; eigene Funktionen schreiben die benutzt werden können. z.B. _Sin($x, $Ton) gibt bei $Ton = 58 den Kammerton A ohne Abhängigkeit der Samplingrate.


; Capsize
; - Verhindert Knacken der Lautsprecher beim ein- und Ausschalten des Tons


; Gain (2^x)
; - Töne werden als Signed 16Bit Werte gespeichert. Ein Sinus z.B. geht nur von -1 bis 1.
; | Mit einem Gain von 15 geht er von 2^15-1 bis 2^15
; - Ist oft nutzlos, wenn Töne via Überlauf erzeugt werden, z.B.


; Farbe der Ladebalken:
; Hellblau	- Musik wird abgespielt
; Lila		- Musik wird generiert
; Orange	- Grafischer Krimskrams wird erzeugt


; AMP = Amplitude = Lautstärke
; - Die Anzeige gibt einen Überblick über die Lautstärke des Sounds
; - Da nur ein Bruchteil der Samples analysiert wird ist die Anzeige nicht besonders genau.
; - Angezeigt werden 2 Kurven. Mittelwert + Stdandardabweichung und Mittelwert - Standardabweichung
; - Die Anzeige ist Logarithmisch


; 06.Mai.15 - SoundEdit von Mars@AutoIt.de


; Sammlung von Sounds
;  kHZ | Gain | Func
; 18.0 |  08  | Mod(BitAnd(42,($x/2^10)),$ZZZ)*$x ; $ZZZ kann variiert werden um verschiedene Melodien zu erhalten
;
;~ (_Sin($x,_a('73 00 68 69 71 00 69 68 66 00 66 69 73 00 71 69 68 00 68 69 71 00 73 00 69 00 66 00 66 00 00 00',Mod(Int($x/500),31)))+
;~ _Sin($x,_a('73 00 68 69 71 00 69 68 66 00 66 69 73 00 71 69 68 00 68 69 71 00 73 00 69 00 66 00 66 00 00 00',Mod(Int($x/500),31))-5))*Abs(Sin(0.00628318*$x))^0.5


;~ (_Sin($x,a('73 00 68 69 71 00 69 68 66 00 66 69 73 00 71 69 68 00 68 69 71 00 73 00 69 00 66 00 66 00 00 00',Mod(Int($x/500),31)))+
;~ 1/4*_Sin($x,a('73 00 68 69 71 00 69 68 66 00 66 69 73 00 71 69 68 00 68 69 71 00 73 00 69 00 66 00 66 00 00 00',Mod(Int($x/500),31))-5))*Abs(Sin(0.00628318*$x))^0.5


#cs Tetris: Wir gehen überall um 12 runter !
; 12 kHz
; Dämpfung 1/4 Takt: Abs(Sin(0.001309*$x))^0.5
; Dämpfung 1/2 Takt: Abs(Sin(0.0006545*$x))^0.5


Obertöne:	00  C9  C9  00  00  A#8 A#8 00  00  F8  F8  00  00  C9  C9  00  00  G8  G8  00  00  A#8 A#8 00  00  G#8 G#8 00  00  F8  F8  00
  Dez       00  97  97  00  00  95  95  00  00  90  90  00  00  97  97  00  00  92  92  00  00  95  95  00  00  93  93  00  00  90  90  00
_Sin($x,_a('00 97 97 00 00 95 95 00 00 90 90 00 00 97 97 00 00 92 92 00 00 95 95 00 00 93 93 00 00 90 90 00',Mod(Int($x/2400),32)))


Mitteltöne:	00  C7  00  00  00  A#6 00  00  00  F6  00  00  00  C7  00  00  00  G6  00  00  00  A#6 00  C7  00  G#6 00  F6  00  F6  00  00
  Dez		00  73  00  00  00  71  00  00  00  66  00  00  00  73  00  00  00  68  00  00  00  71  00  73  00  69  00  66  00  66  00  00
_Sin($x,_a('00 73 00 00 00 71 00 00 00 66 00 00 00 73 00 00 00 68 00 00 00 71 00 73 00 69 00 66 00 66 00 00',Mod(Int($x/2400),32)))


Melodie:	73  00  68  69  71  00  69  68  66  00  66  69  73  00  71  69  68  00  68  69  71  00  73  00  69  00  66  00  66  00  00  00
  Dez		61  00  56  57  59  00  57  56  54  00  54  57  61  00  59  57  56  00  56  57  59  00  61  00  57  00  54  00  54  00  00  00
_Sin($x,_a('61 00 56 57 59 00 57 56 54 00 54 57 61 00 59 57 56 00 56 57 59 00 61 00 57 00 54 00 54 00 00 00',Mod(Int($x/2400),32)))


Untertöne:	C4  C4  00  00  A#3 A#3 00  00  F3  F3  00  00  C4  C4  00  00  G3  G3  00  00  A#3 A#3 C4  C4  G#3 G#3 F3  F3  F3  F3  00  00
  Dez		37  37  00  00  35  35  00  00  30  30  00  00  37  37  00  00  32  32  00  00  35  35  37  37  33  33  30  30  30  30  00  00
_Sin($x,_a('37 37 00 00 35 35 00 00 30 30 00 00 37 37 00 00 32 32 00 00 35 35 37 37 33 33 30 30 30 30 00 00',Mod(Int($x/2400),32)))


Tieftöne:	00      C3      00      A#2     00      F2      00      C3      00      G2      00      A#2     00      G#2     00      00
  Dez       00      25      00      23      00      18      00      25      00      20      00      23      00      21      00      00
  _SSin($x,_a('00 25 00 23 00 18 00 25 00 20 00 23 00 21 00 00',Mod(Int($x/4800),16)))*Abs(Sin(0.0006545*$x))^0.5
#ce


;~ C6 = 73
;~ 00
;~ G5
;~ G#5
;~ A#5 = 71
;~ 00
;~ G#5 = 69
;~ G5 = 68
;~ F5 = 66
;~ 00
;~ F5
;~ G#5
;~ C6
;~ 00
;~ A#5
;~ G#5
;~ G5
;~ 00
;~ G5
;~ G#5
;~ A#5
;~ 00
;~ C6
;~ 00
;~ G#5
;~ 00
;~ F5
;~ 00
;~ F5


#include <GDIPlus.au3>


Opt('GUIOnEventMode', 1)


Global $bExit = False
Global $iW = 512, $iH = 330


Global $iGFXh = 155
Global $iLadebalkenH = 16


Global $iPlayTimer = 0, $iPlayTimerMax = 0
Global $hWav
Global $iSamplingRate
Global $iBkColGFX = 0xFFE0E0E0
Global $iBkColGUI = 0xFFEEEEEE


Global $hGUI = GUICreate('SoundEdit', $iW, $iH + $iGFXh + $iLadebalkenH)
GUISetBkColor(BitAND($iBkColGUI, 0xFFFFFF), $hGUI)


GUICtrlCreateEdit('Länge ( ms )', 10, 10, 110, 20, 2049)
GUICtrlCreateEdit('Samplingrate ( Hz )', 10, 50, 110, 20, 2049)
GUICtrlCreateEdit('Capsize ( % )', 10, 90, 110, 20, 2049)
GUICtrlCreateEdit('Gain ( 2^x )', 10, 130, 110, 20, 2049)


Global $hSli_Len = GUICtrlCreateSlider(120, 10, $iW - 210, 30), $iRead_Len
Global $hSli_Sam = GUICtrlCreateSlider(120, 50, $iW -210, 30), $iRead_Sam
Global $hSli_Cap = GUICtrlCreateSlider(120, 90, $iW - 210, 30), $iRead_Cap
Global $hSli_Gai = GUICtrlCreateSlider(120, 130, $iW - 210, 30), $iRead_Gai


Global $hLab_Len = GUICtrlCreateEdit('0', $iW - 90, 10, 80, 20, 2049)
Global $hLab_Sam = GUICtrlCreateEdit('0', $iW - 90, 50, 80, 20, 2049)
Global $hLab_Cap = GUICtrlCreateEdit('0', $iW - 90, 90, 80, 20, 2049)
Global $hLab_Gai = GUICtrlCreateEdit('0', $iW - 90, 130, 80, 20, 2049)


Global $hLab_Fun = GUICtrlCreateEdit("(0.2*_SSin($x,a('00 97 97 00 00 95 95 00 00 90 90 00 00 97 97 00 00 92 92 00 00 95 95 00 00 93 93 00 00 90 90 00',Mod(Int($x/2400),32)))+0.5*_SSin($x,b('00 73 00 00 00 71 00 00 00 66 00 00 00 73 00 00 00 68 00 00 00 71 00 73 00 69 00 66 00 66 00 00',Mod(Int($x/2400),32)))+1.25*_SSin($x,c('61 00 56 57 59 00 57 56 54 00 54 57 61 00 59 57 56 00 56 57 59 00 61 00 57 00 54 00 54 00 00 00',Mod(Int($x/2400),32)))+0.25*_SSin($x,c('',Mod(Int($x/2400),32))-12)+_SSin($x,d('37 37 00 00 35 35 00 00 30 30 00 00 37 37 00 00 32 32 00 00 35 35 37 37 33 33 30 30 30 30 00 00',Mod(Int($x/2400),32))))*Abs(Sin(0.001309*$x))^0.5+1.25*_SSin($x,e('00 25 00 23 00 18 00 25 00 20 00 23 00 21 00 00',Mod(Int($x/4800),16)))*Abs(Sin(0.0006545*$x))^0.5", 10, 170, $iW - 20, 105, 1)
GUICtrlSetFont(-1, 7, 400, 0, 'Arial', 5)


;~ Global $hLab_Snd = GUICtrlCreateEdit('', 10, 230, $iW - 20, 52, 2049)
;~ GUICtrlSetFont(-1, 9, 400, 0, 'Arial', 5)


Global $hBtn_SS = GUICtrlCreateButton('Start',10, 290, 100, 30)
GUICtrlSetOnEvent(-1, '_EVENT_StartStop')


GUICtrlSetLimit($hSli_Len, 195, 0)
GUICtrlSetData($hSli_Len, 145)
GUICtrlSetLimit($hSli_Sam, 95, 0)
GUICtrlSetData($hSli_Sam, 23)
GUICtrlSetLimit($hSli_Cap, 50, 0)
GUICtrlSetData($hSli_Cap, 5)
GUICtrlSetLimit($hSli_Gai, 15, 0)
GUICtrlSetData($hSli_Gai, 12)


_GDIPlus_Startup()
Global $hGFX = _GDIPlus_GraphicsCreateFromHWND($hGUI)
Global $hBMP = _GDIPlus_BitmapCreateFromGraphics($iW, $iGFXh + $iLadebalkenH, $hGFX)
Global $hBUF = _GDIPlus_ImageGetGraphicsContext($hBMP)
Global $hBRU_BkColGFX = _GDIPlus_BrushCreateSolid($iBkColGFX)
Global $hBRU_BkColGUI = _GDIPlus_BrushCreateSolid($iBkColGUI)
Global $hBRU_VAR = _GDIPlus_BrushCreateSolid(0xFF20FF20)
Global $hBRU_WHITE = _GDIPlus_BrushCreateSolid(0x40FFFFFF)
Global $hPEN_VAR = _GDIPlus_PenCreate(0xFF000000, 1)
Global $hPEN_BLACK = _GDIPlus_PenCreate(0x80FFFFFF, 1)
Global $hBRU_LINVAR = _GDIPlus_LineBrushCreate(0, $iGFXh, 0, $iGFXh+$iLadebalkenH, 0xFF000000, 0xFFE0E0E0)


_GDIPlus_GraphicsClear($hBUF, $iBkColGFX)
_GFX_Neuzeichnen()


GUIRegisterMsg(0xF, 'WM_PAINT')
OnAutoItExitRegister('_Freigeben')
GUISetState(@SW_SHOW, $hGUI)
GUISetOnEvent(-3, '_Exit', $hGUI)


While Sleep(10) And Not $bExit


	_GUI_Slider($hSli_Gai, $hLab_Gai, CalcCap, $iRead_Gai)
	_GUI_Slider($hSli_Len, $hLab_Len, CalcLen, $iRead_Len)
	_GUI_Slider($hSli_Sam, $hLab_Sam, CalcSam, $iRead_Sam)
	_GUI_Slider($hSli_Cap, $hLab_Cap, CalcCap, $iRead_Cap)


	If Not $iPlayTimer = 0 Then
		If TimerDiff($iPlayTimer) <= $iPlayTimerMax Then
			_GFX_Ladebalken(TimerDiff($iPlayTimer)/$iPlayTimerMax, 0xFF41AFEB)
		Else
			_Play_Stop()
		EndIf
	EndIf


WEnd


Func _Play_Stop()
	_WAV_Stop()
	GUICtrlSetData($hBtn_SS, 'Start')
	$iPlayTimerMax = 0
	$iPlayTimer = 0
	_GFX_Ladebalken(0)
EndFunc


Func _EVENT_StartStop()
	$iPlayTimerMax = CalcLen($iRead_Len)
	If Not $iPlayTimer = 0 Then
		_Play_Stop()
	Else
		GUICtrlSetData($hBtn_SS, 'Stop')
		RenderSnd()
		_WAV_Play($hWav)
		$iPlayTimer = TimerInit()
	EndIf
EndFunc


Func RenderSnd()


	Local $iLen = Int(CalcLen($iRead_Len))
	Local $sFunc = GUICtrlRead($hLab_Fun)
	Local $iCapSize = Int(CalcCap($iRead_Cap))
	Local $iGain = 2^Int(CalcCap($iRead_Gai))
	$iGain -= ($iGain = 2^15)*1


	; Sollte (noch) global sein
	$iSamplingRate = Int(CalcSam($iRead_Sam))
	$hWav = _WAV_New($iLen)


	Local $p = 3.1415926536
	Local $l = $iLen/1000
	Local $z


	For $x = 1 To $hWav[2] Step 1
		$z = $x/$l/$iSamplingRate
		$hWav[0].WAVDATA(($x)) = Execute($sFunc) * $iGain
		If IsInt($x/2000) Then _GFX_Ladebalken($x/$hWav[2], 0xFFB03EEB)
	Next


	_Wav_SmoothEdge($hWav, $iCapSize)
	_GFX_Amp($hWav)
	_GFX_FFT($hWav)
	_GFX_Ladebalken(0)
	WM_PAINT()


EndFunc


Func CalcCap($i)
	Return $i
EndFunc


Func CalcLen($i)
	Return Int(($i + 5)^1.75/10)*10
EndFunc


Func CalcSam($i)
	Return Int($i * 500) + 500
EndFunc


Func _GFX_FFT(ByRef $hWav, $bEmpty = False) ; Boah, ich hab keinen Nerv hierfür
	Local $W = $iW - 20 ; Wäre in AutoIt wahrscheinlich auch zu langsam. ASM Time...
	Local $H = $iGFXh/2 - 20


	_GDIPlus_GraphicsFillRect($hBUF, 0, $H+20, $W + 20, $H + 20, $hBRU_BkColGFX)
	_GDIPlus_GraphicsDrawString($hBUF, 'FFT', 15, $H + 15 + 20)
	_GDIPlus_PenSetColor($hPEN_VAR, 0xFF000000)
	_GDIPlus_GraphicsDrawRect($hBUF, 8, $H + 28, $W + 4, $H + 4, $hPEN_VAR)


	If $bEmpty Then Return


EndFunc


Func _GFX_Amp(ByRef $hWav, $bEmpty = False) ; Lautstärke -> Log(Abs Abweichung von der Ruhelage)
	Local $W = $iW - 20, $H = $iGFXh/2 - 20


	_GDIPlus_GraphicsFillRect($hBUF, 0, 0, $W + 20, $H + 20, $hBRU_BkColGFX)
	_GDIPlus_GraphicsDrawString($hBUF, 'Amp', 15, 15)
	_GDIPlus_PenSetColor($hPEN_VAR, 0xFF000000)
	_GDIPlus_GraphicsDrawRect($hBUF, 8, 8, $W + 4, $H + 4, $hPEN_VAR)
	If $bEmpty Then Return


	; An jedem Punkt wird der Mittelwert der näheren Umgebung, sowie die Standardabweichung berechnet.
	; Anschließend wird eine Kurve für m+s und eine fr m-s gezeichnet.
	Local $iSteps = (Int(Log($hWav[2]) * 6) + 10), $iWidth = Int(($hWav[2]/$iSteps)^0.6), $iPos, $iMid, $iStdAbw, $aPoints1[$iSteps+1][2]=[[$iSteps]], $aPoints2[$iSteps+1][2]=[[$iSteps]]
	$iWidth += IsInt($iWidth/2) ? 0 : 1 ; Muss gerade sein, da |x|x|x|m+-s|x|x|x


;~ 	ConsoleWrite('AMP: Steps: ' & $iSteps & ' iWidth: ' & $iWidth & ' Samples: ' & $hWav[2] & ' Cover: ' & $iSteps*$iWidth/$hWav[2]*100 & ' % ' & @CRLF)


	For $i = 0 To $iSteps - 1 Step 1 ; Deckt nur einen Bruchteil der Daten ab und versucht ein möglichst gutes Bild zu geben.
		_GFX_Ladebalken($i/($iSteps-1), 0xFFEB9A3E)
		$iPos = Int(($i + 1) / $iSteps * $hWav[2])
		$iMid = 0
		$iStdAbw = 0
		For $x = $iPos - $iWidth/2 To $iPos + $iWidth/2 Step 1
			$iMid += Abs($hWav[0].WAVDATA(($x)))
		Next
		$iMid /= $iWidth
		For $x = $iPos - $iWidth/2 To $iPos + $iWidth/2 Step 1
			$iStdAbw += (Abs($hWav[0].WAVDATA(($x))) - $iMid)^2
		Next
		$iStdAbw = ($iStdAbw/$iWidth)^0.5
		$aPoints1[$i+1][0] = 10 + $i/($iSteps-1) * $W
		$aPoints1[$i+1][1] = 10 + $H - ((1+$iMid-$iStdAbw) <= 0 ? 0 : (Log(1+$iMid-$iStdAbw)/Log(32768))) * $H
		$aPoints2[$i+1][0] = 10 + $i/($iSteps-1) * $W
		$aPoints2[$i+1][1] = 10 + $H - ((1+$iMid+$iStdAbw) <= 0 ? 0 : (Log(1+$iMid+$iStdAbw)/Log(32768))) * $H
	Next


	_GDIPlus_GraphicsSetSmoothingMode($hBUF, 2)
	_GDIPlus_PenSetColor($hPEN_VAR, 0xFFEE8020)
	_GDIPlus_GraphicsDrawCurve2($hBUF, $aPoints1, 0, $hPEN_VAR)
	_GDIPlus_PenSetColor($hPEN_VAR, 0xFFEE2080)
	_GDIPlus_GraphicsDrawCurve2($hBUF, $aPoints2, 0, $hPEN_VAR)
	_GDIPlus_GraphicsSetSmoothingMode($hBUF, 0)
	_GFX_Ladebalken(0)


EndFunc


Func _GUI_Slider($hSli, $hLab, $xCalcFunc, ByRef $iRead)
	If GUICtrlRead($hSli) <> $iRead Then
		$iRead = GUICtrlRead($hSli)
		GUICtrlSetData($hLab, $xCalcFunc($iRead))
	EndIf
EndFunc


Func _GFX_Neuzeichnen()
	Local $xTmp
	_GFX_Ladebalken(0)
	_GFX_Amp($xTmp, True)
	_GFX_FFT($xTmp, True)
EndFunc


Func _WAV_Play(ByRef $hWav)
	DllCall('winmm.dll', 'int', 'PlaySoundA', 'ptr', $hWav[1], 'int', 0, 'int', 5)
EndFunc


Func _WAV_Stop()
	DllCall('winmm.dll', 'int', 'PlaySoundA', 'ptr', 0, 'int', 0, 'int', 0)
EndFunc


Func _WAV_New($iLen = 1000) ; Länge in Millisekunden
	Local $hWav[5] = [DllStructCreate('char RIFF [4];uint FileSize;char WAVE [4];char fmt [4];uint fmt_len;word Format;word Channels;uint Samplerate;uint Bytes;word Block;word BitPerSample;char DATA [4];uint Len;short WAVDATA[' & Round($iLen / 1000, 3) * $iSamplingRate & ']')]
	With $hWav[0]
		.RIFF = 'RIFF'
		.FileSize = 2 * Round($iLen / 1000, 3) * $iSamplingRate + 44 - 8
		.WAVE = 'WAVE'
		.fmt = 'fmt '
		.fmt_len = 16
		.Format = 1 ; PCM
		.Channels = 1
		.Samplerate = $iSamplingRate
		.Bytes = $iSamplingRate * 2
		.Block = 2
		.BitPerSample = 16
		.DATA = 'data'
		.Len = 2 * Round($iLen / 1000, 3) * $iSamplingRate
	EndWith
	$hWav[1] = DllStructGetPtr($hWav[0])
	$hWav[2] = Round($iLen / 1000, 3) * $iSamplingRate
	$hWav[3] = DllStructGetPtr($hWav[0], 'WAVDATA')
	$hWav[4] = 0
	Return $hWav ; 0 -> DllStruct, 1 -> PTR, 2 -> Anzahl Samples, 3 -> PTR Wavdata, 4 -> RenderPos Wavdata
EndFunc


Func _Sin($x, $nNote) ; _Sin($x, 58) = Kammerton A
	Return Sin($x/$iSamplingRate*2*3.14159*Freq($nNote))
EndFunc


Func _SSin($x, $nNote)
	Return 3/4*Sin($x/$iSamplingRate*2*3.14159*Freq($nNote)) + 1/4*Sin(2*$x/$iSamplingRate*2*3.14159*Freq($nNote))
EndFunc


Func Freq($nNote)
	Return 55*2^(($nNote-22)/12)
EndFunc


Func _Wav_SmoothEdge(ByRef $hWav, $iCapSize)
	For $x = 1 To $iCapSize*$iSamplingRate/100 Step 1
		If IsInt($x/1000) Then _GFX_Ladebalken($x/($iCapSize*$iSamplingRate/100), 0xFFB03EEB)
		$hWav[0].WAVDATA(($x)) = $hWav[0].WAVDATA(($x)) * ExpAnstieg($x - 1, $iCapSize*$iSamplingRate/100, 0.00005)
		$hWav[0].WAVDATA(($hWav[2] - $x + 1)) = $hWav[0].WAVDATA(($hWav[2] - $x + 1)) * ExpAnstieg($x - 1, $iCapSize*$iSamplingRate/100, 0.00005)
	Next
EndFunc


Func ExpAnstieg($iPos, $iW, $nDelta)
	Local $c = Log(1 / $nDelta - 1)
	Return 1 / (1 + (2.718282) ^ (-$iPos / (($iW - 1) / 2 / $c) + $c))
EndFunc


Func _GFX_Ladebalken($iProzent, $iCol = 0)
	If $iProzent > 0 Then
		_GDIPlus_LineBrushSetColors($hBRU_LINVAR, '0xFF' & Hex(Int(BitAND(BitShift($iCol,16), 0xFF) + 16),2) & Hex(Int(BitAND(BitShift($iCol,8), 0xFF) + 16),2) & Hex(Int(BitAND($iCol, 0xFF) + 16),2), '0xFF' & Hex(Int(BitAND(BitShift($iCol,16), 0xFF) - 16),2) & Hex(Int(BitAND(BitShift($iCol,8), 0xFF) - 16),2) & Hex(Int(BitAND($iCol, 0xFF) - 16),2))
		_GDIPlus_GraphicsFillRect($hBUF, 0, $iGFXh, $iW, $iLadebalkenH, $hBRU_BkColGUI)
		_GDIPlus_GraphicsFillRect($hBUF, 0, $iGFXh , $iW * $iProzent, $iLadebalkenH, $hBRU_LINVAR)
		_GDIPlus_GraphicsDrawRect($hBUF, 0, $iGFXh, $iW * $iProzent, $iLadebalkenH - 1, $hPEN_BLACK)
		_GDIPlus_GraphicsFillRect($hBUF, 0, $iGFXh, $iW * $iProzent, $iLadebalkenH/2, $hBRU_WHITE)
		_GDIPlus_GraphicsDrawImageRectRect($hGFX, $hBMP, 0, $iGFXh, $iW, $iLadebalkenH, 0, $iH + $iGFXh, $iW, $iLadebalkenH)
	Else
		_GDIPlus_GraphicsFillRect($hBUF, 0, $iGFXh, $iW, $iLadebalkenH, $hBRU_BkColGUI)
		_GDIPlus_GraphicsDrawImageRectRect($hGFX, $hBMP, 0, $iGFXh, $iW, $iLadebalkenH, 0, $iH + $iGFXh, $iW, $iLadebalkenH)
	EndIf
EndFunc


Func _Freigeben()
	_GDIPlus_BrushDispose($hBRU_BkColGUI)
	_GDIPlus_PenDispose($hPEN_BLACK)
	_GDIPlus_BrushDispose($hBRU_LINVAR)
	_GDIPlus_PenDispose($hPEN_VAR)
	_GDIPlus_BrushDispose($hBRU_WHITE)
	_GDIPlus_BrushDispose($hBRU_BkColGFX)
	_GDIPlus_BrushDispose($hBRU_VAR)
	_GDIPlus_GraphicsDispose($hBUF)
	_GDIPlus_BitmapDispose($hBMP)
	_GDIPlus_GraphicsDispose($hGFX)
	_GDIPlus_Shutdown()
EndFunc


Func WM_PAINT()
	_GDIPlus_GraphicsDrawImage($hGFX, $hBMP, 0, $iH)
EndFunc


Func _Exit()
	$bExit = True
EndFunc


Func a($sString, $i = 0)
	Local Static $Array = StringSplit($sString, ' ', 2)
	Return $Array[$i]
EndFunc


Func b($sString, $i = 0)
	Local Static $Array = StringSplit($sString, ' ', 2)
	Return $Array[$i]
EndFunc


Func c($sString, $i = 0)
	Local Static $Array = StringSplit($sString, ' ', 2)
	Return $Array[$i]
EndFunc


Func d($sString, $i = 0)
	Local Static $Array = StringSplit($sString, ' ', 2)
	Return $Array[$i]
EndFunc


Func e($sString, $i = 0)
	Local Static $Array = StringSplit($sString, ' ', 2)
	Return $Array[$i]
EndFunc

Alles anzeigen

**Mars**

Für die Möglichkeit beliebig lange zu spielen habe ich eine Frage, denn bevor ich die Mechanik dazu baue will ich wissen ob das klappen kann.
Kann man eine z.B. 1s lange WAV nutzen und als loop ($SND_LOOP) abspielen und hinter dem abgespielten den Inhalt verändern ?
Dann könnte man eine kleine Wav nehmen und die in Echtzeit nachfüllen. (müsste mit AutoIt bei moderaten Samplingraten machbar sein).

**Mars**

Moin,
Vor einiger Zeit habe ich eine lustige Seite zum Tönebasteln entdeckt: ByteBeat.
Diese Angelegenheit fand ich sehr schön, also habe ich ein kleines Skript gebastelt welches ähnliche Spielereien ermöglicht.
Es wird keine Javascriptsyntax unterstützt (wer hätte das gedacht), dafür aber alles was der AutoIt Interpreter zulässt

Würde mich freuen wenn einige Leute Spaß daran finden, und ggf. sogar ein kleines Lied komponieren können

AutoIt

; +++++ Wissenswertes +++++


; Funktionen:
; $x - Position innerhalb der WAV. Die funktion die man ins Feld eingibt f($x) berechnet die Amplitute (signed 16Bit Wert) zum Zeitpunkt des Samples
;    | Bei z.B. 8000 kHz werden 8000 Werte pro Sekunde berechnet und der Lautsprecher entsprechend bewegt. Man kann ihm also 8000 Mal pro Sekunde
;    | eine neue Position zwischen -(2^15-1) und 2^15-1 zuweisen. Töne ergeben sich durch wiederholtes neupositionieren. Frequenzen haben NICHTS mit der
;    | Ampliture zu tun die die Funktion berechnet, sondern mit der Periodizität der Funktion.
; $z - Läuft von 0 (Beginn des Sounds) bis 1 (Ende des Sounds)
; $p - Kreiszahl PI (braucht man villeicht für irgendwas)


; Allgemein können alle buildIn AutoIt Funktionen benutzt werden, da Execute benutzt wird bitte ich darum keinen Unfug zu treiben. Man kann sich auch
; eigene Funktionen schreiben die benutzt werden können. z.B. _Sin($x, $Ton) gibt bei $Ton = 58 den Kammerton A ohne Abhängigkeit der Samplingrate.


; Capsize
; - Verhindert Knacken der Lautsprecher beim ein- und Ausschalten des Tons


; Gain (2^x)
; - Töne werden als Signed 16Bit Werte gespeichert. Ein Sinus z.B. geht nur von -1 bis 1.
; | Mit einem Gain von 15 geht er von 2^15-1 bis 2^15
; - Ist oft nutzlos, wenn Töne via Überlauf erzeugt werden, z.B.


; Farbe der Ladebalken:
; Hellblau	- Musik wird abgespielt
; Lila		- Musik wird generiert
; Orange	- Grafischer Krimskrams wird erzeugt


; AMP = Amplitude = Lautstärke
; - Die Anzeige gibt einen Überblick über die Lautstärke des Sounds
; - Da nur ein Bruchteil der Samples analysiert wird ist die Anzeige nicht besonders genau.
; - Angezeigt werden 2 Kurven. Mittelwert + Stdandardabweichung und Mittelwert - Standardabweichung
; - Die Anzeige ist Logarithmisch


; 06.Mai.15
; SoundEdit von Mars@AutoIt.de




#include <GDIPlus.au3>


Opt('GUIOnEventMode', 1)


Global $bExit = False
Global $iW = 512, $iH = 330


Global $iGFXh = 155
Global $iLadebalkenH = 16


Global $iPlayTimer = 0, $iPlayTimerMax = 0
Global $hWav
Global $iSamplingRate
Global $iBkColGFX = 0xFFE0E0E0
Global $iBkColGUI = 0xFFEEEEEE


Global $hGUI = GUICreate('SoundEdit', $iW, $iH + $iGFXh + $iLadebalkenH)
GUISetBkColor(BitAND($iBkColGUI, 0xFFFFFF), $hGUI)


GUICtrlCreateEdit('Länge ( ms )', 10, 10, 110, 20, 2049)
GUICtrlCreateEdit('Samplingrate ( Hz )', 10, 50, 110, 20, 2049)
GUICtrlCreateEdit('Capsize ( % )', 10, 90, 110, 20, 2049)
GUICtrlCreateEdit('Gain ( 2^x )', 10, 130, 110, 20, 2049)


Global $hSli_Len = GUICtrlCreateSlider(120, 10, $iW - 210, 30), $iRead_Len
Global $hSli_Sam = GUICtrlCreateSlider(120, 50, $iW -210, 30), $iRead_Sam
Global $hSli_Cap = GUICtrlCreateSlider(120, 90, $iW - 210, 30), $iRead_Cap
Global $hSli_Gai = GUICtrlCreateSlider(120, 130, $iW - 210, 30), $iRead_Gai


Global $hLab_Len = GUICtrlCreateEdit('0', $iW - 90, 10, 80, 20, 2049)
Global $hLab_Sam = GUICtrlCreateEdit('0', $iW - 90, 50, 80, 20, 2049)
Global $hLab_Cap = GUICtrlCreateEdit('0', $iW - 90, 90, 80, 20, 2049)
Global $hLab_Gai = GUICtrlCreateEdit('0', $iW - 90, 130, 80, 20, 2049)


Global $hLab_Fun = GUICtrlCreateEdit('Mod(BitAnd(42,($x/2^10)),11)*$x', 10, 170, $iW - 20, 52, 1)
GUICtrlSetFont(-1, 9, 400, 0, 'Arial', 5)


Global $hLab_Snd = GUICtrlCreateEdit('', 10, 230, $iW - 20, 52, 2049)
GUICtrlSetFont(-1, 9, 400, 0, 'Arial', 5)


Global $hBtn_SS = GUICtrlCreateButton('Start',10, 290, 100, 30)
GUICtrlSetOnEvent(-1, '_EVENT_StartStop')


GUICtrlSetLimit($hSli_Len, 195, 0)
GUICtrlSetData($hSli_Len, 50)
GUICtrlSetLimit($hSli_Sam, 95, 0)
GUICtrlSetData($hSli_Sam, 35)
GUICtrlSetLimit($hSli_Cap, 50, 0)
GUICtrlSetData($hSli_Cap, 5)
GUICtrlSetLimit($hSli_Gai, 15, 0)
GUICtrlSetData($hSli_Gai, 8)


_GDIPlus_Startup()
Global $hGFX = _GDIPlus_GraphicsCreateFromHWND($hGUI)
Global $hBMP = _GDIPlus_BitmapCreateFromGraphics($iW, $iGFXh + $iLadebalkenH, $hGFX)
Global $hBUF = _GDIPlus_ImageGetGraphicsContext($hBMP)
Global $hBRU_BkColGFX = _GDIPlus_BrushCreateSolid($iBkColGFX)
Global $hBRU_BkColGUI = _GDIPlus_BrushCreateSolid($iBkColGUI)
Global $hBRU_VAR = _GDIPlus_BrushCreateSolid(0xFF20FF20)
Global $hBRU_WHITE = _GDIPlus_BrushCreateSolid(0x40FFFFFF)
Global $hPEN_VAR = _GDIPlus_PenCreate(0xFF000000, 1)
Global $hPEN_BLACK = _GDIPlus_PenCreate(0x80FFFFFF, 1)
Global $hBRU_LINVAR = _GDIPlus_LineBrushCreate(0, $iGFXh, 0, $iGFXh+$iLadebalkenH, 0xFF000000, 0xFFE0E0E0)


_GDIPlus_GraphicsClear($hBUF, $iBkColGFX)
_GFX_Neuzeichnen()


GUIRegisterMsg(0xF, 'WM_PAINT')
OnAutoItExitRegister('_Freigeben')
GUISetState(@SW_SHOW, $hGUI)
GUISetOnEvent(-3, '_Exit', $hGUI)


While Sleep(10) And Not $bExit


	_GUI_Slider($hSli_Gai, $hLab_Gai, CalcCap, $iRead_Gai)
	_GUI_Slider($hSli_Len, $hLab_Len, CalcLen, $iRead_Len)
	_GUI_Slider($hSli_Sam, $hLab_Sam, CalcSam, $iRead_Sam)
	_GUI_Slider($hSli_Cap, $hLab_Cap, CalcCap, $iRead_Cap)


	If Not $iPlayTimer = 0 Then
		If TimerDiff($iPlayTimer) <= $iPlayTimerMax Then
			_GFX_Ladebalken(TimerDiff($iPlayTimer)/$iPlayTimerMax, 0xFF41AFEB)
		Else
			_Play_Stop()
		EndIf
	EndIf


WEnd


Func _Play_Stop()
	_WAV_Stop()
	GUICtrlSetData($hBtn_SS, 'Start')
	$iPlayTimerMax = 0
	$iPlayTimer = 0
	_GFX_Ladebalken(0)
EndFunc


Func _EVENT_StartStop()
	$iPlayTimerMax = CalcLen($iRead_Len)
	If Not $iPlayTimer = 0 Then
		_Play_Stop()
	Else
		GUICtrlSetData($hBtn_SS, 'Stop')
		RenderSnd()
		_WAV_Play($hWav)
		$iPlayTimer = TimerInit()
	EndIf
EndFunc


Func RenderSnd()


	Local $iLen = Int(CalcLen($iRead_Len))
	Local $sFunc = GUICtrlRead($hLab_Fun)
	Local $iCapSize = Int(CalcCap($iRead_Cap))
	Local $iGain = 2^Int(CalcCap($iRead_Gai))
	$iGain -= ($iGain = 2^15)*1


	; Sollte (noch) global sein
	$iSamplingRate = Int(CalcSam($iRead_Sam))
	$hWav = _WAV_New($iLen)


	Local $p = 3.1415926536
	Local $l = $iLen/1000
	Local $z


	For $x = 1 To $hWav[2] Step 1
		$z = $x/$l/$iSamplingRate
		$hWav[0].WAVDATA(($x)) = Execute($sFunc) * $iGain
		If IsInt($x/2000) Then _GFX_Ladebalken($x/$hWav[2], 0xFFB03EEB)
	Next


	_Wav_SmoothEdge($hWav, $iCapSize)
	_GFX_Amp($hWav)
	_GFX_FFT($hWav)
	_GFX_Ladebalken(0)
	WM_PAINT()


EndFunc


Func CalcCap($i)
	Return $i
EndFunc


Func CalcLen($i)
	Return Int(($i + 5)^1.75/10)*10
EndFunc


Func CalcSam($i)
	Return Int($i * 500) + 500
EndFunc


Func _GFX_FFT(ByRef $hWav, $bEmpty = False) ; Boah, ich hab keinen Nerv hierfür
	Local $W = $iW - 20 ; Wäre in AutoIt wahrscheinlich auch zu langsam. ASM Time...
	Local $H = $iGFXh/2 - 20


	_GDIPlus_GraphicsFillRect($hBUF, 0, $H+20, $W + 20, $H + 20, $hBRU_BkColGFX)
	_GDIPlus_GraphicsDrawString($hBUF, 'FFT', 15, $H + 15 + 20)
	_GDIPlus_PenSetColor($hPEN_VAR, 0xFF000000)
	_GDIPlus_GraphicsDrawRect($hBUF, 8, $H + 28, $W + 4, $H + 4, $hPEN_VAR)


	If $bEmpty Then Return


EndFunc


Func _GFX_Amp(ByRef $hWav, $bEmpty = False) ; Lautstärke -> Log(Abs Abweichung von der Ruhelage)
	Local $W = $iW - 20, $H = $iGFXh/2 - 20


	_GDIPlus_GraphicsFillRect($hBUF, 0, 0, $W + 20, $H + 20, $hBRU_BkColGFX)
	_GDIPlus_GraphicsDrawString($hBUF, 'Amp', 15, 15)
	_GDIPlus_PenSetColor($hPEN_VAR, 0xFF000000)
	_GDIPlus_GraphicsDrawRect($hBUF, 8, 8, $W + 4, $H + 4, $hPEN_VAR)
	If $bEmpty Then Return


	; An jedem Punkt wird der Mittelwert der näheren Umgebung, sowie die Standardabweichung berechnet.
	; Anschließend wird eine Kurve für m+s und eine fr m-s gezeichnet.
	Local $iSteps = (Int(Log($hWav[2]) * 6) + 10), $iWidth = Int(($hWav[2]/$iSteps)^0.6), $iPos, $iMid, $iStdAbw, $aPoints1[$iSteps+1][2]=[[$iSteps]], $aPoints2[$iSteps+1][2]=[[$iSteps]]
	$iWidth += IsInt($iWidth/2) ? 0 : 1 ; Muss gerade sein, da |x|x|x|m+-s|x|x|x


;~ 	ConsoleWrite('AMP: Steps: ' & $iSteps & ' iWidth: ' & $iWidth & ' Samples: ' & $hWav[2] & ' Cover: ' & $iSteps*$iWidth/$hWav[2]*100 & ' % ' & @CRLF)


	For $i = 0 To $iSteps - 1 Step 1 ; Deckt nur einen Bruchteil der Daten ab und versucht ein möglichst gutes Bild zu geben.
		_GFX_Ladebalken($i/($iSteps-1), 0xFFEB9A3E)
		$iPos = Int(($i + 1/$iSteps) / $iSteps * $hWav[2])
		$iMid = 0
		$iStdAbw = 0
		For $x = $iPos - $iWidth/2 To $iPos + $iWidth/2 Step 1
			$iMid += Abs($hWav[0].WAVDATA(($x)))
		Next
		$iMid /= $iWidth
		For $x = $iPos - $iWidth/2 To $iPos + $iWidth/2 Step 1
			$iStdAbw += (Abs($hWav[0].WAVDATA(($x))) - $iMid)^2
		Next
		$iStdAbw = ($iStdAbw/$iWidth)^0.5
		$aPoints1[$i+1][0] = 10 + $i/($iSteps-1) * $W
		$aPoints1[$i+1][1] = 10 + $H - ((1+$iMid-$iStdAbw) <= 0 ? 0 : (Log(1+$iMid-$iStdAbw)/Log(32768))) * $H
		$aPoints2[$i+1][0] = 10 + $i/($iSteps-1) * $W
		$aPoints2[$i+1][1] = 10 + $H - ((1+$iMid+$iStdAbw) <= 0 ? 0 : (Log(1+$iMid+$iStdAbw)/Log(32768))) * $H
	Next


	_GDIPlus_GraphicsSetSmoothingMode($hBUF, 2)
	_GDIPlus_PenSetColor($hPEN_VAR, 0xFFEE8020)
	_GDIPlus_GraphicsDrawCurve2($hBUF, $aPoints1, 0, $hPEN_VAR)
	_GDIPlus_PenSetColor($hPEN_VAR, 0xFFEE2080)
	_GDIPlus_GraphicsDrawCurve2($hBUF, $aPoints2, 0, $hPEN_VAR)
	_GDIPlus_GraphicsSetSmoothingMode($hBUF, 0)
	_GFX_Ladebalken(0)


EndFunc


Func _GUI_Slider($hSli, $hLab, $xCalcFunc, ByRef $iRead)
	If GUICtrlRead($hSli) <> $iRead Then
		$iRead = GUICtrlRead($hSli)
		GUICtrlSetData($hLab, $xCalcFunc($iRead))
	EndIf
EndFunc


Func _GFX_Neuzeichnen()
	Local $xTmp
	_GFX_Ladebalken(0)
	_GFX_Amp($xTmp, True)
	_GFX_FFT($xTmp, True)
EndFunc


Func _WAV_Play(ByRef $hWav)
	DllCall('winmm.dll', 'int', 'PlaySoundA', 'ptr', $hWav[1], 'int', 0, 'int', 5)
EndFunc


Func _WAV_Stop()
	DllCall('winmm.dll', 'int', 'PlaySoundA', 'ptr', 0, 'int', 0, 'int', 0)
EndFunc


Func _WAV_New($iLen = 1000) ; Länge in Millisekunden
	Local $hWav[5] = [DllStructCreate('char RIFF [4];uint FileSize;char WAVE [4];char fmt [4];uint fmt_len;word Format;word Channels;uint Samplerate;uint Bytes;word Block;word BitPerSample;char DATA [4];uint Len;short WAVDATA[' & Round($iLen / 1000, 3) * $iSamplingRate & ']')]
	With $hWav[0]
		.RIFF = 'RIFF'
		.FileSize = 2 * Round($iLen / 1000, 3) * $iSamplingRate + 44 - 8
		.WAVE = 'WAVE'
		.fmt = 'fmt '
		.fmt_len = 16
		.Format = 1 ; PCM
		.Channels = 1
		.Samplerate = $iSamplingRate
		.Bytes = $iSamplingRate * 2
		.Block = 2
		.BitPerSample = 16
		.DATA = 'data'
		.Len = 2 * Round($iLen / 1000, 3) * $iSamplingRate
	EndWith
	$hWav[1] = DllStructGetPtr($hWav[0])
	$hWav[2] = Round($iLen / 1000, 3) * $iSamplingRate
	$hWav[3] = DllStructGetPtr($hWav[0], 'WAVDATA')
	$hWav[4] = 0
	Return $hWav ; 0 -> DllStruct, 1 -> PTR, 2 -> Anzahl Samples, 3 -> PTR Wavdata, 4 -> RenderPos Wavdata
EndFunc


Func _Sin($x, $nNote) ; _Sin($x, 58) = Kammerton A
	Return Sin($x/$iSamplingRate*2*3.14159*Freq($nNote))
EndFunc


Func Freq($nNote)
	Return 55*2^(($nNote-22)/12)
EndFunc


Func _Wav_SmoothEdge(ByRef $hWav, $iCapSize)
	For $x = 1 To $iCapSize*$iSamplingRate/100 Step 1
		If IsInt($x/1000) Then _GFX_Ladebalken($x/($iCapSize*$iSamplingRate/100), 0xFFB03EEB)
		$hWav[0].WAVDATA(($x)) = $hWav[0].WAVDATA(($x)) * ExpAnstieg($x - 1, $iCapSize*$iSamplingRate/100, 0.00005)
		$hWav[0].WAVDATA(($hWav[2] - $x + 1)) = $hWav[0].WAVDATA(($hWav[2] - $x + 1)) * ExpAnstieg($x - 1, $iCapSize*$iSamplingRate/100, 0.00005)
	Next
EndFunc


Func ExpAnstieg($iPos, $iW, $nDelta)
	Local $c = Log(1 / $nDelta - 1)
	Return 1 / (1 + (2.718282) ^ (-$iPos / (($iW - 1) / 2 / $c) + $c))
EndFunc


Func _GFX_Ladebalken($iProzent, $iCol = 0)
	If $iProzent > 0 Then
		_GDIPlus_LineBrushSetColors($hBRU_LINVAR, '0xFF' & Hex(Int(BitAND(BitShift($iCol,16), 0xFF) + 16),2) & Hex(Int(BitAND(BitShift($iCol,8), 0xFF) + 16),2) & Hex(Int(BitAND($iCol, 0xFF) + 16),2), '0xFF' & Hex(Int(BitAND(BitShift($iCol,16), 0xFF) - 16),2) & Hex(Int(BitAND(BitShift($iCol,8), 0xFF) - 16),2) & Hex(Int(BitAND($iCol, 0xFF) - 16),2))
		_GDIPlus_GraphicsFillRect($hBUF, 0, $iGFXh, $iW, $iLadebalkenH, $hBRU_BkColGUI)
		_GDIPlus_GraphicsFillRect($hBUF, 0, $iGFXh , $iW * $iProzent, $iLadebalkenH, $hBRU_LINVAR)
		_GDIPlus_GraphicsDrawRect($hBUF, 0, $iGFXh, $iW * $iProzent, $iLadebalkenH - 1, $hPEN_BLACK)
		_GDIPlus_GraphicsFillRect($hBUF, 0, $iGFXh, $iW * $iProzent, $iLadebalkenH/2, $hBRU_WHITE)
		_GDIPlus_GraphicsDrawImageRectRect($hGFX, $hBMP, 0, $iGFXh, $iW, $iLadebalkenH, 0, $iH + $iGFXh, $iW, $iLadebalkenH)
	Else
		_GDIPlus_GraphicsFillRect($hBUF, 0, $iGFXh, $iW, $iLadebalkenH, $hBRU_BkColGUI)
		_GDIPlus_GraphicsDrawImageRectRect($hGFX, $hBMP, 0, $iGFXh, $iW, $iLadebalkenH, 0, $iH + $iGFXh, $iW, $iLadebalkenH)
	EndIf
EndFunc


Func _Freigeben()
	_GDIPlus_BrushDispose($hBRU_BkColGUI)
	_GDIPlus_PenDispose($hPEN_BLACK)
	_GDIPlus_BrushDispose($hBRU_LINVAR)
	_GDIPlus_PenDispose($hPEN_VAR)
	_GDIPlus_BrushDispose($hBRU_WHITE)
	_GDIPlus_BrushDispose($hBRU_BkColGFX)
	_GDIPlus_BrushDispose($hBRU_VAR)
	_GDIPlus_GraphicsDispose($hBUF)
	_GDIPlus_BitmapDispose($hBMP)
	_GDIPlus_GraphicsDispose($hGFX)
	_GDIPlus_Shutdown()
EndFunc


Func WM_PAINT()
	_GDIPlus_GraphicsDrawImage($hGFX, $hBMP, 0, $iH)
EndFunc


Func _Exit()
	$bExit = True
EndFunc

Alles anzeigen

Hab den Editor jetzt intern etwas aufgeräumt und den Gain als neue Einstellung hinzugefügt. (In Bezug auf die Version die ich mal in der SB gepostet habe)

lg
M

**Mars**

Thema ist damit gelöst.

[autoit][/autoit][autoit][/autoit][autoit]

Global $e = 2.71828182846
Global $pi = 3.14159265359
Global $ap = 1.20205690316

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Local $1 = FareyApprox($e, 255)
Local $2 = FareyApprox($pi, 255)
Local $3 = FareyApprox($ap, 255)

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

ConsoleWrite('e : ' & $1[0] & '/' & $1[1] & ' Err: ' & $1[0]/$1[1] - $e & @CRLF)
ConsoleWrite('pi : ' & $2[0] & '/' & $2[1] & ' Err: ' & $2[0]/$2[1] - $pi & @CRLF)
ConsoleWrite('ap : ' & $3[0] & '/' & $3[1] & ' Err: ' & $3[0]/$3[1] - $ap & @CRLF)

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Func FareyApprox($x, $N)
If $x > 1 Then
Local $t = FareyApprox(1 / $x, $N)
Return Array($t[1], $t[0])
EndIf
Local $a = 0, $b = 1, $c = 1, $d = 1, $m
While ($b <= $N And $d <= $N)
$m = ($a + $c) / ($b + $d)
If $x = $m Then
Return $b + $d <= $N ? Array($a + $c, $b + $d) : $d > $b ? Array($c, $d) : Array($a, $b)
ElseIf $x > $m Then
$a += $c
$b += $d
Else
$c += $a
$d += $b
EndIf
WEnd
Return $b > $N ? Array($c, $d) : Array($a, $b)
EndFunc

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Func Array($x1, $x2) ; Keiner weiß warum es das nicht nativ in AutoIt gibt... ein Mysterium
Local $aRet[2] = [$x1, $x2]
Return $aRet
EndFunc

[/autoit]

**Mars**

Der Plan wäre also eine Sammlung von allem kürzlichen (also wichtiges was erst nach dem Update ins Forum kam) -> Umzug auf 3.1 -> Integrieren der "verlorenen" Sachen -> Problem solved.
Wird auf jedenfall ein Knochenjob, aber es wird wahrscheinlich einfacher als den Unfug hier jedes Mal wieder aufzuräumen.

**Mars**

Zitat von Andy

zum "ganz alten" Forum

^ +1

**Mars**

Moin,
Ich suche eine effizientere Methode als Brute Force. Mein Skript funktioniert zwar, aber für große Zahlen ist BF zu langsam...

Edit: Der Code wurde zerschossen. Da er aber sowieso überholt ist versuche ich nicht ihn zu rekonstruieren. Die Lösung ist in Post 4.

lg
M

**Mars**

Das mit den verlorenen Dateianhängen ist nicht nur deshalb ärgerlich, weil man die Kopie auf dem eigenen Rechner erst suchen muss, sondern auch weil man unzählige Threads hat in denen man etwas hochgeladen hat. Ich habe das auch schon bemerkt, habe aber keine Lust bei 100+ Threads neue Anhänge hochzuladen.

**Mars**

Nur als Info:
Hab vor geraumer Zeit eine ArrayToStringExUDF geschrieben. Die sollte 1D und 2D Arrays mit beliebigem Inhalt in Text und umgekehrt verwandeln können. Und zwar OHNE Split Zeichen und damit MIT vollem Asc Umfang. (Da es keinen Seperator gibt können im Array beliebige Zeichen auftreten ohne das es Probleme gibt).

Spoiler anzeigen

[autoit]

#include-once
;~ #include 'StringPop.au3'