Grandiaalisen käyrän generoija

Jaa meneillään olevat projektisi tai valmiit pelit muun yhteisön kanssa täällä.
Post Reply
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm

Grandiaalisen käyrän generoija

Post 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
Last edited by Koodiapina on Sun Mar 20, 2011 10:03 pm, edited 2 times in total.
User avatar
axu
Devoted Member
Posts: 854
Joined: Tue Sep 18, 2007 6:50 pm

Re: Grandiaalisen käyrän generoija

Post by axu »

Hienoa! Nyt voidaan enteillä koulumenestystä simuloimalla :D
Jos tämä viesti on kirjoitettu alle 5 min. sitten, päivitä sivu. Se on saattanut jo muuttua :roll:
Image
MrMonday
Advanced Member
Posts: 378
Joined: Fri Oct 10, 2008 2:35 pm

Re: Grandiaalisen käyrän generoija

Post 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
User avatar
TukeKoodi
Active Member
Posts: 142
Joined: Thu Feb 03, 2011 7:40 pm
Location: C:\Työpöytä

Re: Grandiaalisen käyrän generoija

Post 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.
Attachments
mä jaksan.png
mä jaksan.png (42.37 KiB) Viewed 14884 times
Aloittelija, koodaaja, jotain...
CbFUN :D
User avatar
TukeKoodi
Active Member
Posts: 142
Joined: Thu Feb 03, 2011 7:40 pm
Location: C:\Työpöytä

Re: Grandiaalisen käyrän generoija

Post by TukeKoodi »

Kukaan näköjään jaksanut yrittää suorempaa? Ei ilmeisesti ;)
Aloittelija, koodaaja, jotain...
CbFUN :D
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Grandiaalisen käyrän generoija

Post by MaGetzUb »

Image
Käyrä kai kertoo Grandin viestien tulevasta että nykyisestä laadusta? :D
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.
User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Grandiaalisen käyrän generoija

Post by esa94 »

MaGetzUb wrote:Image
Käyrä kai kertoo Grandin viestien tulevasta että nykyisestä laadusta? :D
Toki, mutta luet sitä väärin päin.
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Grandiaalisen käyrän generoija

Post by MaGetzUb »

esa94 wrote:trolololololo
Nohehehe kun oli huono vitsi. Btw; Mitä tällä käyrällä tekee? Olisi kiva hyödyntää sitä johonkin. :)
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.
User avatar
Knoy
Active Member
Posts: 187
Joined: Fri Feb 12, 2010 10:50 pm

Re: Grandiaalisen käyrän generoija

Post 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
Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Grandiaalisen käyrän generoija

Post 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ä.
User avatar
Ilmuri
Developer
Developer
Posts: 277
Joined: Sun Aug 26, 2007 2:46 pm
Location: \o

Re: Grandiaalisen käyrän generoija

Post by Ilmuri »

esa94 wrote:Toki, mutta luet sitä väärin päin.
Image
Joko se nyt on oikeinpäin?
CoolBasic henkilökuntaa
Kehittäjä
CoolBasic Classic
User avatar
Execute
Active Member
Posts: 110
Joined: Fri Feb 11, 2011 6:41 pm

Re: Grandiaalisen käyrän generoija

Post by Execute »

Totta helvetissä on oikein päin. Sarkastista touhua.... Josko pysyttäisiin aiheessa?
SpaceCraft on kokopitkä peli! Nyt ladattavissa! Tsekkaa!
User avatar
ItzRaines
Active Member
Posts: 211
Joined: Sat Feb 05, 2011 6:59 pm

Re: Grandiaalisen käyrän generoija

Post 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.
User avatar
buke44
Active Member
Posts: 169
Joined: Sat May 23, 2009 8:10 pm
Location: Tampere

Re: Grandiaalisen käyrän generoija

Post 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 
Post Reply