New User - Programming

*To*: mathgroup at smc.vnet.net*Subject*: [mg52507] New User - Programming*From*: deanwilliams at mac.com (Dean Williams)*Date*: Tue, 30 Nov 2004 05:24:13 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

I am a new user who is well and truly stuck. Any help would be greatly appreciated. I have two lists, a and b, that when compared, will produce a third list of signals. This third list is then summed to get a cumulative total of the signals. The rules are fairly simple. If a = b, the signal is 0, if a > b, the signal is 1 and finally, if a < b, then the signal is ?1. a={5,6,3,2,8,2}; b={5,4,1,3,9,4}; c={a,b}; p=0; Fun[t_,u_]/;t==u :=0; Fun[t_,u_]/;t>u:=1; Fun[t_,u_]/;t<u:=-1; signal=Map[ (Fun[#[[1]],#[[2]]])&,Transpose[c]]; c4={signal}; cumTotal=Flatten[Map[p+={Last[#]} &,Transpose[c4]]]; TableForm[{a,b,signal,total},TableDirections->Row, TableHeadings->{{"a","b","Signal","Cumm.Total"},None}, TableSpacing->{4,4,4,4,4}] a b Signal Cum.Total 5 5 0 0 6 4 1 1 3 1 1 2 2 3 -1 1 8 9 -1 0 2 4 -1 -1 I want to modify slightly how the signal is generated. The rules are the same except that if the cumulative total is already 1 or -1, then no new signal is generated unless the new signal would make the cumulative total move back towards zero. Ideally, I am looking to modify my code, so it produces, signal = {0,1,0,-1,-1,0} and cumTotal = {0,1,1,0,-1,-1}.The maximum size of the cumulative total need not be 1, but rather any value that is chosen as a limit. This has been causing me a great deal of grief and I would greatly welcome any help and suggestions. Given my lack of experience, I am sure that there is a more efficient way to tackle this type of problem, especially as I am dealing with many large lists. Regards Dean Williams