Page 1 of 1

Grandiaalisen käyrän generoija

Posted: Sun Mar 20, 2011 9:56 pm
by Koodiapina
Generoi grandiaalisen käyrän. Eli simuloi ilmiötä, joka esiintyy monasti elävässäkin elämässä erilaisissa muodoissa. Mitä enemmän muuttuja on positiivinen/negatiivinen, sitä suurempi todennäköisyys sillä on olla sitä jatkossa vielä enemmän.

Code: Select all

SCREEN 800,400

FrameLimit 60

img = MakeImage(800,400)

DrawToImage img   
   Color 0,0,0
   Cls
   Color 50,50,50
   Line 0,200,800,200   
DrawToScreen

i = 0

SetFont(LoadFont("verdana",16))

edx = 0
edy = 200

Repeat

   If Rand(-100,101) > i Then i = i - 1 Else i = i + 1
   
   If s Mod 10 = 0 Or Abs(i) > 100 Or s > 799 Then
      DrawToImage img      
         Color cbred
         Line edx,edy,s,200+i*2
         edx = s
         edy = 200+i*2
      DrawToScreen
      DrawScreen 
   EndIf 
   
   DrawImage img,0,0
   
   If Abs(i) > 100 Or s > 799 Then
   
      Color 255,255,255
      Text 5,5,"Paina enter generoidaksesi uuden."
   
      DrawToImage img   
         Color 0,0,0
         Cls
         Color 50,50,50
         Line 0,200,800,200   
      DrawToScreen
      
      DrawScreen 
   
      WaitKey
      s = 0
      i = 0
      edx = 0
      edy = 200
   EndIf 
   
   s = s + 1
Forever

Re: Grandiaalisen käyrän generoija

Posted: Sun Mar 20, 2011 10:36 pm
by axu
Hienoa! Nyt voidaan enteillä koulumenestystä simuloimalla :D

Re: Grandiaalisen käyrän generoija

Posted: Sun Mar 20, 2011 11:34 pm
by MrMonday
Aika mielenkiintoinen, tai sitten olen vain niin väsynyt, etten kykene ymmärtämään tämän yksinkertaisuutta, mutta en näe mitään järkeä tällaiseen käyttäytymiseen.. Yhtä kaikki, todennäköisesti juuri tästä väsymyksestäni johtuen innostuin leikkimään tällä, ja katsoin kuinka suoran viivan saa tehtyä :D
kuva.png

Re: Grandiaalisen käyrän generoija

Posted: Tue Mar 22, 2011 6:59 pm
by TukeKoodi
MrMonday wrote:Kuka jaksaa yrittää suorempaa?
Minä.
No joo, pakko se on myöntää. Muuntelin lähdekoodia niin, että mitä enemmän positiivinen/negatiivinen muuttuja on, sitä suurempi todennäköisyys on sillä on olla jatkossa vähemmän.

Re: Grandiaalisen käyrän generoija

Posted: Thu Mar 24, 2011 11:53 pm
by TukeKoodi
Kukaan näköjään jaksanut yrittää suorempaa? Ei ilmeisesti ;)

Re: Grandiaalisen käyrän generoija

Posted: Wed Mar 30, 2011 7:34 pm
by MaGetzUb
Image
Käyrä kai kertoo Grandin viestien tulevasta että nykyisestä laadusta? :D

Re: Grandiaalisen käyrän generoija

Posted: Wed Mar 30, 2011 8:27 pm
by esa94
MaGetzUb wrote:Image
Käyrä kai kertoo Grandin viestien tulevasta että nykyisestä laadusta? :D
Toki, mutta luet sitä väärin päin.

Re: Grandiaalisen käyrän generoija

Posted: Wed Mar 30, 2011 8:36 pm
by MaGetzUb
esa94 wrote:trolololololo
Nohehehe kun oli huono vitsi. Btw; Mitä tällä käyrällä tekee? Olisi kiva hyödyntää sitä johonkin. :)

Re: Grandiaalisen käyrän generoija

Posted: Wed Mar 30, 2011 8:39 pm
by Knoy
MaGetzUb wrote:
esa94 wrote:trolololololo
Nohehehe kun oli huono vitsi. Btw; Mitä tällä käyrällä tekee? Olisi kiva hyödyntää sitä johonkin. :)
Olihan se, mutta omasi oli vielä huonompi

Re: Grandiaalisen käyrän generoija

Posted: Wed Mar 30, 2011 8:41 pm
by Awaclus
MaGetzUb wrote:
esa94 wrote:trolololololo
Nohehehe kun oli huono vitsi. Btw; Mitä tällä käyrällä tekee? Olisi kiva hyödyntää sitä johonkin. :)
Vitsinä huono, counterattack-pwnagena hyvä.

Re: Grandiaalisen käyrän generoija

Posted: Wed Mar 30, 2011 8:50 pm
by Ilmuri
esa94 wrote:Toki, mutta luet sitä väärin päin.
Image
Joko se nyt on oikeinpäin?

Re: Grandiaalisen käyrän generoija

Posted: Wed Mar 30, 2011 8:52 pm
by Execute
Totta helvetissä on oikein päin. Sarkastista touhua.... Josko pysyttäisiin aiheessa?

Re: Grandiaalisen käyrän generoija

Posted: Wed Mar 30, 2011 9:07 pm
by ItzRaines
Execute wrote:Totta helvetissä on oikein päin. Sarkastista touhua.... Josko pysyttäisiin aiheessa?
Helvetin turha offtopic jos viestisi perimmäisin tarkoitus oli kehottaa pysyä aiheessa. ;)
Eiköhän kaikki kuitenkin tiedä, että aiheessa pitäisi pysyä
Niin ja mielenkiintoinen vänkyrä kunhan vielä keksisi tarkoituksen sille.
Joku voisi väsästä dll:ät jolloin voisi ilmoittaa suoritinkäytön muistin määrän yms. projekteissaan.

Re: Grandiaalisen käyrän generoija

Posted: Wed Mar 30, 2011 10:15 pm
by buke44
Alustamalla satunnaisgeneraattorin jollain merkkijonolla tämä voi antaa jonkinlaisia "ennustuksia". Ainakin koulumenestys lähtee tuon mukaan jyrkkään nousuun.

Code: Select all

Function randomizestr (s$)
    For i=1 To Len (s) 
        r=r+Asc (Mid (s,i,1))
    Next i
    Randomize r
EndFunction