Alle Möglichkeiten durchgehen

Übersicht

BlitzBasic

Allgemein

	fliege Betreff: Alle Möglichkeiten durchgehen	Mi, Jun 22, 2005 6:52 Antworten mit Zitat
Wie könnte man das anstellen: Ich habe ein Image, 100x100 Pixel groß und möchte es mit schwarzen und weißen Punkten bemalen. Das möglichst in allen Kombinationen. Danach speicher ich das Bild und mache ein neues. ------------------------------------------------------------------------------------- Bild erstellen, speichern und ein neues machen, kein Problem Aber wie könnte ich alle Kombinationen durchgehen? Fliege
Wer weiß was kommt.. ?

fliege

Betreff: Alle Möglichkeiten durchgehen

Mi, Jun 22, 2005 6:52
Antworten mit Zitat

Wie könnte man das anstellen:
Ich habe ein Image, 100x100 Pixel groß und möchte es mit schwarzen und weißen Punkten bemalen. Das möglichst in allen Kombinationen. Danach speicher ich das Bild und mache ein neues.
-------------------------------------------------------------------------------------
Bild erstellen, speichern und ein neues machen, kein Problem
Aber wie könnte ich alle Kombinationen durchgehen?

Fliege

Wer weiß was kommt.. ?

	Ornos	Mi, Jun 22, 2005 10:02 Antworten mit Zitat
beschreib mal genauer. willst du ein programm schreiben, was per zufall bilder mit punkten bemalt?
Projekt: Dash Off & DO - Times Status: a0.6 & b0.7 http://www.dashoff.de.vu

Ornos

Mi, Jun 22, 2005 10:02
Antworten mit Zitat

beschreib mal genauer.
willst du ein programm schreiben, was per zufall bilder mit punkten bemalt?

Projekt: Dash Off & DO - Times
Status: a0.6 & b0.7
http://www.dashoff.de.vu

	BladeRunner Moderator	Mi, Jun 22, 2005 12:13 Antworten mit Zitat
gar nicht, denn du versuchst 2 ^ 100.000 Kombinationen zu zeichnen, damit ist dein Rechner bis zum jüngsten Gericht beschäftigt. (mal ab vom HDD-Platz der benötigt würde).
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mi, Jun 22, 2005 12:13
Antworten mit Zitat

gar nicht, denn du versuchst 2 ^ 100.000 Kombinationen zu zeichnen, damit ist dein Rechner bis zum jüngsten Gericht beschäftigt.
(mal ab vom HDD-Platz der benötigt würde).

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Xaron	Mi, Jun 22, 2005 12:29 Antworten mit Zitat
BladeRunner hat Folgendes geschrieben: gar nicht, denn du versuchst 2 ^ 100.000 Kombinationen zu zeichnen... Oder anders ausgedrückt: Du versuchst, deutlich mehr Bilder zu erzeugen, als es Atome im Universum gibt. Gruß - Xaron
Cerberus X - Monkey X Reloaded!

Xaron

Mi, Jun 22, 2005 12:29
Antworten mit Zitat

BladeRunner hat Folgendes geschrieben:

gar nicht, denn du versuchst 2 ^ 100.000 Kombinationen zu zeichnen...

Oder anders ausgedrückt: Du versuchst, deutlich mehr Bilder zu erzeugen, als es Atome im Universum gibt. Wink

Gruß - Xaron

Cerberus X - Monkey X Reloaded!

	hitokiri	Mi, Jun 22, 2005 13:53 Antworten mit Zitat
Ich weiss ja nun nicht genau was du damit bezwecken willst, aber ich würde mal annehmen, dass du dadurch objekte erzeugen willst. wenn dem so ist kannst du manches von vorne herein ausschliessen. was du willst ist ein modifiziertes "brute force". du kannst von vorneherein zum beispiel mindestens schon einmal 202 möglichkeiten ausschliessen, ein einzelner punkt schwarz/weiss und der rest das gegenteil, alles schwarz, alles weiss...sogar eine ganze menge mehr, wenn du umrisse/formen von objekten approximieren willst.

hitokiri

Mi, Jun 22, 2005 13:53
Antworten mit Zitat

Ich weiss ja nun nicht genau was du damit bezwecken willst, aber ich würde mal annehmen, dass du dadurch objekte erzeugen willst. wenn dem so ist kannst du manches von vorne herein ausschliessen. was du willst ist ein modifiziertes "brute force". du kannst von vorneherein zum beispiel mindestens schon einmal 202 möglichkeiten ausschliessen, ein einzelner punkt schwarz/weiss und der rest das gegenteil, alles schwarz, alles weiss...sogar eine ganze menge mehr, wenn du umrisse/formen von objekten approximieren willst.

	TOONY	Mi, Jun 22, 2005 20:35 Antworten mit Zitat
Ist zwar nicht genau dass, was du suchst, aber es erstellt zufallsbilder in Graustufen Code: [AUSKLAPPEN] [EINKLAPPEN] Repeat For x = 0 To 100 For y = 0 To 100 i=Rand(255) Color i,i,i Plot x,y Flip Next Next Until KeyHit(1)

TOONY

Mi, Jun 22, 2005 20:35
Antworten mit Zitat

Ist zwar nicht genau dass, was du suchst, aber es erstellt zufallsbilder in Graustufen

Code: [AUSKLAPPEN]

Repeat
For x = 0 To 100
For y = 0 To 100
i=Rand(255)
Color i,i,i
Plot x,y
Flip

Next
Next
Until KeyHit(1)

	CodeMaster	Mi, Jun 22, 2005 21:31 Antworten mit Zitat
Bitte, wenn er unbedingt möchte BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Const groesse = 5 Dim Feld(groessegroesse) Graphics groesse,groesse,0,3 SetBuffer BackBuffer() Backtrack_Feld(0) End Function Backtrack_Feld(i) If KeyDown(1) Then End Anzeigen If i < (groesse groesse) Then Feld(i) = False Backtrack_Feld(i+1) Feld(i) = True Backtrack_Feld(i+1) EndIf End Function Function Anzeigen() LockBuffer() For x = 0 To groesse - 1 For y = 0 To groesse - 1 WritePixelFast(x,y,Feld(x + y * groesse) * $FFFFFF) Next Next UnlockBuffer() Flip ;False End Function Bedenke: Das Bild ist gerade mal 5x5 Bildpunkte groß!!
Dies ist ein Text, der an jeden Beitrag von dir angehängt werden kann. Es besteht eine Limit von 500 Buchstaben. Zuletzt bearbeitet von CodeMaster am Mo Apr 01, Parse error: syntax error, unexpected ';' in htdocs\viewtopic.php on line 102

CodeMaster

Mi, Jun 22, 2005 21:31
Antworten mit Zitat

Bitte, wenn er unbedingt möchte Wink

BlitzBasic: [AUSKLAPPEN]

Const groesse = 5
Dim Feld(groesse*groesse)

Graphics groesse,groesse,0,3
SetBuffer BackBuffer()

Backtrack_Feld(0)

End

Function Backtrack_Feld(i)
  If KeyDown(1) Then End
  Anzeigen
  If i < (groesse * groesse) Then
    Feld(i) = False
    Backtrack_Feld(i+1)
    Feld(i) = True
    Backtrack_Feld(i+1)
  EndIf
End Function

Function Anzeigen()
  LockBuffer()
  For x = 0 To groesse - 1
    For y = 0 To groesse - 1
      WritePixelFast(x,y,Feld(x + y * groesse) * $FFFFFF)
    Next
  Next
  UnlockBuffer()
  Flip ;False
End Function

Bedenke: Das Bild ist gerade mal 5x5 Bildpunkte groß!!

Dies ist ein Text, der an jeden Beitrag von dir angehängt werden kann. Es besteht eine Limit von 500 Buchstaben.

Zuletzt bearbeitet von CodeMaster am Mo Apr 01, Parse error: syntax error, unexpected ';' in htdocs\viewtopic.php on line 102

	Kabelbinder Sieger des WM-Contest 2006	Do, Aug 04, 2005 15:58 Antworten mit Zitat
Hi @TOONY ich würde Flip weglassen, sonst dauert das ja ewig, bis eine Bild fertig ist.
<Wing Avenger Download> ◊◊◊ <Macrophage Download>

Kabelbinder

Sieger des WM-Contest 2006

Do, Aug 04, 2005 15:58
Antworten mit Zitat

Hi

@TOONY ich würde Flip weglassen, sonst dauert das ja ewig, bis eine Bild fertig ist.

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Alle Möglichkeiten durchgehen

Betreff: Alle Möglichkeiten durchgehen