- Timestamp:
- Feb 13, 2013 9:58:28 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
sans/Dev/trunk/NCNR_User_Procedures/Reduction/SANS/CatVSTable.ipf
r886 r898 605 605 End 606 606 607 //writes out the CATalog information to the notebook named CatWin (which must exist) 608 //fname is the full path for opening (and reading) information from the file 609 //which alreay was found to exist. sname is the file;vers to be written out, 610 //avoiding the need to re-extract it from fname. 611 // 612 // this is just for 1D (not Raw) data files 613 Function Write_ABSHeader_toNotebook(fname,sname) 614 String fname,sname 615 616 String textstr,temp,lbl,date_time 617 Variable ctime,lambda,sdd,detcnt,cntrate,refNum,trans,thick 618 619 //read the file creation date 620 date_time = getFileCreationDate(fname) 621 622 // read the sample.label text field 623 lbl = getSampleLabel(fname) 624 625 //read the counting time (integer) 626 ctime = getCountTime(fname) 627 628 //read the reals 629 630 //detector count + countrate 631 detcnt = getDetCount(fname) 632 cntrate = detcnt/ctime 633 634 //wavelength 635 lambda = getWavelength(fname) 636 637 //SDD 638 sdd = getSDD(fname) 639 640 //Transmission 641 trans = getSampleTrans(fname) 642 643 //Thickness 644 thick = getSampleThickness(fname) 645 646 temp = "FILE: " 647 Notebook CatWin,textRGB=(0,0,0),text=temp 648 Notebook CatWin,fstyle=1,text=sname 649 temp = "\t\t"+date_time+"\r" 650 Notebook CatWin,fstyle=0,text=temp 651 temp = "LABEL: "+lbl+"\r" 652 Notebook CatWin,text=temp 653 temp = "COUNTING TIME: "+num2str(ctime)+" secs \t\tDETECTOR COUNT: "+num2str(detcnt)+"\r" 654 Notebook CatWin,text=temp 655 temp = "WAVELENGTH: "+num2str(lambda)+" A \tSDD: "+num2str(sdd)+" m \t" 656 temp += "DET. CNT. RATE: "+num2str(cntrate)+" cts/sec\r" 657 Notebook CatWin,text=temp 658 temp = "TRANS: " 659 Notebook CatWin,text=temp 660 temp = num2str(trans) 661 Notebook CatWin,textRGB=(50000,0,0),fStyle = 1,text=temp 662 temp = "\t\tTHICKNESS: " 663 Notebook CatWin,textRGB=(0,0,0),fStyle = 0,text=temp 664 temp = num2str(thick) 665 Notebook CatWin,textRGB=(50000,0,0),fStyle = 1,text=temp 666 temp = " cm\r\r" 667 Notebook CatWin,textRGB=(0,0,0),fStyle = 0,text=temp 668 End 669 607 670 608 671 //****************
Note: See TracChangeset
for help on using the changeset viewer.