« previous next »
Pages: 1 2 [3] 4 5 6   Go Down

Author Topic: Circle Graphs  (Read 22024 times)

0 Members and 1 Guest are viewing this topic.

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55942
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Circle Graphs
« Reply #30 on: September 03, 2010, 06:58:39 pm »
Looks nice Deep Thought (the screenshots). A bit slow, but I guess it can work for just doing graphs. Also lol at the last screenshot in another post :P
Logged
Now active at https://discord.gg/cuZcfcF (CodeWalrus server)

Offline meishe91

  • Super Ninja
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2946
  • Rating: +115/-11
    • View Profile
    • DeviantArt
Re: Circle Graphs
« Reply #31 on: September 03, 2010, 07:09:27 pm »
Oh ok, gotcha. Polygon charts are also great ;)
Logged
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)

Offline Deep Toaster

  • So much to do, so much time, so little motivation
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 8217
  • Rating: +758/-15
    • View Profile
    • ClrHome
Re: Circle Graphs
« Reply #32 on: September 03, 2010, 07:16:14 pm »
And here it is, if you were wondering:

Quote from: BASIC Code
:ZStandard
:ZInteger
:AxesOff
:Degree
:SortA L1
:DelVar BDelVar D25→E
:For(Z,1,dim(L1
:B+360L1(Z)/sum(L1→F
:25sin(F→G
:25cos(F→H
:5sin(.5(B+F→I
:5cos(.5(B+F→J
:Line(I,J,D+I,E+J
:Line(I,J,G+I,H+J
:Line(D+I,E+J,G+I,H+J
:F→B
:G→D
:H→E
:End
Generated by SourceCoder, © 2005-2010 Cemetech
Logged



Offline meishe91

  • Super Ninja
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2946
  • Rating: +115/-11
    • View Profile
    • DeviantArt
Re: Circle Graphs
« Reply #33 on: September 03, 2010, 07:26:28 pm »
Go polygons! :P
Logged
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55942
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Circle Graphs
« Reply #34 on: September 03, 2010, 07:31:53 pm »
that can work too I guess, although when there are mostly very big and small results mixed up, the graph could look less accurate
Logged
Now active at https://discord.gg/cuZcfcF (CodeWalrus server)

Offline Deep Toaster

  • So much to do, so much time, so little motivation
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 8217
  • Rating: +758/-15
    • View Profile
    • ClrHome
Re: Circle Graphs
« Reply #35 on: September 03, 2010, 07:33:24 pm »
Okay, now this really looks like a pie :P
Logged



Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55942
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: Circle Graphs
« Reply #36 on: September 03, 2010, 07:34:28 pm »
Pizza! ;D
Logged
Now active at https://discord.gg/cuZcfcF (CodeWalrus server)

Offline meishe91

  • Super Ninja
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2946
  • Rating: +115/-11
    • View Profile
    • DeviantArt
Re: Circle Graphs
« Reply #37 on: September 03, 2010, 07:39:55 pm »
I CALL THE BIGGEST PIECE!

* Meishe91 grabs the biggest piece lightning fast and scurries off to eat it in private making sure he isn't followed
>.>
Logged
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)

Offline Deep Toaster

  • So much to do, so much time, so little motivation
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 8217
  • Rating: +758/-15
    • View Profile
    • ClrHome
Re: Circle Graphs
« Reply #38 on: September 03, 2010, 07:41:06 pm »
Good idea!

EDIT: I gotta stop. This is getting kinda spammish :)
« Last Edit: September 03, 2010, 07:43:54 pm by Deep Thought »
Logged



Offline guy6020665

  • LV6 Super Member (Next: 500)
  • ******
  • Posts: 481
  • Rating: +7/-1
    • View Profile
Re: Circle Graphs
« Reply #39 on: September 03, 2010, 07:50:56 pm »
Haven't actually checked but how large is the original program? I managed to write one today in calc class that achieves the same effect in 100 bytes  ;D
Logged

Offline Deep Toaster

  • So much to do, so much time, so little motivation
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 8217
  • Rating: +758/-15
    • View Profile
    • ClrHome
Re: Circle Graphs
« Reply #40 on: September 03, 2010, 07:52:59 pm »
Nice! The original program is 130. Does yours save the percentages to L2?
Logged



Offline guy6020665

  • LV6 Super Member (Next: 500)
  • ******
  • Posts: 481
  • Rating: +7/-1
    • View Profile
Re: Circle Graphs
« Reply #41 on: September 03, 2010, 07:58:07 pm »
Quote from: Deep Thought on September 03, 2010, 07:52:59 pm
Nice! The original program is 130. Does yours save the percentages to L2?

Yes here is code

Code: [Select]
:Degree
:AxesOff
:ZInteger
:L1/(sum(L1))->L2
:Circle(0,0,31
:1->A
:0->D
:For(A,1,dim(L2
:360*L2(A)->B
:Line(0,0,31*sin(B+D),31*cos(B+D))
:D+B->D
:End
Edit Subscript dosen't seem to work in code
« Last Edit: September 03, 2010, 07:59:59 pm by guy6020665 »
Logged

Offline Deep Toaster

  • So much to do, so much time, so little motivation
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 8217
  • Rating: +758/-15
    • View Profile
    • ClrHome
Re: Circle Graphs
« Reply #42 on: September 03, 2010, 08:00:35 pm »
Oh yeah, you could divide the entire list L1 by a number!

Great job. Now try optimizing the exploded version...

EDIT: No, code is WYSIWIG. You can use [ tt ] [ /tt ] instead.
« Last Edit: September 03, 2010, 08:01:52 pm by Deep Thought »
Logged



Offline guy6020665

  • LV6 Super Member (Next: 500)
  • ******
  • Posts: 481
  • Rating: +7/-1
    • View Profile
Re: Circle Graphs
« Reply #43 on: September 03, 2010, 08:01:45 pm »
Quote from: Deep Thought on September 03, 2010, 08:00:35 pm
Oh yeah, you could divide the entire list L1 by a number!

Great job. Now try optimizing the exploded version...

I will try when I get the chance, and if I understand the code.
Logged

Offline meishe91

  • Super Ninja
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2946
  • Rating: +115/-11
    • View Profile
    • DeviantArt
Re: Circle Graphs
« Reply #44 on: September 03, 2010, 08:09:35 pm »
Quote from: guy6020665 on September 03, 2010, 07:58:07 pm
Quote from: Deep Thought on September 03, 2010, 07:52:59 pm
Nice! The original program is 130. Does yours save the percentages to L2?

Yes here is code

Code: [Select]
:Degree
:AxesOff
:ZInteger
:L1/(sum(L1))->L2
:Circle(0,0,31
:1->A
:0->D
:For(A,1,dim(L2
:360*L2(A)->B
:Line(0,0,31*sin(B+D),31*cos(B+D))
:D+B->D
:End
Edit Subscript dosen't seem to work in code

Ya, no form of BBCode works inside [code][/code].

Quote from: Deep Thought on September 03, 2010, 08:00:35 pm
Oh yeah, you could divide the entire list L1 by a number!

Great job. Now try optimizing the exploded version...

EDIT: No, code is WYSIWIG. You can use [ tt ] [ /tt ] instead.

What's WYSIWIG?

Edit:
Code: (Optimized) [Select]
Degree
AxesOff
ZStandard (You need to have this...)
ZInteger
L1/sum(L1→L1
Circle(0,0,31
DelVarDFor(A,1,dim(L1
360L1(A→B
Line(0,0,31sin(B+D),31cos(B+D
D+B→D
End
It is now 86 bytes with a one letter name :)
« Last Edit: September 03, 2010, 08:16:54 pm by meishe91 »
Logged
Spoiler For Spoiler:



For the 51st time, that is not my card! (Magic Joke)
Pages: 1 2 [3] 4 5 6   Go Up
« previous next »