The Origin Forum
File Exchange
Try Origin for Free
The Origin Forum
Home | Profile | Register | Active Topics | Members | Search | FAQ | Send File to Tech support
Username:
 Password:
Save Password
Forgot your Password? | Admin Options

 All Forums
 Origin Forum
 Origin Forum
 AfterFitting code: Compatibility 8.5.1 / 8.1		  New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic Lock Topic Edit Topic Delete Topic New Topic Reply to Topic

millot.marius

USA
38 Posts
Posted - 10/25/2011 :  7:32:51 PM  Show Profile  Edit Topic  Reply with Quote  View user's IP address  Delete Topic
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


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;



Origin Ver. and Service Release (Select Help-->About Origin): 8.5.1
Operating System:xp

Hideo Fujii

USA
1582 Posts
Posted - 10/26/2011 :  10:52:41 AM  Show Profile  Edit Reply  Reply with Quote  View user's IP address  Delete Reply
Hi,

You have posted the same question both in this general Origin forum and in LabTalk forum. Your post in LabTalk forum has been replied, and this thread is not necessary to be continued.

--Hideo Fujii
OriginLab
Go to Top of Page
  Previous Topic Topic Next Topic Lock Topic Edit Topic Delete Topic New Topic Reply to Topic
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
The Origin Forum © 2020 Originlab Corporation Go To Top Of Page
Snitz Forums 2000