Changeset 1030
- Timestamp:
- Mar 24, 2017 2:13:01 PM (6 years ago)
- Location:
- sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS
- Files:
-
- 1 added
- 6 edited
-
VC_DetectorBinning_Q.ipf (modified) (4 diffs)
-
VSANS_Includes.ipf (modified) (1 diff)
-
V_Combine_1D.ipf (added)
-
V_DIVUtils.ipf (modified) (1 diff)
-
V_DataPlotting.ipf (modified) (22 diffs)
-
V_IQ_Utilities.ipf (modified) (2 diffs)
-
V_Protocol_Reduction.ipf (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/VC_DetectorBinning_Q.ipf
r1022 r1030 1321 1321 // and if it is, it will be removed 1322 1322 // 1323 Function ClearAllIQIfDisplayed(type )1324 String type 1323 Function ClearAllIQIfDisplayed(type,winNameStr) 1324 String type,winNameStr 1325 1325 1326 1326 // String folderList = ksWorkFolderListShort … … 1330 1330 for(ii=0;ii<ItemsInList(ksWorkFolderListShort);ii+=1) 1331 1331 fldr = StringFromList(ii, ksWorkFolderListShort, ";") 1332 ClearIQIfDisplayed(fldr,type )1332 ClearIQIfDisplayed(fldr,type,winNameStr) 1333 1333 endfor 1334 1334 // just in case … … 1338 1338 end 1339 1339 1340 Function ClearIQIfDisplayed(fldr,type )1341 String fldr,type 1340 Function ClearIQIfDisplayed(fldr,type,winNameStr) 1341 String fldr,type,winNameStr 1342 1342 1343 1343 SetDataFolder $("root:Packages:NIST:VSANS:"+fldr) … … 1349 1349 endif 1350 1350 else 1351 CheckDisplayed/W= V_1D_Data$("iBin_qxqy_"+type)1351 CheckDisplayed/W=$winNameStr $("iBin_qxqy_"+type) 1352 1352 if(V_flag==1) 1353 RemoveFromGraph/W= V_1D_Data$("iBin_qxqy_"+type)1353 RemoveFromGraph/W=$winNameStr $("iBin_qxqy_"+type) 1354 1354 endif 1355 1355 endif -
sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/VSANS_Includes.ipf
r1029 r1030 91 91 #include "V_Marquee_Operations" 92 92 #include "V_RealTimeUpdate" 93 #include "V_Combine_1D" 93 94 94 95 96 -
sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_DIVUtils.ipf
r1025 r1030 14 14 // 15 15 // 16 17 18 19 /// TODO: 20 // -- this is the basic renormalization that is done in PRODIV. see that file for all of the 21 // details of how it's used 22 // -- update to VSANS file locations and data reads 23 // -- expand this to do a basic renormalization of all 9 panels, and move the data into the 24 // appropriate locations for saving as a DIV file. 25 // 26 // 27 28 //works on the data in "type" folder (expecting data to be reduced to the COR level) 29 //sums all of the data, and normalizes by the number of cells (=pixelX*pixelY) 30 // calling procedure must make sure that the folder is on linear scale FIRST 31 Function V_NormalizeDIV(type) 32 String type 33 34 WAVE data=$("root:Packages:NIST:"+type+":data") 35 WAVE data_lin=$("root:Packages:NIST:"+type+":linear_data") 36 WAVE data_err=$("root:Packages:NIST:"+type+":linear_data_error") 37 38 Variable totCts=sum(data,Inf,-Inf) //sum all of the data 39 NVAR pixelX = root:myGlobals:gNPixelsX 40 NVAR pixelY = root:myGlobals:gNPixelsY 41 42 43 data /= totCts 44 data *= pixelX*pixelY 45 46 data_lin /= totCts 47 data_lin *= pixelX*pixelY 48 49 data_err /= totCts 50 data_err *= pixelX*pixelY 51 52 return(0) 53 End 54 55 56 57 58 59 16 60 17 61 // TODO -
sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_DataPlotting.ipf
r1027 r1030 105 105 // TODO: 106 106 // x- "B" detector is currently skipped - Q is not yet calculated 107 String str 108 sprintf str,"(\"%s\",%d )",workType,binType107 String str,winStr="V_1D_Data" 108 sprintf str,"(\"%s\",%d,\"%s\")",workType,binType,winStr 109 109 110 110 Execute ("V_Back_IQ_Graph"+str) … … 384 384 // just rebin 385 385 // 386 // see V_CombineModePopup() in V_Combine_1D.ipf for a duplicate verison of this function 387 // 386 388 Function V_BinningModePopup(ctrlName,popNum,popStr) : PopupMenuControl 387 389 String ctrlName … … 393 395 V_QBinAllPanels(type,popNum) 394 396 395 String str 396 sprintf str,"(\"%s\",%d )",Type,popNum397 String str,winStr="V_1D_Data" 398 sprintf str,"(\"%s\",%d,\"%s\")",type,popNum,winStr 397 399 398 400 Execute ("V_Back_IQ_Graph"+str) … … 451 453 // input "type" is the data type and defines the folder 452 454 // 453 Proc V_Middle_IQ_Graph(type,binType )455 Proc V_Middle_IQ_Graph(type,binType,winNameStr) 454 456 String type 455 457 Variable binType 458 String winNameStr 456 459 457 460 // binType = V_GetBinningPopMode() … … 468 471 469 472 if(binType==1) 470 ClearAllIQIfDisplayed("MLRTB" )471 ClearAllIQIfDisplayed("MLR" )472 ClearAllIQIfDisplayed("MTB" ) //this returns to root:473 ClearAllIQIfDisplayed("MT" )474 ClearAllIQIfDisplayed("ML" )475 ClearAllIQIfDisplayed("MR" )476 ClearAllIQIfDisplayed("MB" )473 ClearAllIQIfDisplayed("MLRTB",winNameStr) 474 ClearAllIQIfDisplayed("MLR",winNameStr) 475 ClearAllIQIfDisplayed("MTB",winNameStr) //this returns to root: 476 ClearAllIQIfDisplayed("MT",winNameStr) 477 ClearAllIQIfDisplayed("ML",winNameStr) 478 ClearAllIQIfDisplayed("MR",winNameStr) 479 ClearAllIQIfDisplayed("MB",winNameStr) 477 480 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 478 CheckDisplayed/W= V_1D_DataiBin_qxqy_ML479 480 if(V_flag==0) 481 AppendtoGraph/W= V_1D_DataiBin_qxqy_ML vs qBin_qxqy_ML482 AppendToGraph/W= V_1D_DataiBin_qxqy_MR vs qBin_qxqy_MR483 AppendToGraph/W= V_1D_DataiBin_qxqy_MT vs qBin_qxqy_MT484 AppendToGraph/W= V_1D_DataiBin_qxqy_MB vs qBin_qxqy_MB485 ModifyGraph/W= V_1D_Datamode=4486 ModifyGraph/W= V_1D_Datamarker=19487 ModifyGraph/W= V_1D_Datargb(iBin_qxqy_ML)=(65535,0,0),rgb(iBin_qxqy_MB)=(1,16019,65535),rgb(iBin_qxqy_MR)=(65535,0,0),rgb(iBin_qxqy_MT)=(1,16019,65535)488 ModifyGraph/W= V_1D_Datamsize=2489 ModifyGraph/W= V_1D_Datamuloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8}490 ModifyGraph/W= V_1D_Datagrid=1491 ModifyGraph/W= V_1D_Datalog=1492 ModifyGraph/W= V_1D_Datamirror=2481 CheckDisplayed/W=$winNameStr iBin_qxqy_ML 482 483 if(V_flag==0) 484 AppendtoGraph/W=$winNameStr iBin_qxqy_ML vs qBin_qxqy_ML 485 AppendToGraph/W=$winNameStr iBin_qxqy_MR vs qBin_qxqy_MR 486 AppendToGraph/W=$winNameStr iBin_qxqy_MT vs qBin_qxqy_MT 487 AppendToGraph/W=$winNameStr iBin_qxqy_MB vs qBin_qxqy_MB 488 ModifyGraph/W=$winNameStr mode=4 489 ModifyGraph/W=$winNameStr marker=19 490 ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML)=(65535,0,0),rgb(iBin_qxqy_MB)=(1,16019,65535),rgb(iBin_qxqy_MR)=(65535,0,0),rgb(iBin_qxqy_MT)=(1,16019,65535) 491 ModifyGraph/W=$winNameStr msize=2 492 ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8} 493 ModifyGraph/W=$winNameStr grid=1 494 ModifyGraph/W=$winNameStr log=1 495 ModifyGraph/W=$winNameStr mirror=2 493 496 endif 494 497 endif … … 496 499 if(binType==2) 497 500 // clear EVERYTHING 498 ClearAllIQIfDisplayed("MLRTB" )499 ClearAllIQIfDisplayed("MLR" )500 ClearAllIQIfDisplayed("MTB" ) //this returns to root:501 ClearAllIQIfDisplayed("MT" )502 ClearAllIQIfDisplayed("ML" )503 ClearAllIQIfDisplayed("MR" )504 ClearAllIQIfDisplayed("MB" )501 ClearAllIQIfDisplayed("MLRTB",winNameStr) 502 ClearAllIQIfDisplayed("MLR",winNameStr) 503 ClearAllIQIfDisplayed("MTB",winNameStr) //this returns to root: 504 ClearAllIQIfDisplayed("MT",winNameStr) 505 ClearAllIQIfDisplayed("ML",winNameStr) 506 ClearAllIQIfDisplayed("MR",winNameStr) 507 ClearAllIQIfDisplayed("MB",winNameStr) 505 508 506 509 // ClearAllIQIfDisplayed("MLRTB") … … 512 515 513 516 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 514 CheckDisplayed/W= V_1D_DataiBin_qxqy_MLR515 516 if(V_flag==0) 517 AppendtoGraph/W= V_1D_DataiBin_qxqy_MLR vs qBin_qxqy_MLR518 AppendToGraph/W= V_1D_DataiBin_qxqy_MTB vs qBin_qxqy_MTB519 ModifyGraph/W= V_1D_Datamode=4520 ModifyGraph/W= V_1D_Datamarker=19521 ModifyGraph/W= V_1D_Datargb(iBin_qxqy_MLR)=(65535,0,0),rgb(iBin_qxqy_MTB)=(1,16019,65535)522 ModifyGraph/W= V_1D_Datamsize=2523 ModifyGraph/W= V_1D_Datamuloffset(iBin_qxqy_MLR)={0,2}524 ModifyGraph/W= V_1D_Datagrid=1525 ModifyGraph/W= V_1D_Datalog=1526 ModifyGraph/W= V_1D_Datamirror=2527 Label/W= V_1D_Dataleft "Intensity (1/cm)"528 Label/W= V_1D_Databottom "Q (1/A)"517 CheckDisplayed/W=$winNameStr iBin_qxqy_MLR 518 519 if(V_flag==0) 520 AppendtoGraph/W=$winNameStr iBin_qxqy_MLR vs qBin_qxqy_MLR 521 AppendToGraph/W=$winNameStr iBin_qxqy_MTB vs qBin_qxqy_MTB 522 ModifyGraph/W=$winNameStr mode=4 523 ModifyGraph/W=$winNameStr marker=19 524 ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLR)=(65535,0,0),rgb(iBin_qxqy_MTB)=(1,16019,65535) 525 ModifyGraph/W=$winNameStr msize=2 526 ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_MLR)={0,2} 527 ModifyGraph/W=$winNameStr grid=1 528 ModifyGraph/W=$winNameStr log=1 529 ModifyGraph/W=$winNameStr mirror=2 530 Label/W=$winNameStr left "Intensity (1/cm)" 531 Label/W=$winNameStr bottom "Q (1/A)" 529 532 endif 530 533 … … 533 536 if(binType==3) 534 537 // clear EVERYTHING 535 ClearAllIQIfDisplayed("MLRTB" )536 ClearAllIQIfDisplayed("MLR" )537 ClearAllIQIfDisplayed("MTB" ) //this returns to root:538 ClearAllIQIfDisplayed("MT" )539 ClearAllIQIfDisplayed("ML" )540 ClearAllIQIfDisplayed("MR" )541 ClearAllIQIfDisplayed("MB" )538 ClearAllIQIfDisplayed("MLRTB",winNameStr) 539 ClearAllIQIfDisplayed("MLR",winNameStr) 540 ClearAllIQIfDisplayed("MTB",winNameStr) //this returns to root: 541 ClearAllIQIfDisplayed("MT",winNameStr) 542 ClearAllIQIfDisplayed("ML",winNameStr) 543 ClearAllIQIfDisplayed("MR",winNameStr) 544 ClearAllIQIfDisplayed("MB",winNameStr) 542 545 543 546 // ClearAllIQIfDisplayed("MLR") … … 549 552 550 553 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 551 CheckDisplayed/W= V_1D_DataiBin_qxqy_MLRTB552 553 if(V_flag==0) 554 AppendtoGraph/W= V_1D_DataiBin_qxqy_MLRTB vs qBin_qxqy_MLRTB555 ModifyGraph/W= V_1D_Datamode=4556 ModifyGraph/W= V_1D_Datamarker=19557 ModifyGraph/W= V_1D_Datargb(iBin_qxqy_MLRTB)=(65535,0,0)558 ModifyGraph/W= V_1D_Datamsize=2559 ModifyGraph/W= V_1D_Datagrid=1560 ModifyGraph/W= V_1D_Datalog=1561 ModifyGraph/W= V_1D_Datamirror=2562 Label/W= V_1D_Dataleft "Intensity (1/cm)"563 Label/W= V_1D_Databottom "Q (1/A)"554 CheckDisplayed/W=$winNameStr iBin_qxqy_MLRTB 555 556 if(V_flag==0) 557 AppendtoGraph/W=$winNameStr iBin_qxqy_MLRTB vs qBin_qxqy_MLRTB 558 ModifyGraph/W=$winNameStr mode=4 559 ModifyGraph/W=$winNameStr marker=19 560 ModifyGraph/W=$winNameStr rgb(iBin_qxqy_MLRTB)=(65535,0,0) 561 ModifyGraph/W=$winNameStr msize=2 562 ModifyGraph/W=$winNameStr grid=1 563 ModifyGraph/W=$winNameStr log=1 564 ModifyGraph/W=$winNameStr mirror=2 565 Label/W=$winNameStr left "Intensity (1/cm)" 566 Label/W=$winNameStr bottom "Q (1/A)" 564 567 endif 565 568 … … 568 571 if(binType==4) // slit aperture binning - MT, ML, MR, MB are averaged 569 572 // clear EVERYTHING 570 ClearAllIQIfDisplayed("MLRTB" )571 ClearAllIQIfDisplayed("MLR" )572 ClearAllIQIfDisplayed("MTB" ) //this returns to root:573 ClearAllIQIfDisplayed("MT" )574 ClearAllIQIfDisplayed("ML" )575 ClearAllIQIfDisplayed("MR" )576 ClearAllIQIfDisplayed("MB" )573 ClearAllIQIfDisplayed("MLRTB",winNameStr) 574 ClearAllIQIfDisplayed("MLR",winNameStr) 575 ClearAllIQIfDisplayed("MTB",winNameStr) //this returns to root: 576 ClearAllIQIfDisplayed("MT",winNameStr) 577 ClearAllIQIfDisplayed("ML",winNameStr) 578 ClearAllIQIfDisplayed("MR",winNameStr) 579 ClearAllIQIfDisplayed("MB",winNameStr) 577 580 578 581 … … 582 585 583 586 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 584 CheckDisplayed/W= V_1D_DataiBin_qxqy_ML585 586 if(V_flag==0) 587 AppendToGraph/W= V_1D_DataiBin_qxqy_ML vs qBin_qxqy_ML588 AppendToGraph/W= V_1D_DataiBin_qxqy_MR vs qBin_qxqy_MR589 AppendToGraph/W= V_1D_DataiBin_qxqy_MT vs qBin_qxqy_MT590 AppendToGraph/W= V_1D_DataiBin_qxqy_MB vs qBin_qxqy_MB591 ModifyGraph/W= V_1D_Datamode=4592 ModifyGraph/W= V_1D_Datamarker=19593 ModifyGraph/W= V_1D_Datargb(iBin_qxqy_ML)=(65535,0,0),rgb(iBin_qxqy_MB)=(1,16019,65535),rgb(iBin_qxqy_MR)=(65535,0,0),rgb(iBin_qxqy_MT)=(1,16019,65535)594 ModifyGraph/W= V_1D_Datamsize=2595 ModifyGraph/W= V_1D_Datamuloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8}596 ModifyGraph/W= V_1D_Datagrid=1597 ModifyGraph/W= V_1D_Datalog=1598 ModifyGraph/W= V_1D_Datamirror=2587 CheckDisplayed/W=$winNameStr iBin_qxqy_ML 588 589 if(V_flag==0) 590 AppendToGraph/W=$winNameStr iBin_qxqy_ML vs qBin_qxqy_ML 591 AppendToGraph/W=$winNameStr iBin_qxqy_MR vs qBin_qxqy_MR 592 AppendToGraph/W=$winNameStr iBin_qxqy_MT vs qBin_qxqy_MT 593 AppendToGraph/W=$winNameStr iBin_qxqy_MB vs qBin_qxqy_MB 594 ModifyGraph/W=$winNameStr mode=4 595 ModifyGraph/W=$winNameStr marker=19 596 ModifyGraph/W=$winNameStr rgb(iBin_qxqy_ML)=(65535,0,0),rgb(iBin_qxqy_MB)=(1,16019,65535),rgb(iBin_qxqy_MR)=(65535,0,0),rgb(iBin_qxqy_MT)=(1,16019,65535) 597 ModifyGraph/W=$winNameStr msize=2 598 ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_ML)={0,4},muloffset(iBin_qxqy_MB)={0,2},muloffset(iBin_qxqy_MR)={0,8} 599 ModifyGraph/W=$winNameStr grid=1 600 ModifyGraph/W=$winNameStr log=1 601 ModifyGraph/W=$winNameStr mirror=2 599 602 endif 600 603 … … 615 618 // 616 619 // 617 Proc V_Front_IQ_Graph(type,binType )620 Proc V_Front_IQ_Graph(type,binType,winNameStr) 618 621 String type 619 622 Variable binType 623 String winNameStr 620 624 621 625 … … 635 639 636 640 if(binType==1) 637 ClearAllIQIfDisplayed("FLRTB" )638 639 ClearAllIQIfDisplayed("FLR" )640 ClearAllIQIfDisplayed("FTB" )641 642 ClearAllIQIfDisplayed("FT" )643 ClearAllIQIfDisplayed("FL" )644 ClearAllIQIfDisplayed("FR" )645 ClearAllIQIfDisplayed("FB" )641 ClearAllIQIfDisplayed("FLRTB",winNameStr) 642 643 ClearAllIQIfDisplayed("FLR",winNameStr) 644 ClearAllIQIfDisplayed("FTB",winNameStr) 645 646 ClearAllIQIfDisplayed("FT",winNameStr) 647 ClearAllIQIfDisplayed("FL",winNameStr) 648 ClearAllIQIfDisplayed("FR",winNameStr) 649 ClearAllIQIfDisplayed("FB",winNameStr) 646 650 647 651 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 648 CheckDisplayed/W= V_1D_DataiBin_qxqy_FL649 650 if(V_flag==0) 651 AppendtoGraph/W= V_1D_DataiBin_qxqy_FL vs qBin_qxqy_FL652 AppendToGraph/W= V_1D_DataiBin_qxqy_FR vs qBin_qxqy_FR653 AppendToGraph/W= V_1D_DataiBin_qxqy_FT vs qBin_qxqy_FT654 AppendToGraph/W= V_1D_DataiBin_qxqy_FB vs qBin_qxqy_FB655 ModifyGraph/W= V_1D_Datamode=4656 ModifyGraph/W= V_1D_Datamarker=19657 ModifyGraph/W= V_1D_Datargb(iBin_qxqy_FL)=(39321,26208,1),rgb(iBin_qxqy_FB)=(2,39321,1),rgb(iBin_qxqy_FR)=(39321,26208,1),rgb(iBin_qxqy_FT)=(2,39321,1)658 ModifyGraph/W= V_1D_Datamsize=2659 ModifyGraph/W= V_1D_Datamuloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8}660 ModifyGraph/W= V_1D_Datagrid=1661 ModifyGraph/W= V_1D_Datalog=1662 ModifyGraph/W= V_1D_Datamirror=2652 CheckDisplayed/W=$winNameStr iBin_qxqy_FL 653 654 if(V_flag==0) 655 AppendtoGraph/W=$winNameStr iBin_qxqy_FL vs qBin_qxqy_FL 656 AppendToGraph/W=$winNameStr iBin_qxqy_FR vs qBin_qxqy_FR 657 AppendToGraph/W=$winNameStr iBin_qxqy_FT vs qBin_qxqy_FT 658 AppendToGraph/W=$winNameStr iBin_qxqy_FB vs qBin_qxqy_FB 659 ModifyGraph/W=$winNameStr mode=4 660 ModifyGraph/W=$winNameStr marker=19 661 ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL)=(39321,26208,1),rgb(iBin_qxqy_FB)=(2,39321,1),rgb(iBin_qxqy_FR)=(39321,26208,1),rgb(iBin_qxqy_FT)=(2,39321,1) 662 ModifyGraph/W=$winNameStr msize=2 663 ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8} 664 ModifyGraph/W=$winNameStr grid=1 665 ModifyGraph/W=$winNameStr log=1 666 ModifyGraph/W=$winNameStr mirror=2 663 667 endif 664 668 endif … … 666 670 if(binType==2) 667 671 // clear EVERYTHING 668 ClearAllIQIfDisplayed("FLRTB" )669 670 ClearAllIQIfDisplayed("FLR" )671 ClearAllIQIfDisplayed("FTB" )672 673 ClearAllIQIfDisplayed("FT" )674 ClearAllIQIfDisplayed("FL" )675 ClearAllIQIfDisplayed("FR" )676 ClearAllIQIfDisplayed("FB" )672 ClearAllIQIfDisplayed("FLRTB",winNameStr) 673 674 ClearAllIQIfDisplayed("FLR",winNameStr) 675 ClearAllIQIfDisplayed("FTB",winNameStr) 676 677 ClearAllIQIfDisplayed("FT",winNameStr) 678 ClearAllIQIfDisplayed("FL",winNameStr) 679 ClearAllIQIfDisplayed("FR",winNameStr) 680 ClearAllIQIfDisplayed("FB",winNameStr) 677 681 // ClearAllIQIfDisplayed("FLRTB") 678 682 // ClearAllIQIfDisplayed("FT") … … 682 686 683 687 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 684 CheckDisplayed/W= V_1D_DataiBin_qxqy_FLR685 686 if(V_flag==0) 687 AppendtoGraph/W= V_1D_DataiBin_qxqy_FLR vs qBin_qxqy_FLR688 AppendToGraph/W= V_1D_DataiBin_qxqy_FTB vs qBin_qxqy_FTB689 ModifyGraph/W= V_1D_Datamode=4690 ModifyGraph/W= V_1D_Datamarker=19691 ModifyGraph/W= V_1D_Datargb(iBin_qxqy_FLR)=(39321,26208,1),rgb(iBin_qxqy_FTB)=(2,39321,1)692 ModifyGraph/W= V_1D_Datamsize=2693 ModifyGraph/W= V_1D_Datamuloffset(iBin_qxqy_FLR)={0,2}694 ModifyGraph/W= V_1D_Datagrid=1695 ModifyGraph/W= V_1D_Datalog=1696 ModifyGraph/W= V_1D_Datamirror=2697 Label/W= V_1D_Dataleft "Intensity (1/cm)"698 Label/W= V_1D_Databottom "Q (1/A)"688 CheckDisplayed/W=$winNameStr iBin_qxqy_FLR 689 690 if(V_flag==0) 691 AppendtoGraph/W=$winNameStr iBin_qxqy_FLR vs qBin_qxqy_FLR 692 AppendToGraph/W=$winNameStr iBin_qxqy_FTB vs qBin_qxqy_FTB 693 ModifyGraph/W=$winNameStr mode=4 694 ModifyGraph/W=$winNameStr marker=19 695 ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLR)=(39321,26208,1),rgb(iBin_qxqy_FTB)=(2,39321,1) 696 ModifyGraph/W=$winNameStr msize=2 697 ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FLR)={0,2} 698 ModifyGraph/W=$winNameStr grid=1 699 ModifyGraph/W=$winNameStr log=1 700 ModifyGraph/W=$winNameStr mirror=2 701 Label/W=$winNameStr left "Intensity (1/cm)" 702 Label/W=$winNameStr bottom "Q (1/A)" 699 703 endif 700 704 … … 703 707 if(binType==3) 704 708 // clear EVERYTHING 705 ClearAllIQIfDisplayed("FLRTB" )706 707 ClearAllIQIfDisplayed("FLR" )708 ClearAllIQIfDisplayed("FTB" )709 710 ClearAllIQIfDisplayed("FT" )711 ClearAllIQIfDisplayed("FL" )712 ClearAllIQIfDisplayed("FR" )713 ClearAllIQIfDisplayed("FB" )709 ClearAllIQIfDisplayed("FLRTB",winNameStr) 710 711 ClearAllIQIfDisplayed("FLR",winNameStr) 712 ClearAllIQIfDisplayed("FTB",winNameStr) 713 714 ClearAllIQIfDisplayed("FT",winNameStr) 715 ClearAllIQIfDisplayed("FL",winNameStr) 716 ClearAllIQIfDisplayed("FR",winNameStr) 717 ClearAllIQIfDisplayed("FB",winNameStr) 714 718 715 719 // ClearAllIQIfDisplayed("FLR") … … 721 725 722 726 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 723 CheckDisplayed/W= V_1D_DataiBin_qxqy_FLRTB724 725 if(V_flag==0) 726 AppendtoGraph/W= V_1D_DataiBin_qxqy_FLRTB vs qBin_qxqy_FLRTB727 ModifyGraph/W= V_1D_Datamode=4728 ModifyGraph/W= V_1D_Datamarker=19729 ModifyGraph/W= V_1D_Datargb(iBin_qxqy_FLRTB)=(39321,26208,1)730 ModifyGraph/W= V_1D_Datamsize=2731 ModifyGraph/W= V_1D_Datagrid=1732 ModifyGraph/W= V_1D_Datalog=1733 ModifyGraph/W= V_1D_Datamirror=2734 Label/W= V_1D_Dataleft "Intensity (1/cm)"735 Label/W= V_1D_Databottom "Q (1/A)"727 CheckDisplayed/W=$winNameStr iBin_qxqy_FLRTB 728 729 if(V_flag==0) 730 AppendtoGraph/W=$winNameStr iBin_qxqy_FLRTB vs qBin_qxqy_FLRTB 731 ModifyGraph/W=$winNameStr mode=4 732 ModifyGraph/W=$winNameStr marker=19 733 ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FLRTB)=(39321,26208,1) 734 ModifyGraph/W=$winNameStr msize=2 735 ModifyGraph/W=$winNameStr grid=1 736 ModifyGraph/W=$winNameStr log=1 737 ModifyGraph/W=$winNameStr mirror=2 738 Label/W=$winNameStr left "Intensity (1/cm)" 739 Label/W=$winNameStr bottom "Q (1/A)" 736 740 endif 737 741 … … 740 744 if(binType==4) // slit aperture binning - MT, ML, MR, MB are averaged 741 745 // clear EVERYTHING 742 ClearAllIQIfDisplayed("FLRTB" )743 744 ClearAllIQIfDisplayed("FLR" )745 ClearAllIQIfDisplayed("FTB" )746 747 ClearAllIQIfDisplayed("FT" )748 ClearAllIQIfDisplayed("FL" )749 ClearAllIQIfDisplayed("FR" )750 ClearAllIQIfDisplayed("FB" )746 ClearAllIQIfDisplayed("FLRTB",winNameStr) 747 748 ClearAllIQIfDisplayed("FLR",winNameStr) 749 ClearAllIQIfDisplayed("FTB",winNameStr) 750 751 ClearAllIQIfDisplayed("FT",winNameStr) 752 ClearAllIQIfDisplayed("FL",winNameStr) 753 ClearAllIQIfDisplayed("FR",winNameStr) 754 ClearAllIQIfDisplayed("FB",winNameStr) 751 755 752 756 … … 756 760 757 761 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 758 CheckDisplayed/W= V_1D_DataiBin_qxqy_FL759 760 if(V_flag==0) 761 AppendtoGraph/W= V_1D_DataiBin_qxqy_FL vs qBin_qxqy_FL762 AppendToGraph/W= V_1D_DataiBin_qxqy_FR vs qBin_qxqy_FR763 AppendToGraph/W= V_1D_DataiBin_qxqy_FT vs qBin_qxqy_FT764 AppendToGraph/W= V_1D_DataiBin_qxqy_FB vs qBin_qxqy_FB765 ModifyGraph/W= V_1D_Datamode=4766 ModifyGraph/W= V_1D_Datamarker=19767 ModifyGraph/W= V_1D_Datargb(iBin_qxqy_FL)=(39321,26208,1),rgb(iBin_qxqy_FB)=(2,39321,1),rgb(iBin_qxqy_FR)=(39321,26208,1),rgb(iBin_qxqy_FT)=(2,39321,1)768 ModifyGraph/W= V_1D_Datamsize=2769 ModifyGraph/W= V_1D_Datamuloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8}770 ModifyGraph/W= V_1D_Datagrid=1771 ModifyGraph/W= V_1D_Datalog=1772 ModifyGraph/W= V_1D_Datamirror=2762 CheckDisplayed/W=$winNameStr iBin_qxqy_FL 763 764 if(V_flag==0) 765 AppendtoGraph/W=$winNameStr iBin_qxqy_FL vs qBin_qxqy_FL 766 AppendToGraph/W=$winNameStr iBin_qxqy_FR vs qBin_qxqy_FR 767 AppendToGraph/W=$winNameStr iBin_qxqy_FT vs qBin_qxqy_FT 768 AppendToGraph/W=$winNameStr iBin_qxqy_FB vs qBin_qxqy_FB 769 ModifyGraph/W=$winNameStr mode=4 770 ModifyGraph/W=$winNameStr marker=19 771 ModifyGraph/W=$winNameStr rgb(iBin_qxqy_FL)=(39321,26208,1),rgb(iBin_qxqy_FB)=(2,39321,1),rgb(iBin_qxqy_FR)=(39321,26208,1),rgb(iBin_qxqy_FT)=(2,39321,1) 772 ModifyGraph/W=$winNameStr msize=2 773 ModifyGraph/W=$winNameStr muloffset(iBin_qxqy_FL)={0,4},muloffset(iBin_qxqy_FB)={0,2},muloffset(iBin_qxqy_FR)={0,8} 774 ModifyGraph/W=$winNameStr grid=1 775 ModifyGraph/W=$winNameStr log=1 776 ModifyGraph/W=$winNameStr mirror=2 773 777 endif 774 778 … … 783 787 // x- currently hard-wired == 1 784 788 // 789 // 790 // type = the data folder 791 // binType = numerical index of the bin type (1->4) 792 // one;two;four;slit 793 // winNameStr = the name of the target window 794 // 785 795 ////////////to plot the back panel I(q) 786 Proc V_Back_IQ_Graph(type,binType )796 Proc V_Back_IQ_Graph(type,binType,winNameStr) 787 797 String type 788 798 Variable binType 799 String winNameStr 789 800 790 801 // SetDataFolder root:Packages:NIST:VSANS:VCALC:entry:instrument:detector_B … … 794 805 // binType = V_GetBinningPopMode() 795 806 807 796 808 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 797 809 798 810 if(binType==1 || binType==2 || binType==3) 799 811 800 ClearAllIQIfDisplayed("B" )812 ClearAllIQIfDisplayed("B",winNameStr) 801 813 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 802 CheckDisplayed/W= V_1D_DataiBin_qxqy_B803 804 if(V_flag==0) 805 AppendtoGraph/W= V_1D_DataiBin_qxqy_B vs qBin_qxqy_B806 ModifyGraph/W= V_1D_Datamode=4807 ModifyGraph/W= V_1D_Datamarker=19808 ModifyGraph/W= V_1D_Datargb(iBin_qxqy_B)=(1,52428,52428)809 ModifyGraph/W= V_1D_Datamsize=2810 ModifyGraph/W= V_1D_Datagrid=1811 ModifyGraph/W= V_1D_Datalog=1812 ModifyGraph/W= V_1D_Datamirror=2814 CheckDisplayed/W=$winNameStr iBin_qxqy_B 815 816 if(V_flag==0) 817 AppendtoGraph/W=$winNameStr iBin_qxqy_B vs qBin_qxqy_B 818 ModifyGraph/W=$winNameStr mode=4 819 ModifyGraph/W=$winNameStr marker=19 820 ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B)=(1,52428,52428) 821 ModifyGraph/W=$winNameStr msize=2 822 ModifyGraph/W=$winNameStr grid=1 823 ModifyGraph/W=$winNameStr log=1 824 ModifyGraph/W=$winNameStr mirror=2 813 825 endif 826 827 // ClearAllIQIfDisplayed("B") 828 // SetDataFolder $("root:Packages:NIST:VSANS:"+type) 829 // CheckDisplayed/W=V_1D_Data iBin_qxqy_B 830 // 831 // if(V_flag==0) 832 // AppendtoGraph/W=V_1D_Data iBin_qxqy_B vs qBin_qxqy_B 833 // ModifyGraph/W=V_1D_Data mode=4 834 // ModifyGraph/W=V_1D_Data marker=19 835 // ModifyGraph/W=V_1D_Data rgb(iBin_qxqy_B)=(1,52428,52428) 836 // ModifyGraph/W=V_1D_Data msize=2 837 // ModifyGraph/W=V_1D_Data grid=1 838 // ModifyGraph/W=V_1D_Data log=1 839 // ModifyGraph/W=V_1D_Data mirror=2 840 // endif 841 814 842 endif 815 843 … … 817 845 if(binType==4) 818 846 819 ClearAllIQIfDisplayed("B" )847 ClearAllIQIfDisplayed("B",winNameStr) 820 848 SetDataFolder $("root:Packages:NIST:VSANS:"+type) 821 CheckDisplayed/W= V_1D_DataiBin_qxqy_B822 823 if(V_flag==0) 824 AppendtoGraph/W= V_1D_DataiBin_qxqy_B vs qBin_qxqy_B825 ModifyGraph/W= V_1D_Datamode=4826 ModifyGraph/W= V_1D_Datamarker=19827 ModifyGraph/W= V_1D_Datargb(iBin_qxqy_B)=(1,52428,52428)828 ModifyGraph/W= V_1D_Datamsize=2829 ModifyGraph/W= V_1D_Datagrid=1830 ModifyGraph/W= V_1D_Datalog=1831 ModifyGraph/W= V_1D_Datamirror=2849 CheckDisplayed/W=$winNameStr iBin_qxqy_B 850 851 if(V_flag==0) 852 AppendtoGraph/W=$winNameStr iBin_qxqy_B vs qBin_qxqy_B 853 ModifyGraph/W=$winNameStr mode=4 854 ModifyGraph/W=$winNameStr marker=19 855 ModifyGraph/W=$winNameStr rgb(iBin_qxqy_B)=(1,52428,52428) 856 ModifyGraph/W=$winNameStr msize=2 857 ModifyGraph/W=$winNameStr grid=1 858 ModifyGraph/W=$winNameStr log=1 859 ModifyGraph/W=$winNameStr mirror=2 832 860 endif 833 861 endif -
sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_IQ_Utilities.ipf
r1027 r1030 5 5 // 6 6 // Operation does no scaling, only the basic (default) trim of the ends, concatenate, sort, and save 7 // -- if data has been converted to WORK and hte solid angle correction was done, then the data7 // -- if data has been converted to WORK and the solid angle correction was done, then the data 8 8 // is per unit solid angle, and matches up - at least the simulated data does... 9 // It should match up in real VSANS data since the flux conditions are identical for 10 // all panels, only the geometry is different. 9 11 // 10 12 // … … 360 362 // -- resolution waves are ignored, since they don't exist (yet) 361 363 // -- only a sort is done, no rescaling of data sets 362 // (it's too late now anyways, since the data was concatenated 364 // (it's too late now anyways, since the data was concatenated) 363 365 // 364 366 // see Auto_Sort() in the SANS Automation ipf for the rest of the details of -
sans/Dev/trunk/NCNR_User_Procedures/Reduction/VSANS/V_Protocol_Reduction.ipf
r1027 r1030 1071 1071 Proc V_PickAProtocol(protocol) 1072 1072 String Protocol 1073 Prompt Protocol "Pick A Protocol",popup, WaveList("*",";"," ")1073 Prompt Protocol "Pick A Protocol",popup, WaveList("*",";","TEXT:1") 1074 1074 1075 1075 String/G root:Packages:NIST:VSANS:Globals:Protocols:gProtoStr = protocol … … 1078 1078 Proc V_DeleteAProtocol(protocol) 1079 1079 String Protocol 1080 // Prompt Protocol "Delete A Protocol",popup, WaveList("*",";"," ")1080 // Prompt Protocol "Delete A Protocol",popup, WaveList("*",";","TEXT:1") 1081 1081 Prompt Protocol "Delete A Protocol",popup, V_DeletableProtocols() 1082 1082 … … 1085 1085 1086 1086 Function/S V_DeletableProtocols() 1087 String list=WaveList("*",";"," ")1087 String list=WaveList("*",";","TEXT:1") 1088 1088 1089 1089 list= RemoveFromList("Base", list , ";") … … 2016 2016 // TODO: 2017 2017 // x- "B" detector is currently skipped - Q is not yet calculated 2018 String str 2019 sprintf str,"(\"%s\",%d)",activeType,binType 2018 2019 String str,winStr="V_1D_Data" 2020 sprintf str,"(\"%s\",%d,\"%s\")",activeType,binType,winStr 2021 2020 2022 2021 2023 Execute ("V_Back_IQ_Graph"+str)
Note: See TracChangeset
for help on using the changeset viewer.
