All Forums  Origin Forum for Programming  Forum for Origin C  integrate graphs

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

Screensize: 640 x 480 800 x 600 1024 x 768 1280 x 1024 UserName: Password: Anti-Spam Code: Format Mode: Basic  Help  Prompt  Format: Font Andale Mono Arial Arial Black Book Antiqua Century Gothic Comic Sans MS Courier New Georgia Impact Lucida Console Script MT Bold Stencil Tahoma Times New Roman Trebuchet MS Verdana   Size 1 2 3 4 5 6   Color Black Red Yellow Pink Green Orange Purple Blue Beige Brown Teal Navy Maroon LimeGreen Message: * HTML is OFF * Forum Code is ON Smilies [quote][i]Originally posted by Schippi[/i] [br]Origin Ver. and Service Release (Select Help-->About Origin): 9.0 Operating System: Windows 7 Hello everyone, this is my problem: I have got a workbook with about 20 worksheets which I have to integrate and then to form the average value. The program I have got works but it records everything in 1 workbook and within this workbook in 1 worksheet. How can it be managed to get several worksheets. Lots of thanks in advance! // BEGIN SCRIPT // PROMPT for X range and calculation method ix1 = 1.0; ix2 = 2322.0; choice$ = Math Absolute; ichoice = 1; getn (From) ix1 (To) ix2 (Method) ichoice:choice$ (Integrate all plots); // Setup ichoice--; newbook name:=Results; layer.name$ = Areas; range raData = 1; range raArea = 2; count = 0; //range raAverage = 3; cnt =0; average= 0; // Loop over all graphs then all plots in each graph doc -e P { doc -e DY { count++; range -w raC = %C; xi1 = xindex(ix1,%C); xi2 = xindex1(ix2,%C); integ1 iy:=raC[xi1:xi2] baseline:=0 type:=$(ichoice) area:=myarea; raData[count]$ = %C[x$(ix1):$(ix2)]; raArea[count] = myarea; cnt = cnt +myarea ; //raAverage [count] = cnt; } } average= cnt / count; raData[count + 1]$ = Mittelwert; raArea[count + 1] = average; [/quote]   Check here to include your profile signature. Check here to subscribe to this topic.