Omnimaga
Calculator Community => TI Calculators => TI-BASIC => Topic started by: nemo on September 02, 2010, 08:27:50 pm
-
My Functions, Statistics and Trigonometry (FST) teacher said you couldn't graph a pie chart on your calculator. i took this as a challenge, and as a result:
ZStandard
84->Xmin
72->Ymax
ZInteger
Degree
SortA(L1
Delvar ADelvar Bdim(L1->dim(L2
Circle(47,31,25,{i
For(Z,1,dim(L1
360L1(Z)/sum(L1->A
Ans+B->B
Line(47,31,47+25sin(Ans),31+25cos(Ans
round(fPart(A/360),3->L2(Z
End
L1 contains your initial data. it's going to be sorted so you can read the circle graph. your data in L1 is displayed starting at the very top of the circle going around clockwise. L2 contains your percentages, rounded to the thousandths. the sorting isn't really necessary, i just like it.
edit: this reminds me.. it's time for me to remake my graphical triangle solver to incorporate the ambiguous case. i'm sure it could use some optimization.
-
LOL have you shown this to your teacher?
I might borrow this just to mess with mine.
-
Nice nemo! :)
-
i haven't shown it to her yet. she thinks she's a calculator guru because she can store to variables and use the Rcl function. she once Rcl'd a variable... i was thinking my head why not just type the variable name? but yeah i plan on showing her it tomorrow
thanks apcalc!
-
That is very cool, and very fast :) Great job :D You have got to tell us your teachers reaction :P
Here is a downloadable version for people who don't want to type it in and a screenshot :)
By the way how long did it take you to make that?
-
thanks meishe! i'll be sure to post here once i tell her about it. speaking about that, i'm not sure if i should just show her the source code or disguise it as AsmPrgm:3E7FD306CD2845. (WARNING: BrandonW's OSKill. do NOT run that program.) pros: i'm a legend for using the OSKill on a teacher. cons: i'm gonna be in huge trouble for invalidating my teacher's OS under the guise of a pie charting program.
meishe, it took me about 10 minutes of coding but about a half hour of pondering in math, lol
-
Haha if you do do that, which would be EPIC, I would go with a way of fixing her calculator right after you did it :P And no problem :) But realistically I would just lock the program and then show her how it works.
Very cool though. Do you mean a half-hour to figure out the math to accomplish it or just whether or not to do it for sure?
-
it would be such a win.. but i don't think i want to get in that trouble. so i'm just gonna lock and hide the program after showing her.
well i couldn't play with it during math. she likes to talk.. and if you aren't listening she gets very upset soo i have to pay attention. she's boring. so i thought about how i might do it. whether to use polar or cartesian coordinates and what window i should use, mainly.
-
Ah ok, gotcha.
-
i haven't shown it to her yet. she thinks she's a calculator guru because she can store to variables and use the Rcl function. she once Rcl'd a variable... i was thinking my head why not just type the variable name? but yeah i plan on showing her it tomorrow
thanks apcalc!
LOL it would have been funny if her RAM was very low and she recalled a string of character containing a 2 byte token at the wrong location. BOOM! garbage scrolling+RAM Clear! ;D
I kinda hate when someone tries to prove me wrong even if I know I am right. Usually it feels good to show them proof. Big slap in the person face for making you waste time arguing with her.
-
Proving people wrong is the best when they are so convinced that they are right :]
-
Yeah so true. For some reasons, posting good proof seems to let the anger go out too :P (unless the person still tries to prove you wrong afterward, but at that point, it'S best to ignore her).
Some people on forums or IRC did that in the past, although they stopped long ago. One case I remember was when many were telling me the LCD was 95x63 pixels x.x.
Back on topic I like how fast it draws the charts. :)
-
Now its time for the EXPLODED pie charts :O
-
That makes me think of a cool idea to mess with the teacher :P Make it so there is a little fuse that appears after the graph is displayed and then when it goes down all the way a exploding animation happens :P
-
Now its time for the EXPLODED pie charts :O
I think that one might be a bit hard x.x
-
I meant more like this :P
(http://pubs.logicalexpressions.com/pub0009/UserImages/AI2109.gif)
-
I still like my idea ;) :P But that'd be a pretty cool thing to do.
-
Heh if your teacher asks for an exploding graph, you know what to do ;)
-
I meant more like this :P
(http://pubs.logicalexpressions.com/pub0009/UserImages/AI2109.gif)
yeah I know. I mean it would be much harder to draw I think, unless you make your own circle routine, which would be slower in BASIC
-
I meant more like this :P
(http://pubs.logicalexpressions.com/pub0009/UserImages/AI2109.gif)
yeah I know. I mean it would be much harder to draw I think, unless you make your own circle routine, which would be slower in BASIC
Yeah, it is slow (first screenshot is original at 6MHz, second is exploded at 6MHz, third is original at 15 MHz, fourth is exploded at 15MHz):
: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
:For(θ,B,F,2
:Pt-On(I+25sin(θ),J+25cos(θ
:End
:F→B
:G→D
:H→E
:End
Generated by SourceCoder (http://sc.cemetech.net), © 2005-2010 Cemetech (http://www.cemetech.net)
:ZStandard
:ZInteger
:AxesOff
:Degree
:SortA({L1}
:DelVar BDelVar D25→E
:For(Z,1,dim({L1}
:B+360{L1}(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
:For(θ,B,F,2
:Pt-On(I+25sin(θ),J+25cos(θ
:End
:F→B
:G→D
:H→E
:End
-
That's still pretty cool though, regardless the speed :)
-
That's still pretty cool though, regardless the speed :)
Thanks!
Actually, here's a better one ;D
EDIT: Well, meishe91, you asked for it :D
-
Actually, here's a better one ;D
EDIT: Well, meishe91, you asked for it :D
YES!!!!!!! No timer string though :P
The only thing about your exploded one is that when you get to less than ten elements in the list then the offset of the chart is really noticeable.
-
Yeah, the small ones are really close together because I'm not accounting for the space between the pieces, like most computer-made exploded pie charts do. They all start five pixels away from the center.
-
Oh, no. I'm not talking about that. I'm talking about how if you have like {38,95,99→L1 it will look like the thirty-eight piece is sticking out further than the others.
-
Eh? Really?
EDIT: Oh yeah, because there's more of a bump since it's smaller, and should technically have a smaller radius.
-
Ya, that's what I thought. Just thought I'd let ya know.
-
Ya, that's what I thought. Just thought I'd let ya know.
Can't really do anything about it :P At least it's better than before, when I simply connected the two bars with a straight line. Fast, but not exactly pi-like pie-like.
-
What do you mean exactly?
-
At first, instead of having a little routine to draw the curve of each section, I just used a straight line :D It looked more like shards of glass than like an exploded pie.
-
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
-
Oh ok, gotcha. Polygon charts are also great ;)
-
And here it is, if you were wondering:
: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 (http://sc.cemetech.net), © 2005-2010 Cemetech (http://www.cemetech.net)
-
Go polygons! :P
-
that can work too I guess, although when there are mostly very big and small results mixed up, the graph could look less accurate
-
Okay, now this really looks like a pie :P
-
Pizza! ;D
-
I CALL THE BIGGEST PIECE!
/me grabs the biggest piece lightning fast and scurries off to eat it in private making sure he isn't followed
>.>
-
Good idea!
EDIT: I gotta stop. This is getting kinda spammish :)
-
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
-
Nice! The original program is 130. Does yours save the percentages to L2?
-
Nice! The original program is 130. Does yours save the percentages to L2?
Yes here is code
: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
-
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.
-
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.
-
Nice! The original program is 130. Does yours save the percentages to L2?
Yes here is code
: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].
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:
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 :)
-
Nice! The original program is 130. Does yours save the percentages to L2?
Yes here is code
: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].
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:
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 :)
@DeepThought: As meishe91 said "what's WYSIWIG?"
@meishe91: Thanks! Forgot about the ZStandard, in that case maybe include all the other graph commands as well? (Ex. FnOff, PlotsOff)
-
I don't think it really matters. You can though. All you really need are those two if you were gonna add any.
I have a question about your original one. Why were you storing one to A if you were using A for the loop? Or just a "oops" moment?
-
A BASIC For( loop doesn't change the variable and if i didn't change it it would either give a dim error or just skip the loop altogether
-
Degree
AxesOff
ZStandard
ZInteger:0
Circle(0,0,30,{i .i know, more memory consuming but like 8 times faster. i think the 3 bytes are worth it.
For(Z,1,dim(L1
Ans+360L1(Z)/sum(L1
Line(0,0,30sin(Ans),30cos(Ans
End
no need to use external variables if you arent storing to L2 for percentages of the circle.
edit: 71 bytes with a 1 letter name.
-
Degree
AxesOff
ZStandard
ZInteger:0
Circle(0,0,30,{i .i know, more memory consuming but like 8 times faster. i think the 3 bytes are worth it.
For(Z,1,dim(L1
Ans+360L1(Z)/sum(L1
Line(0,0,30sin(Ans),30cos(Ans
End
no need to use external variables if you arent storing to L2 for percentages of the circle.
edit: 71 bytes with a 1 letter name.
Nice, but i don't understand the "{i"
-
A BASIC For( loop doesn't change the variable and if i didn't change it it would either give a dim error or just skip the loop altogether
Ya, I know. But that's weird that it was giving you an error. You don't really need it, unless my calculator is just bomb like that :P
Degree
AxesOff
ZStandard
ZInteger:0
Circle(0,0,30,{i .i know, more memory consuming but like 8 times faster. i think the 3 bytes are worth it.
For(Z,1,dim(L1
Ans+360L1(Z)/sum(L1
Line(0,0,30sin(Ans),30cos(Ans
End
no need to use external variables if you arent storing to L2 for percentages of the circle.
edit: 71 bytes with a 1 letter name.
Oh ya, nice! I keep forgetting to do stuff like that :P
Degree
AxesOff
ZStandard
ZInteger:0
Circle(0,0,30,{i .i know, more memory consuming but like 8 times faster. i think the 3 bytes are worth it.
For(Z,1,dim(L1
Ans+360L1(Z)/sum(L1
Line(0,0,30sin(Ans),30cos(Ans
End
no need to use external variables if you arent storing to L2 for percentages of the circle.
edit: 71 bytes with a 1 letter name.
Nice, but i don't understand the "{i"
I don't think anyone really does. It's just an undocumented trick that when you draw a circle using that command if you have an imaginary list as the fourth argument then it draws them faster.
-
I don't know too much about 83/84 BASIC, but I believe that {i makes the circle draw faster.
-
the {i, the i being the imaginary i, [2nd] [.], makes the calculator draw the circle 8 times faster. cause TI's dumb.
-
Why does it do it faster? i never even heard of the imaginary i being used this way before.
-
no idea. it's just something TI added in.
other things are Line(X1,Y1,X2,Y2,[0]) will make the line be a black or white line, and Text([-1],X,Y makes small or large text.
-
Why does it do it faster? i never even heard of the imaginary i being used this way before.
Like I said, I don't think anyone knows really.
-
It's an undocumented TI-BASIC function that never got assigned an actual command or real syntax.
It's like Text(-1,Y,X,"Text") to display large fonts on the graph screen.
On the old 83 from 1996, you could run ASM games from the home screen, but TI had yet to assign a token to the ASM running command, so instead of Asm(prgmNAME), it was Send(9prgmNAME), and the 9 here is not a typo.
All those 3 things are not documented by TI. The former was only discovered around 2006, though, and the Text one was only widely known by 2004, despite Basic Guru Online having talked about it in 2000-2001.
-
Stupid random TI
-
I bet it was for their Apps that graphed data input, so they could brag that they write software better than anyone else :P
-
What's WYSIWIG?
WYSIWYG stands for What You See Is What You Get.
-
Ah yes, Criss Angel's favorite saying :P
-
Why does it do it faster? i never even heard of the imaginary i being used this way before.
It's faster because instead of having to calculate each pixel location on the circle, the calculator only calculates an eighth of it and uses circle symmetry (read: negation) to copy that slice to all the other parts. I've always wondered why it isn't default on the TI-83 Plus series and needs at least two more bytes :-\
EDIT: Three more.
-
OH YA! I remember seeing something like that a long time ago. Completely forgot. I actually emailed TI-Cares to see if I can get an answer to why this is undocumented and such :P
-
other things are Line(X1,Y1,X2,Y2,[0]) will make the line be a black or white line, and Text([-1],X,Y makes small or large text.
I think TI actually does document that. It's in the user's manual.
-
OH YA! I remember seeing something like that a long time ago. Completely forgot. I actually emailed TI-Cares to see if I can get an answer to why this is undocumented and such :P
Did you get an actual answer?
-
other things are Line(X1,Y1,X2,Y2,[0]) will make the line be a black or white line, and Text([-1],X,Y makes small or large text.
I think TI actually does document that. It's in the user's manual.
They documented the Line() 5th argument, but neither the Text(-1 and Circle imaginary i arguments. I checked in the huge TI-83+ manual I got that came with my calc 9 years ago and it got nothing about it.
-
Somehow i doubt Ti-Cares has ever given an actual answer unfortunately x.x
-
OH YA! I remember seeing something like that a long time ago. Completely forgot. I actually emailed TI-Cares to see if I can get an answer to why this is undocumented and such :P
Did you get an actual answer?
Sort of actually. I mean it still seemed generic but it was actually somewhat specified. They haven't given me an answer to question yet but they are apparently passing it off to the Technical Escalation Team, what ever that is.
This is what I got back so far:
Josh,
Thank you for contacting Texas Instruments!
Upon investigating and trying the problem that you have provided me, I have not been able to provide a solution or concrete answer as to why {i} is essentially causing your circle to graph faster. So what I will do is escalate your case on to Technical Escalations, and my Escalations Team will take it from there. So that the Escalation Team will have a good contact point, I would like for you to please supply me with the following information:
-Your last name
-A good phone number to contact you back with if need be
-The operating system you are using on your TI-84 Plus Unit
Another resource you can use to find answers to your questions, example calculations and other information is our Knowledge Base. The Knowledge Base is accessible to you 24 hours a day, 7 days a week.
http://support.education.ti.com
I hope that you find this information helpful. If you have further questions or comments, please feel free to send me an email.
Warmest Regards,
Keith Sargent
-
Lol don't make them get rid of that undocumented feature either XD
We never know with TI. Maybe they'll see it as a bug and completly remove it x.x
-
Well I feel like since it's an extra argument that was added it was intentional put there. In the reply I also stated that this was not a problem and that it is actually very useful and fast.
On topic though:
Nemo, did you ever get a chance to show your teacher?
-
Heh, somehow that sounds like a canned response :D
-
i was going to show her, but didn't after she took a student's calculator away when the student made a program to do sigma notation (i lol'd, thinking of the sum(seq([EXP],[Var],[start],[end])) trick.
-
X.x sorry to hear
-
i was going to show her, but didn't after she took a student's calculator away when the student made a program to do sigma notation (i lol'd, thinking of the sum(seq([EXP],[Var],[start],[end])) trick.
x.x Wow... :(
That's saddening.
-
That is pretty ridiculous...just because a student is smart enough to figure something she couldn't out doesn't call for that...lame sausage.
-
Yeah, I think it's uncalled for. If my compsci intro teacher did that, I would have failed that class epically x.x
-
what, that's stupid, at my school, they don't care if you have games and other stuff on your calc,
-
In my case they didn't mind, same for math programs (the way tests were written made those programs useless anyway), but as long as we do not play games instead of working on our school stuff.
As for Circle, I wonder if the trick actually works under OS 2.53/2.54MP?
-
Are you talking about the 4th argument thing?
-
As for Circle, I wonder if the trick actually works under OS 2.53/2.54MP?
Yup. Works on OS 2.53 MP.
-
i was going to show her, but didn't after she took a student's calculator away when the student made a program to do sigma notation (i lol'd, thinking of the sum(seq([EXP],[Var],[start],[end])) trick.
That sucks. Did she give it back at the end of class though? Because if she didn't thats stealing and she isn't allowed to do that, but if she gave it back if I were in the situation i might do it.(show the program i mean)
-
Well, over here, some teachers took people calc away for almost the entire school year when caught playing games instead of working. I'm not sure if it is legal where I live but if something like that happened to me, I would probably try to check if it's legal or not, as to me it's some form of stealing (ok if your parents take it away, but a stranger?)
-
I can understand if a teacher want to take away someone's calc for playing games, but that's just ridiculous. Your teacher has some kind of problem with people being smarter than her :(
-
i was going to show her, but didn't after she took a student's calculator away when the student made a program to do sigma notation (i lol'd, thinking of the sum(seq([EXP],[Var],[start],[end])) trick.
That sucks. Did she give it back at the end of class though? Because if she didn't thats stealing and she isn't allowed to do that, but if she gave it back if I were in the situation i might do it.(show the program i mean)
Actually most school districts it isn't illegal. It's a very complicated system but teachers are kind of like mini-dictators that can do what they want as long as it is given back eventually. That's not a very good explanation but I can't think of how to explain it. But it basically goes along with the same thing with when teachers take cell phones and iPods and such.
-
Yeah, rules are fuzzy when it comes to things like that :/ Thats why they can actually take your personal property without your consent and stuff like that.
-
Ya, I learned about it in Government but I don't remember it all.