Recent Posts
AriMB 07 Feb 2013 17:22
AriMB

Included page "member:arimb" does not exist (create it now)


Guest

clarification:
what i meant would look something like this

[input]

[divide string into segments of 5]

[compare segments of 5 to 11111 (A) all the way to 00110 (Z)]
       A:11111
       B:11110
       C:11101
...11100,11011,11010,11001,11000,10111,10110,10101,10100,10011,10010,10001,10000,01111,01110,01101,01100,01011,01010,01001,01000,00111,00110

[add new letter to existing string]

[output string once done]

Attachment:

Timothy Foster 07 Feb 2013 03:56
Timothy Foster

Admin

WAC

Guest

I've got CSS in two places: some on a spreadsheet somewhere and the rest on each page that the CSS is specific to. That's why you are able to see some stuff and not see others. The spreadsheet passes through wdfiles, but the page-specific stuff does not.

Attachment:

AnonymousBoba Foxx 07 Feb 2013 01:22
Anonymous

Included page "member:anonymous" does not exist (create it now)

Boba Foxx
Guest

Why is it that the Css for the board index and actually displaying the posts (like on this page) use different Css sheets? The board index page looks just like it should (sans avatar images), but the actual thread pages don't load the css.

Attachment:

AnonymousBoba Foxx 07 Feb 2013 01:13
Anonymous

Included page "member:anonymous" does not exist (create it now)

Boba Foxx
Guest

Oh, that's what had me confused. Before, you said

θ-2x→A

but you meant

2X-θ→A

Which is basically the solve() line simplified.

I probably would've done that if I'd optimized it much; I'd just woken up from a move in history and was still kinda sleepy, but I was more concerned with getting it to work, rather than getting it to work quickly.

Attachment:

burr 07 Feb 2013 00:36
burr

Admin

FWDAC

Guest

It's nice to see you again :) What got you interested in programming? Why do you say you're terrible at optimizing?

Attachment:

simonalford42 07 Feb 2013 00:13
simonalford42

Included page "member:simonalford42" does not exist (create it now)


Guest

darn… I don't know how to go about doing this problem. They never teach us any probability at my school >:( I don't think I'd be able to do it anyway, though.

Attachment:

Timothy Foster 06 Feb 2013 23:52
Timothy Foster

Admin

WAC

Guest

Right, which is why I said it needs to be negated; try 2X-θ→A instead of the solve line.

Besides that, good work (:

Here's what I came up with, where Ans is the displayed percentage:

:2Ans-50.5+.01(101-2Ans)abs(Ans-50

Attachment:

AnonymousBoba Foxx 06 Feb 2013 23:49
Anonymous

Included page "member:anonymous" does not exist (create it now)

Boba Foxx
Guest

Another correction (I really should get into the habit of testing my code more since I haven't written much recently >.>

:If X<5 or X=31
:Stop
:Sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",X,1

should be

:If X<4
:Stop
:output(2,1,Sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",32-X,1

Attachment:

AnonymousBoba Foxx 06 Feb 2013 23:46
Anonymous

Included page "member:anonymous" does not exist (create it now)

Boba Foxx
Guest

It looks like what you're doing is inverted binary (instead of 1 being on and 0 being off, you have 1 represent off and 0 be on).
The code I wrote allows you to input a 5 character string of 1's and 0's and it inverts it to give the intended answer (as you said, 11111 is A).

Attachment:

AnonymousBoba Foxx 06 Feb 2013 23:44
Anonymous

Included page "member:anonymous" does not exist (create it now)

Boba Foxx
Guest

Yeah, I never tested anything below 25 (which is where the abs(A breaks for me); your code works perfectly (It should have been ":If abs(A>100)) or (A<0")
If I change the solve( line, then I get way different answers than what I should (like 0 when I input 85, whereas before I got 95.35).

Attachment:

Timothy Foster 06 Feb 2013 21:59
Timothy Foster

Admin

WAC

Guest

Could the solve() line be simplified to θ-2X→A (which actually needs to be negated for the algorithm to actually work)?

I don't have a calculator that operates TI-Basic anymore, so I transcribed it to C++. It seems to work for numbers greater than 50, but for numbers less than 50, it estimates low (ie. 0 outputs -50.5). I assumed that abs(A>100 was actually 100<abs(a.

I can get it to work by changing:

:If abs(A>100
:100(A>0)→A


to

:If A>E2
:E2→A
:If A<0
:DelVar A

Attachment:

AriMB 06 Feb 2013 20:17
AriMB

Included page "member:arimb" does not exist (create it now)


Guest

Oops…i forgot to login. The above post is mine

Attachment:

Anonymous 06 Feb 2013 20:17
Anonymous

Included page "member:anonymous" does not exist (create it now)


Guest

could you please explain what this does? Because I do not think we are thinking of the same thing

Attachment:

AnonymousBoba Foxx 06 Feb 2013 19:56
Anonymous

Included page "member:anonymous" does not exist (create it now)

Boba Foxx
Guest

Correction:

:Delvar B
:Input "String?",str1
:if 5≠length(str1
:stop
:For(Z,1,5
:B+1(sub(str1,6-Z,1)=2^(Z-1
:end
Ans→X    //not sure if needed, replace the x's on the following lines with Ans if it's not
:If X<5 or X=31
:Stop
:Sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",X,1

Attachment:

Anonymous 06 Feb 2013 19:42
Anonymous

Included page "member:anonymous" does not exist (create it now)


Guest

Hello AriMB! Nice to see a new face around! What would you say is your best program?

Attachment:

AnonymousBoba Foxx 06 Feb 2013 18:57
Anonymous

Included page "member:anonymous" does not exist (create it now)

Boba Foxx
Guest

If it is inverted binary, then this should do it:

:Delvar B
:Input "String?",str1
:if 5≠length(str1
:stop
For(Z,1,5
:B+1(sub(str1,Z,1)=2^(Z-1
end

should work :)

Attachment:

Anonymous 06 Feb 2013 18:53
Anonymous

Included page "member:anonymous" does not exist (create it now)


Guest

Sooo…
Reverse binary?

Attachment:

AriMB 06 Feb 2013 17:34
AriMB

Included page "member:arimb" does not exist (create it now)


Guest

I know I'm a little late, as I have been seen lurking around the forum for a month or so, but I would like to introduce myself. AriMB is my actual name. I am 14. I am fairly decent at programming, but am terrible at optimizing. I currently know a little of Java, C++, Objective C, and a fair amount of TI BASIC. I'm not sure what else to say, so I'm gonna stop here.

Oh wait, I almost forgot…
…hi!

Attachment:

AriMB 06 Feb 2013 17:29
AriMB

Included page "member:arimb" does not exist (create it now)


Guest

Wikidot community,
I have an idea to make a program that takes a string of 1's and 0's in sets of five and translates them into letters so that A is 11111, B is 11110, C is 11101, D is 11100, all the way to Z. Then output this string of letters as a string. Please paste the text as a reply.

Goodluck!

Attachment:

AnonymousBoba Foxx 06 Feb 2013 17:27
Anonymous

Included page "member:anonymous" does not exist (create it now)

Boba Foxx
Guest
:Input "Prob? (0-100) ",X
:Clrhome:Output(1,1,"Working
:For(θ,1,100
:solve((X-(θ-A)/2),A,{-200,200}
:Ans→A
:If abs(A>100
:100(A>0)→A
:A→L₁(θ
:Output(2,1,θ
:End
:100→dim(L₁
:sum(L₁
:Clrhome:Output(1,1,Ans
:Output(2,1,"/10000

Attachment:

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Noncommercial 2.5 License.