Random Pieces of Code
This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's TI-BASIC subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.

This forum is locked: you cannot post, reply to, or edit topics. TI-Basic => TI-BASIC
Random Pieces of Code
United-TI Archives -> TI-Basic
 
    » Goto page Previous  1, 2, 3  Next
» View previous topic :: View next topic  
Author Message
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 22 Jun 2009 09:27:37 am    Post subject:
Pretty Picture! Smile
I assume you have AxesOff.
Back to top
tiuser1010


Member


Joined: 23 Apr 2009
Posts: 100
Posted: 22 Jun 2009 09:54:46 am    Post subject:
yeah they are supose to be off. I didn't think about putting it into the code because my axes are usually aways off
I'm going to chage that right now.

Last edited by Guest on 22 Jun 2009 09:56:32 am; edited 1 time in total
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 22 Jun 2009 10:27:25 am    Post subject:
Mine are almost always off, but I'm on the computer and didn't have my calc so I used Wabbit Emu and the Axes were on.
Back to top
tiuser1010


Member


Joined: 23 Apr 2009
Posts: 100
Posted: 22 Jun 2009 11:04:15 am    Post subject:
Hey i got two more

Code:
:ClrDraw
:AxesOff
:ZStandard
:For(K,1,100,3
:For(X,1,10,3
:Line(-X,K,-K,X
:Line(-X,-K,X,K
:Line(-K,-X,k,X
:End
:End



Code:
:ClrDraw
:AxesOff
:ZStandard
:100->X
:For(K,1,900,9
:For(P,1,10,9
:Line(-X,K,-K,X
:Line(-X,-K,X,K
:End
:End


Change the numbers around (like increasing X or increase how many times it increment or how often it increment and you get slighly different pictures

Last edited by Guest on 22 Jun 2009 11:08:24 am; edited 1 time in total
Back to top
TI-newb


Member


Joined: 24 Dec 2008
Posts: 158
Posted: 22 Jun 2009 11:07:13 am    Post subject:
Cool. lemme try them.

EDIT: Niceeee i like the first one.. although the 2nd one.. didn't show much =/

Last edited by Guest on 22 Jun 2009 11:11:51 am; edited 1 time in total
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 22 Jun 2009 02:38:06 pm    Post subject:
They both seem a bit slow.

tiuser1010 wrote:

Code:
:ClrDraw
:AxesOff
:ZStandard
:100->X
:For(K,1,900,9
:For(P,1,10,9
:Line(-X,K,-K,X
:Line(-X,-K,X,K
:End
:End

What's the For(P... loop do?
Back to top
tiuser1010


Member


Joined: 23 Apr 2009
Posts: 100
Posted: 22 Jun 2009 02:46:34 pm    Post subject:
Quote:
What's the For(P... loop do?


It to make it draw more lines. I guess you could live without it and is probably one of the reasons it is so slow. But when i made the program it was hard for me get the right kind of picture i wanted with one "swich" adding the For(P... gives me two swiches so that it is easier to get a picture i like
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 22 Jun 2009 02:54:01 pm    Post subject:
I don't see P used in the code other than in the for loop.
Back to top
tiuser1010


Member


Joined: 23 Apr 2009
Posts: 100
Posted: 22 Jun 2009 02:58:21 pm    Post subject:
I Know but it's just there to increment


Also this is my #50 post
sweet
Back to top
ztrumpet


Active Member


Joined: 06 May 2009
Posts: 555
Posted: 22 Jun 2009 03:04:40 pm    Post subject:
Sweet!
Increment what? If you mean X you left out a line. Sad
Back to top
tiuser1010


Member


Joined: 23 Apr 2009
Posts: 100
Posted: 22 Jun 2009 03:33:23 pm    Post subject:
Ok when i first made the code it looked like this:

Code:
:ClrDraw
:AxesOff
:ZStandard
:100->X
:For(K,1,100,9
:Line(-X,K,-K,X
:Line(-X,-K,X,K
:End
:End


I added the other For( Loop because i could put small numbers into second For( Loop to have the affect of puting s lagre number in the first one. You really don't need the second For( Loop and you can take it out if you want.
Back to top
woodswolf


Advanced Newbie


Joined: 26 Feb 2009
Posts: 53
Posted: 05 Jul 2009 09:17:20 am    Post subject:
Its pretty hard to satisfy you guys, but here is a cool little program...


Code:
:DelvarAInput B
:Repeat 0
:1-A→A
:For(X,0,47,B
:Line(Xmin,.5(Ymax+Ymin)-(31/47)XΔY,Xmin+XΔX,Ymin,1-A
:Line(.5(Xmin+Xmax)+XΔX,Ymin,Xmax,Ymin+(31/47)XΔY,A
:Line(Xmax,.5(Ymax+Ymin)+(31/47)XΔY,Xmax-XΔX,Ymax,1-A
:Line(.5(Xmax+Xmin)-XΔX,Ymax,Xmin,Ymax-(31/47)XΔY,A
:End
:End

I like inputting 1 and 4 Smile
Back to top
DarkerLine
ceci n'est pas une |


Super Elite (Last Title)


Joined: 04 Nov 2003
Posts: 8328
Posted: 05 Jul 2009 09:54:02 am    Post subject:
At some point, it becomes simpler to just set yourself a better graphing window than to mess around with the ΔX's.

Just start with ZStandard:ZInteger and things become much simpler:


:XYmax/Xmax
:Line(Xmin,-Ans,Xmin+X,Ymin,not(A
:Line(X,Ymin,Xmax,Ymin+Ans,A
:Line(Xmax,Ans,Xmax-X,Ymax,not(A
:Line(-X,Ymax,Xmin,Ymax-Ans,A


Last edited by Guest on 05 Jul 2010 08:28:53 am; edited 1 time in total
Back to top
woodswolf


Advanced Newbie


Joined: 26 Feb 2009
Posts: 53
Posted: 05 Jul 2009 10:00:16 am    Post subject:
I know darkerline... But the challenge here is to use the least amount of lines possible!
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976
Posted: 05 Jul 2009 10:24:37 am    Post subject:
What use is a line count when it has no bearing on size and speed? Wink

Last edited by Guest on 05 Jul 2009 10:24:46 am; edited 1 time in total
Back to top
woodswolf


Advanced Newbie


Joined: 26 Feb 2009
Posts: 53
Posted: 05 Jul 2009 10:35:40 am    Post subject:
Because it's what the topic owner wants? Don't ask me Good Idea. IMHO it adds to one of those fun challenges on the calculator!
Back to top
DarkerLine
ceci n'est pas une |


Super Elite (Last Title)


Joined: 04 Nov 2003
Posts: 8328
Posted: 05 Jul 2009 01:10:36 pm    Post subject:
In that case, I have a rather spectacular optimization to make, cutting the line count down to 10% of yours.

:DelvarAInput B:ZStandard:ZInteger:Repeat 0:1-A→A:For(X,0,47,B:XYmax/Xmax:Line(Xmin,-Ans,Xmin+X,Ymin,not(A:Line(X,Ymin,Xmax,Ymin+Ans,A:Line(Xmax,Ans,X
max-X,Ymax,not(A:Line(-X,Ymax,Xmin,Ymax-Ans,A:End:End

Last edited by Guest on 05 Jul 2010 08:28:31 am; edited 1 time in total
Back to top
Weregoose
Authentic INTJ


Super Elite (Last Title)


Joined: 25 Nov 2004
Posts: 3976
Posted: 05 Jul 2009 01:29:38 pm    Post subject:
See? Now that code is small enough for me to bother typing it into my calculator! Razz

Last edited by Guest on 05 Jul 2009 01:30:15 pm; edited 1 time in total
Back to top
woodswolf


Advanced Newbie


Joined: 26 Feb 2009
Posts: 53
Posted: 07 Jul 2009 05:21:39 am    Post subject:
arghh... I'm being attacked by 2 sides :biggrin: Neutral
Back to top
dxfan101010


Member


Joined: 31 Mar 2008
Posts: 194
Posted: 07 Jul 2009 03:44:06 pm    Post subject:
Well they are telling the truth
Back to top
Display posts from previous:   
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Random Pieces of Code
    » Goto page Previous  1, 2, 3  Next
» View previous topic :: View next topic  
Page 2 of 3 » All times are UTC - 5 Hours

 

Advertisement