Re: Welcome July 16, 2012 11:12AM |
Registered: 11 years ago Posts: 10 |
Re: Welcome July 16, 2012 01:03PM |
Admin Registered: 11 years ago Posts: 351 |
Re: Welcome July 18, 2012 01:03AM |
Registered: 11 years ago Posts: 10 |
function data2() dim i for i = 0 to 128 if i < 64 then y#(i) = 10.0 else y#(i) = -10.0 endif next i endf
function plot1() dim i,j dim max#,min#,s#,t#,f# print "\r\n\r\n\r\n" data2() max#=0 min#=0 for i = 1 to 128 if y#(i) > max# max#=y#(i) endif if y#(i) < min# min#=y#(i) endif next i s#=80.0/(max#-min#) //******************************************************************** // The following loop runs until i=45 then there is a stack overflow //******************************************************************** for i = 0 to 50 yy(i)=81.0 - ( max#-y#(i))*s# print i,"\r\n" next i endf
function plot2() dim i,j dim max#,min#,s#,t#,f# print "\r\n\r\n\r\n" data2() max#=0 min#=0 for i = 1 to 128 if y#(i) > max# max#=y#(i) endif if y#(i) < min# min#=y#(i) endif next i s#=80.0/(max#-min#) //******************************************************************** // By splitting the calculation on two lines the loop runs OK ??? //******************************************************************** for i = 0 to 50 f#= max#-y#(i) yy(i)=81.0 - f#*s# print i,"\r\n" next i endf
Re: Welcome July 19, 2012 08:18AM |
Admin Registered: 11 years ago Posts: 351 |
BV500 Forum? July 22, 2012 08:00AM |
Registered: 11 years ago Posts: 4 |
Re: BV500 Forum? July 22, 2012 10:16AM |
Admin Registered: 11 years ago Posts: 351 |
Re: BV500 Forum? July 22, 2012 12:54PM |
Registered: 11 years ago Posts: 4 |