Ignore:
Timestamp:
Feb 3, 2009 3:57:08 PM (14 years ago)
Author:
srkline
Message:

A large number of changes and fixes:

--168/169/170: panels and windows are now at least on-screen for all packages. Tested
with 1024x768 resolution.
-- closed ticket 176 which was a question about resampling data to generate error estimates
on fitted parameters. Useful for reflectometry, not needed for SANS.
--157: bug of low Q power law extrapolation in Invariant fixed by avoiding q==0
--178/180: Tr/Tw? notification in USANS. log/lin checkbox for display.
--167: saveData checkbox for USANS not behaving well. turns off/on better now.
--197: changed all (?) 1D writing routines to enforce 26 characters as the maximum length
to make sure that file loading will never exceed 31 characters

-- lots of changes to MonteCarlo? and SASCALC

  • SASCALC now enforces *exact* lens conditions, rather than a close approximation
  • improved MonteCarlo? interface panel
  • added writer for simlulated VAX binary data file
  • can save 2D as ABS or raw counts
  • can freeze w/no offset
File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Analysis/WriteModelData_v40.ipf

    r421 r472  
    5656end 
    5757 
     58// always asks for a file name 
    5859Function fWriteModelData(xwave,ywave,delim,term) 
    5960        Wave xwave,ywave 
     
    6162         
    6263        String formatStr="",fullpath="" 
    63         Variable refnum 
     64        Variable refnum,dialog=1 
     65         
    6466        //setup delimeter and terminator choices 
    6567        If(cmpstr(delim,"tab")==0) 
     
    8082        Endif 
    8183         
    82         Open/D/T="????" refnum as NameofWave(ywave)+".txt"      //doesn't open file 
    83         If(cmpstr(S_filename,"")==0) 
    84                 //user cancel, don't write out a file 
    85                 Close/A 
    86                 Abort "no data file was written" 
     84        if(dialog) 
     85                PathInfo/S catPathName 
     86                fullPath = DoSaveFileDialog("Save data as",fname=NameofWave(ywave)+".txt") 
     87                If(cmpstr(fullPath,"")==0) 
     88                        //user cancel, don't write out a file 
     89                        Close/A 
     90                        Abort "no data file was written" 
     91                Endif 
     92                //Print "dialog fullpath = ",fullpath 
    8793        Endif 
    88         fullpath=S_filename 
     94         
    8995        Open refnum as fullpath 
    9096         
Note: See TracChangeset for help on using the changeset viewer.