All Forums  Origin Forum  Origin Forum  AfterFitting code: Compatibility 8.5.1 / 8.1

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 millot.marius[/i] [br]I just upgraded to 8.5.1 from 8.5. i cannot use an after fitting code that works under 8.1 to extract fit results data in a worksheet see code below it looks like no new wks is created ... any thought ? Many thanks [i]if(exist(Rubyfit)!=2) {newbook name:=Rubyfit sheet:=1 option:=1 chkname:=1; Rubyfit!wks.col1.name$= Dataset; Rubyfit!wks.col2.name$= Peak1t; wks.addcol(); Rubyfit!wks.col3.name$= width 1; wks.addcol(); Rubyfit!wks.col4.name$= Peak 2; wks.addcol(); Rubyfit!wks.col5.name$= width 2; wks.addcol(); Rubyfit!wks.col6.name$= P; wks.addcol(); Rubyfit!wks.col7.name$= Pressure; } // Get the tree from the last Report Sheet (this fit) getresults iw:=__REPORT$; // Assign ranges to the two columns in 'Rubyfit' range ra1 = [Rubyfit]1!1; range ra2 = [Rubyfit]1!2; range ra3 = [Rubyfit]1!3; range ra4 = [Rubyfit]1!4; range ra5 = [Rubyfit]1!5; range ra6 = [Rubyfit]1!6; range ra7 = [Rubyfit]1!7; // Get the current row size and increment by 1 size = ra1.GetSize(); size++; // Write the Input data range in first column ra1[size]$ = ResultsTree.Input.R2.C2$; // and the Peak Center value in the second ra2[size] = ResultsTree.Parameters.xc.Value; ra3[size] = ResultsTree.Parameters.w.Value; ra4[size] = ResultsTree.Parameters.xc__2.Value; ra5[size] = ResultsTree.Parameters.w__2.Value; ra6[size] = (ra4[size]-694.28)/0.365; ra7[size] =int(ra6[size]*10)/10; col(6)[U]$ = GPa; col(7)[U]$ = GPa; col(2)[U]$ = nm; col(3)[U]$ = nm; [/i] Origin Ver. and Service Release (Select Help-->About Origin): 8.5.1 Operating System:xp [/quote]   Check here to include your profile signature. Check here to subscribe to this topic.