Ignore:
Timestamp:
Feb 4, 2010 10:21:53 PM (13 years ago)
Author:
srkline
Message:

1 - added function in HPMSA to calculate U(r). See the function for details of usage.

2 - fixed bug in NSORT to trim the _res wave at the point when it is loaded.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/NSORT.ipf

    r628 r629  
    133133                Duplicate/O $(typPrefix+"_res") $(trimPrefix+"_res") 
    134134                //Trimmed data set 
    135                 Duplicate/O $(typPrefix+"_q"),$(trimPrefix+"_q") 
    136                 Duplicate/O $(typPrefix+"_i"),$(trimPrefix+"_i") 
    137                 Duplicate/O $(typPrefix+"_s"),$(trimPrefix+"_s") 
     135//              Duplicate/O $(typPrefix+"_q"),$(trimPrefix+"_q") 
     136//              Duplicate/O $(typPrefix+"_i"),$(trimPrefix+"_i") 
     137//              Duplicate/O $(typPrefix+"_s"),$(trimPrefix+"_s") 
    138138                WaveStats/Q $(typPrefix+"_q")                   //get info about the original q-values read in 
    139139                pt = V_npnts-endPts 
    140                 DeletePoints pt,endPts,$(trimPrefix+"_q"),$(trimPrefix+"_i"),$(trimPrefix+"_s") //delete end points first 
    141                 DeletePoints 0,begPts,$(trimPrefix+"_q"),$(trimPrefix+"_i"),$(trimPrefix+"_s")  //then delete points from beginning                      
     140                DeletePoints pt,endPts,$(trimPrefix+"_q"),$(trimPrefix+"_i"),$(trimPrefix+"_s"),$(trimPrefix+"_res")    //delete end points first 
     141                DeletePoints 0,begPts,$(trimPrefix+"_q"),$(trimPrefix+"_i"),$(trimPrefix+"_s"),$(trimPrefix+"_res")     //then delete points from beginning                      
    142142        else 
    143143                //Assume 
     
    149149                Duplicate/O $(typPrefix+"_s") $(trimPrefix+"_s")                 
    150150                //Trimmed data set 
    151                 Duplicate/O $(typPrefix+"_q"),$(trimPrefix+"_q") 
    152                 Duplicate/O $(typPrefix+"_i"),$(trimPrefix+"_i") 
    153                 Duplicate/O $(typPrefix+"_s"),$(trimPrefix+"_s") 
     151//              Duplicate/O $(typPrefix+"_q"),$(trimPrefix+"_q") 
     152//              Duplicate/O $(typPrefix+"_i"),$(trimPrefix+"_i") 
     153//              Duplicate/O $(typPrefix+"_s"),$(trimPrefix+"_s") 
    154154                WaveStats/Q $(typPrefix+"_q")                   //get info about the original q-values read in 
    155155                pt = V_npnts-endPts 
     
    12661266                        ControlInfo/W=NSORT_Panel PreviewCheck 
    12671267                        if( V_Value==0 )                //if zero skip the preview and write out the file 
    1268                                 //If any of them have three columns write three column data 
    1269                                 err=WriteNSORTedFile(q12,i12,sig12,name1,name2,name3,normToStr,norm12,norm23) 
     1268                                res12[][0] = sq12[p] 
     1269                                res12[][1] = qb12[p] 
     1270                                res12[][2] = fs12[p] 
     1271                                err=WriteNSORTedFile(q12,i12,sig12,name1,name2,name3,normToStr,norm12,norm23,res=res12) 
    12701272                        endif 
    12711273                        // always clean up waves before exiting 
Note: See TracChangeset for help on using the changeset viewer.