Don't have an account? Register now to chat, post, use our tools, and much more.
Latest Headlines
Online Users
There are 108 users online: 3 members, 77 guests and 28 bots.
Members: Ashbad, flyingfisch, gudenau.
Bots: VoilaBot (1), MSN/Bing (1), Magpie Crawler (4), VoilaBot (1), Googlebot (19), MSN/Bing (2).
RSS & Social Media
SAX
You must log in to view the SAX chat widget
|
| Which display do you think looks better? |
| The big letters (like on the HomeScreen) |
|
44% |
[ 8 ] |
| The small letters (like on the GraphScreen) |
|
55% |
[ 10 ] |
|
| Total Votes : 18 |
|
| Author |
Message |
|
TI_Coder
Advanced Member
Joined: 30 Jun 2010
Posts: 175
Location: Elverta, CA USA
|
 Posted: 29 Apr 2011 08:19:56 pm Post subject: |
 |
|
Here is the full source code for prgmINPUT...
Code:
:"Version: 4.29.11
:" →Str1
:Repeat Z=105 and 1<length(Str1
:Text(∟INPUT(2),0,Str0,":",Str1,"
:Repeat Z
:getKey→Z:End
:If Z=23 and 1<length(Str1
:sub(Str1,1,length(Str1)-1→Str1
:If Z=32
:Str1+"X→Str1
:If Z=45 and 1<length(Str1
:" →Str1
:If Z=21
:1→Y
:If Z>50 and Z<105 and Z≠62 and Z≠91 and Y=0
:Str1+sub("{^-1}sin(cos(tan(^{^2}F()/log(789*ln(456-F123+F0.{-}F",10fPart(.1Z)+5iPart(.1Z-5),1→Str1
:If Z>50 and Z<105 and Z≠62 and Z≠91 and Z≠41 and Z≠95 and Z≠102 and Y=1
:Then
:Str1+sub("Fsin{^-1}cos{^-1}tan{^-1}{pi}sqrt(F{}{e}10^(uvw[{e}^({L4}{L5}{L6}]F{L1}{L2}{L3}FFF{i}AnsF",10fPart(.1Z)+5iPart(.1Z-5),1→Str1
:0→Y
:End
:End
:sub(Str1,2,length(Str1)-1→Str1
Please feel free to suggest any optimizations and/or ideas. Thanks
_________________
 
 
 
*My programs are NEVER finished |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9061
Location: Sol System
|
| Posted: 29 Apr 2011 08:29:02 pm Post subject: |
|
|
Code:
:If Z>50 and Z<105 and Z≠62 and Z≠91 and Z≠41 and Z≠95 and Z≠102 and Y=1
Might be turned into
Code:
:If Z>50 and Z<105 and Y and not(max(Z={62,91,41,95,102
Not tested, so back the program up before editing with that, or wait for someone else to say yay or nay on it.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
TI_Coder
Advanced Member
Joined: 30 Jun 2010
Posts: 175
Location: Elverta, CA USA
|
| Posted: 29 Apr 2011 08:30:15 pm Post subject: |
|
|
Alright. I'll try it right now
_________________
*My programs are NEVER finished |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9061
Location: Sol System
|
| Posted: 29 Apr 2011 08:32:37 pm Post subject: |
|
|
If it isn't that, it is something really close. :p I've been up a long while, and I have a headache..
Nothing else really stands out to me at this moment..
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
TI_Coder
Advanced Member
Joined: 30 Jun 2010
Posts: 175
Location: Elverta, CA USA
|
| Posted: 29 Apr 2011 08:33:25 pm Post subject: |
|
|
I tried it, and it works. Thanks, tifreak8x
_________________
*My programs are NEVER finished |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9061
Location: Sol System
|
| Posted: 29 Apr 2011 08:34:38 pm Post subject: |
|
|
Sweet. Did it drop the program size any at all?
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
TI_Coder
Advanced Member
Joined: 30 Jun 2010
Posts: 175
Location: Elverta, CA USA
|
| Posted: 29 Apr 2011 08:35:57 pm Post subject: |
|
|
0x5. I don't think so. But, I'll leave it like that
_________________
*My programs are NEVER finished |
|
| Back to top |
|
|
KermMartian
Site Admin
Joined: 14 Mar 2005
Posts: 55742
Location: Earth, Sol, Milky Way
|
| Posted: 29 Apr 2011 08:44:07 pm Post subject: |
|
|
| TI_Coder wrote: | | 0x5. I don't think so. But, I'll leave it like that |
It's faster than using all the conditional statements, as you can easily prove to yourself with a timed loop. 
_________________
 |
|
| Back to top |
|
|
TI_Coder
Advanced Member
Joined: 30 Jun 2010
Posts: 175
Location: Elverta, CA USA
|
| Posted: 29 Apr 2011 08:51:08 pm Post subject: |
|
|
Well, with this prgm, it wouldn't really make a perceivable difference. Though, I will leave it on there. Thanks again, tifreak
_________________
*My programs are NEVER finished |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9061
Location: Sol System
|
| Posted: 29 Apr 2011 08:55:09 pm Post subject: |
|
|
Not a problem, glad I am still awake enough to be of help. :p
Now watch, Weregoose will stride in here and compress the program to roughly half its size..
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
TI_Coder
Advanced Member
Joined: 30 Jun 2010
Posts: 175
Location: Elverta, CA USA
|
| Posted: 29 Apr 2011 08:55:55 pm Post subject: |
|
|
At this point, I seriously doubt that's possible
_________________
*My programs are NEVER finished |
|
| Back to top |
|
|
Weregoose
Cemetech Expert
Joined: 23 Oct 2009
Posts: 463
|
| Posted: 29 Apr 2011 09:25:54 pm Post subject: |
|
|
Well, you just sort of dodged what I suggested. I'm glad it got you thinking, but using an extra string/condition is totally unnecessary.
Here is an example routine. Write it in a new program to get a sense of what I was talking about in my last post.
Code:
DelVar J">→Str1
ClrHome
Repeat Z=105
Output(1,1,J
Output(2,1,Str1+"· // [2nd] [Y=] [◄] [3]
Repeat Ans
getKey→Z
End
If Ans=32 or Ans>50
Then
sub("{^-1}sin(cos(tan(^*X0.{-}Fln(456-{^2},()/F123+log(789Fsin{^-1}(cos{^-1}(tan{^-1}({pi}[FF{i}FF{e}^({L4}{L5}{L6}]sqrt({E}{}{e}F{L1}{L2}{L3}F10^(uvw",25fPart(.04Ans)+6(Ans>55)+30J,1
If Ans≠"F
DelVar JStr1+Ans→Str1
End
If Z=21
not(J→J
End
@tifreak8x, I did optimize an earlier version of his program, but very little of that structure was preserved.
_________________
Common Errors in English · How To Ask Questions The Smart Way |
|
| Back to top |
|
|
tifreak8x
Guru
Joined: 16 Mar 2005
Posts: 9061
Location: Sol System
|
| Posted: 29 Apr 2011 09:32:48 pm Post subject: |
|
|
Ah, very nice weregoose. My comment on you coming in like that though was of course, a friendly jab at how awesome your optimizing abilities are.
_________________
Projects: AOD Series: 70% | FFME: 80% | Pokemon: 18% | RPGSK: 60% | Star Trek: 70% | Star Trek 83+: 40% | TI-City: 5%
Look here for Assembly Resources. |
|
| Back to top |
|
|
KermMartian
Site Admin
Joined: 14 Mar 2005
Posts: 55742
Location: Earth, Sol, Milky Way
|
| Posted: 30 Apr 2011 09:12:23 am Post subject: |
|
|
Very nice, Weregoose. I'm a bit confused, because I thought you had already presented nearly that same optimized version earlier in the topic...
_________________
|
|
| Back to top |
|
|
Weregoose
Cemetech Expert
Joined: 23 Oct 2009
Posts: 463
|
|
| Back to top |
|
|
KermMartian
Site Admin
Joined: 14 Mar 2005
Posts: 55742
Location: Earth, Sol, Milky Way
|
| Posted: 30 Apr 2011 07:28:28 pm Post subject: |
|
|
| Weregoose wrote: | | My earlier version didn't let the user hit the 2nd button to switch the behavior of all the keys. |
Ah, thanks for the clarification, but lest I be misunderstood, I was criticizing TI_Coder for not carefully reading all of our posts (including yours) on the topic, but perhaps that was unfair to him.
*click*
_________________
|
|
| Back to top |
|
|
TI_Coder
Advanced Member
Joined: 30 Jun 2010
Posts: 175
Location: Elverta, CA USA
|
| Posted: 14 May 2011 01:05:38 am Post subject: |
|
|
NEW PROGRAM!!!
Ok, I've been working on a new prgm lately, called prgmTRIANGLE. This will draw a triangle, and then allow the user to change the location of each point of the triangle, all while returning realtime data like: point location (x,y), line length (between points), and the angle of each line. So far, the user can edit the location of a single point. All the data returns are working great except for the angles.
Does anyone have any ideas/suggestions? Maybe you want to see the source code and help me out a little?
_________________
*My programs are NEVER finished |
|
| Back to top |
|
|
TI_Coder
Advanced Member
Joined: 30 Jun 2010
Posts: 175
Location: Elverta, CA USA
|
| Posted: 16 May 2011 04:14:44 pm Post subject: |
|
|
NEW ARCHIVE!!!
The last archive was lost somewhere. You can see on the recent files list, but clicking on it gives no result. I will post the url to the new archive on the first post of this thread as soon as it is accepted
_________________
*My programs are NEVER finished |
|
| Back to top |
|
|
calcman
Advanced Member
Joined: 21 Mar 2011
Posts: 283
|
| Posted: 16 May 2011 04:16:32 pm Post subject: |
|
|
Similar to cabri Jr.. app?
_________________
-Calcman |
|
| Back to top |
|
|
TI_Coder
Advanced Member
Joined: 30 Jun 2010
Posts: 175
Location: Elverta, CA USA
|
| Posted: 16 May 2011 04:22:08 pm Post subject: |
|
|
@calcman:
What is similar to what?
_________________
*My programs are NEVER finished |
|
| Back to top |
|
|
|
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
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
© Copyright 2000-2013 Cemetech & Kerm Martian :: Page Execution Time: 0.039247 seconds.
|
![[t]](/forum/templates/Cemetech6/images/twitter.png)
![[t]](/forum/templates/Cemetech6/images/fb.png)
![[RSS]](/forum/templates/Cemetech6/images/rss.png)
