Grandiaalisen käyrän generoija

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

Grandiaalisen käyrän generoija

Post by Koodiapina » Sun Mar 20, 2011 9:56 pm

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 11:03 pm, edited 2 times in total.
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

User avatar
axu
Devoted Member
Posts: 854
Joined: Tue Sep 18, 2007 6:50 pm

Re: Grandiaalisen käyrän generoija

Post by axu » Sun Mar 20, 2011 10:36 pm

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: 377
Joined: Fri Oct 10, 2008 2:35 pm

Re: Grandiaalisen käyrän generoija

Post by MrMonday » Sun Mar 20, 2011 11:34 pm

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 8:40 pm
Location: C:\Työpöytä

Re: Grandiaalisen käyrän generoija

Post by TukeKoodi » Tue Mar 22, 2011 6:59 pm

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 2229 times
Aloittelija, koodaaja, jotain...
CbFUN :D

User avatar
TukeKoodi
Active Member
Posts: 142
Joined: Thu Feb 03, 2011 8:40 pm
Location: C:\Työpöytä

Re: Grandiaalisen käyrän generoija

Post by TukeKoodi » Thu Mar 24, 2011 11:53 pm

Kukaan näköjään jaksanut yrittää suorempaa? Ei ilmeisesti ;)
Aloittelija, koodaaja, jotain...
CbFUN :D

User avatar
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Grandiaalisen käyrän generoija

Post by MaGetzUb » Wed Mar 30, 2011 7:34 pm

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 » Wed Mar 30, 2011 8:27 pm

MaGetzUb wrote:Image
Käyrä kai kertoo Grandin viestien tulevasta että nykyisestä laadusta? :D
Toki, mutta luet sitä väärin päin.
⁴⁰Ar
<@mikeful> kissatehtaalla on miukuhihna.

User avatar
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Grandiaalisen käyrän generoija

Post by MaGetzUb » Wed Mar 30, 2011 8:36 pm

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 11:50 pm

Re: Grandiaalisen käyrän generoija

Post by Knoy » Wed Mar 30, 2011 8:39 pm

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

User avatar
Awaclus
Forum Veteran
Posts: 2938
Joined: Tue Aug 28, 2007 2:50 pm
Location: Sulkava

Re: Grandiaalisen käyrän generoija

Post by Awaclus » Wed Mar 30, 2011 8:41 pm

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ä.
Every day I'm reshuffling.
[22:19] <@Grandi> Ha! Tiesin koko ajan, että Awaclus_ oli Awaclus. Hieno peitenimimerkki, mutta Grandia et huiputtanut.

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 » Wed Mar 30, 2011 8:50 pm

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 7:41 pm

Re: Grandiaalisen käyrän generoija

Post by Execute » Wed Mar 30, 2011 8:52 pm

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 7:59 pm

Re: Grandiaalisen käyrän generoija

Post by ItzRaines » Wed Mar 30, 2011 9:07 pm

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 » Wed Mar 30, 2011 10:15 pm

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

Who is online

Users browsing this forum: No registered users and 9 guests