LMU/musrfit
LMU/musrfit
5
0
Fork 0
Code Issues 6 Pull Requests Actions Packages Projects Releases 3 Activity

Fully implemented manual data file selection.

Browse Source
This commit is contained in:
salman 2009-09-02 20:05:47 +00:00
parent e420257016
commit 305bd5f6c1
4 changed files with 2597 additions and 2466 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

120
src/external/MuSRFitGUI/MSR.pm vendored
View File

@ -97,17 +97,18 @@ sub CreateMSR {
my $iRun = 1;
# Counter of Params
my $j = 1;
my $PCount = 1;
# Need to select here RUNSAuto or RUNSManual
# $RUNSType = 0 (Auto) or 1 (Manual)
my $RUNSType = 0;
my @RUNS=();
if ($All{"RunNumbers"} ne "") {
my @RUNS=split( /,/, $All{"RunNumbers"});
@RUNS=split( /,/, $All{"RunNumbers"});
$RUNSType = 0;
}
elsif ($All{"RunFiles"} ne "") {
my @RUNS=split( /,/, $All{"RunFiles"});
@RUNS=split( /,/, $All{"RunFiles"});
$RUNSType = 1;
}
@ -181,7 +182,7 @@ sub CreateMSR {
}
else {
# Otherwise modify alpha line accordingly
$Alpha_Line = "alpha $j\n";
$Alpha_Line = "alpha $PCount\n";
}
}
@ -193,9 +194,9 @@ sub CreateMSR {
# Parameter is shared enough to keep order from first run
if ( $iRun == 1 ) {
$Full_T_Block =~ s/$Param_ORG/$j/;
$Full_T_Block =~ s/$Param_ORG/$PCount/;
++$shcount;
++$j;
++$PCount;
}
} else {
# Parameter is not shared, use map unless it is a single RUN fit
@ -204,11 +205,11 @@ sub CreateMSR {
{
++$nonsh;
$Full_T_Block =~ s/$Param_ORG/map$nonsh/;
$MAP_Line = join( ' ', $MAP_Line, $j );
$MAP_Line = join( ' ', $MAP_Line, $PCount );
}
++$j;
++$PCount;
}
$NtotPar = $j;
$NtotPar = $PCount;
}
}
@ -221,10 +222,11 @@ sub CreateMSR {
$RUN = $RUNS[ $iRun - 1 ];
$RUNFILE = MSR::RUNFileName($RUN,$YEAR,$BeamLine);
$RUN_Line = join( $SPACE,
"RUN", $RUNFILE, $BeamLines{$BeamLine}, "PSI",
$Def_Format{$BeamLine} );
if ($All{"RUNSType"}) {
$RUN_Line = MSR::RUNFileNameMan($RUN);
} else {
$RUN_Line = MSR::RUNFileNameAuto($RUN,$YEAR,$BeamLine);
}
$Type_Line = "fittype 2";
$PLT = 2;
@ -292,15 +294,15 @@ FITPARAMETER
my %PTable=MSR::PrepParamTable(\%All);
my $NParam=scalar keys( %PTable );
# Fill the table with labels and values of parametr
for (my $PCount=0;$PCount<$NParam;$PCount++) {
my ($Param,$value,$error,$minvalue,$maxvalue) = split(/,/,$PTable{$PCount});
for (my $iP=0;$iP<$NParam;$iP++) {
my ($Param,$value,$error,$minvalue,$maxvalue) = split(/,/,$PTable{$iP});
if ( $minvalue == $maxvalue ) {
$minvalue = $EMPTY;
$maxvalue = $EMPTY;
}
$j=$PCount+1;
$PCount=$iP+1;
$FitParaBlk = $FitParaBlk."
$j $Param $value $error $error $minvalue $maxvalue";
$PCount $Param $value $error $error $minvalue $maxvalue";
}
@ -418,24 +420,24 @@ sub CreateMSRSingleHist {
# First create the THEORY Block
my ($Full_T_Block,$Paramcomp_ref)=MSR::CreateTheory(@FitTypes);
my @Paramcomp = @$Paramcomp_ref;
# Counter for RUNS
my $iRun = 1;
# Counter of Params
my $j = 1;
my $PCount = 1;
# Need to select here RUNSAuto or RUNSManual
# $RUNSType = 0 (Auto) or 1 (Manual)
my $RUNSType = 0;
my @RUNS=();
if ($All{"RunNumbers"} ne "") {
my @RUNS=split( /,/, $All{"RunNumbers"});
@RUNS=split( /,/, $All{"RunNumbers"});
$RUNSType = 0;
}
elsif ($All{"RunFiles"} ne "") {
my @RUNS=split( /,/, $All{"RunFiles"});
@RUNS=split( /,/, $All{"RunFiles"});
$RUNSType = 1;
}
@ -512,7 +514,7 @@ sub CreateMSRSingleHist {
$N0Bg_Line = "norm 1\n";
}
else {
$N0Bg_Line = "norm $j\n";
$N0Bg_Line = "norm $PCount\n";
}
# Optional - add lifetime correction for SingleHist fits
@ -527,7 +529,7 @@ sub CreateMSRSingleHist {
$N0Bg_Line = $N0Bg_Line . "backgr.fit 2\n";
}
else {
$N0Bg_Line = $N0Bg_Line . "backgr.fit $j\n";
$N0Bg_Line = $N0Bg_Line . "backgr.fit $PCount\n";
}
}
@ -538,9 +540,9 @@ sub CreateMSRSingleHist {
if ($Shared) {
# Parameter is shared enough to keep order from first run
if ( $iRun == 1 ) {
$Full_T_Block =~ s/$Param_ORG/$j/;
$Full_T_Block =~ s/$Param_ORG/$PCount/;
++$shcount;
++$j;
++$PCount;
}
} else {
# Parameter is not shared, use map unless it is a single RUN fit
@ -548,11 +550,11 @@ sub CreateMSRSingleHist {
if ( $Param ne "N0" && $Param ne "NBg" && ($#RUNS != 0 || $#Hist != 0)) {
++$nonsh;
$Full_T_Block =~ s/$Param_ORG/map$nonsh/;
$MAP_Line = join( ' ', $MAP_Line, $j );
$MAP_Line = join( ' ', $MAP_Line, $PCount );
}
++$j;
++$PCount;
}
$NtotPar = $j;
$NtotPar = $PCount;
}
}
@ -568,10 +570,11 @@ sub CreateMSRSingleHist {
$RUN = $RUNS[ $iRun - 1 ];
$RUNFILE = MSR::RUNFileName($RUN,$YEAR,$BeamLine);
$RUN_Line = join( $SPACE,
"RUN", $RUNFILE, $BeamLines{$BeamLine}, "PSI",
$Def_Format{$BeamLine} );
if ($All{"RUNSType"}) {
$RUN_Line = MSR::RUNFileNameMan($RUN);
} else {
$RUN_Line = MSR::RUNFileNameAuto($RUN,$YEAR,$BeamLine);
}
# What kind of fit? 0 - Single Histogram, 2 - Asymmetry, 4 - RRF
$Type_Line = "fittype 0";
@ -639,15 +642,15 @@ FITPARAMETER
my %PTable=MSR::PrepParamTable(\%All);
my $NParam=scalar keys( %PTable );
# Fill the table with labels and values of parametr
for (my $PCount=0;$PCount<$NParam;$PCount++) {
my ($Param,$value,$error,$minvalue,$maxvalue) = split(/,/,$PTable{$PCount});
for (my $iP=0;$iP<$NParam;$iP++) {
my ($Param,$value,$error,$minvalue,$maxvalue) = split(/,/,$PTable{$iP});
if ( $minvalue == $maxvalue ) {
$minvalue = $EMPTY;
$maxvalue = $EMPTY;
}
$j=$PCount+1;
$PCount=$iP+1;
$FitParaBlk = $FitParaBlk."
$j $Param $value $error $error $minvalue $maxvalue";
$PCount $Param $value $error $error $minvalue $maxvalue";
}
$Full_T_Block = "
@ -1090,7 +1093,12 @@ sub PrepParamTable {
%ParTable = ();
my %All = %{$_[0]};
my @RUNS = split( /,/, $All{"RunNumbers"} );
my @RUNS = ();
if ($All{"RUNSType"}) {
@RUNS = split( /,/, $All{"RunFiles"} );
} else {
@RUNS = split( /,/, $All{"RunNumbers"} );
}
my @Hists = split( /,/, $All{"LRBF"} );
my @FitTypes =();
@ -1219,14 +1227,14 @@ sub PrepParamTable {
########################
# RUNFileName
# Function return the run file name
# RUNFileNameAuto
# Function return the RUN_Line for a given RUN
# input should be
# $RUN is the run number
# $YEAR is the year
# $BeamLine in the name of beamline
########################
sub RUNFileName {
sub RUNFileNameAuto {
# Take this information as input arguments
(my $RUN, my $YEAR, my $BeamLine) = @_;
@ -1281,7 +1289,37 @@ sub RUNFileName {
$RUNFILE = "$DATADIR/d$YEAR/pta/$RUN_File_Name";
}
}
return $RUNFILE
my $RUN_Line = join( $SPACE,
"RUN", $RUNFILE, $BeamLines{$BeamLine}, "PSI",
$Def_Format{$BeamLine} );
return $RUN_Line;
}
########################
# RUNFileNameMan
# Function return the RUN_Line for a given RUN
# input should be
# $RUN is the run number
# $YEAR is the year
# $BeamLine in the name of beamline
########################
sub RUNFileNameMan {
my %EXTs = ("root","ROOT-NPP",
"bin","PSIBIN",
"msr","MUD");
# Take this information as input arguments
(my $RUN) = @_;
my @tmp = split(/\./,$RUN);
my $EXT = @tmp[$#tmp];
$RUN =~ s/\.[^.]+$//;
my $RUN_Line = join( $SPACE,
"RUN", $RUN, "MUE4", "PSI",$EXTs{$EXT});
return $RUN_Line;
}
1;

172
src/external/MuSRFitGUI/MuSRFit.pl vendored
View File

@ -1,6 +1,6 @@
# Form implementation generated from reading ui file 'MuSRFit.ui'
#
# Created: Tue Sep 1 22:56:56 2009
# Created: Wed Sep 2 22:02:54 2009
# by: The PerlQt User Interface Compiler (puic)
#
# WARNING! All changes made in this file will be lost!
@ -38,9 +38,9 @@ use Qt::slots
GoPlot => [],
ShowMuSRT0 => [],
T0Update => [],
RunSelectionToggle => [];
RunSelectionToggle => [],
fileBrowse => [];
use Qt::attributes qw(
textLabel2_2
musrfit_tabs
RUNSPage
TITLELabel
@ -48,6 +48,8 @@ use Qt::attributes qw(
FILENAMELabel
FILENAME
RUNSelection
textLabel1_4
RUNSAuto
RunFiles
Browse
RunNumbers
@ -55,7 +57,6 @@ use Qt::attributes qw(
BeamLine
YEARLabel
YEAR
RUNSAuto
RUNSManual
ComponentsLabel
Comp1Label
@ -568,17 +569,14 @@ sub NEW
setName("MuSRFitform" );
}
setSizePolicy(Qt::SizePolicy(3, 3, 1, 1, this->sizePolicy()->hasHeightForWidth()) );
setMinimumSize(Qt::Size(23, 222) );
setMinimumSize(Qt::Size(582, 505) );
setIcon($image0 );
setCentralWidget(Qt::Widget(this, "qt_central_widget"));
textLabel2_2 = Qt::Label(centralWidget(), "textLabel2_2");
textLabel2_2->setGeometry( Qt::Rect(13, 78, 55, 19) );
my $MuSRFitformLayout = Qt::VBoxLayout(centralWidget(), 11, 6, '$MuSRFitformLayout');
musrfit_tabs = Qt::TabWidget(centralWidget(), "musrfit_tabs");
musrfit_tabs->setEnabled( 1 );
musrfit_tabs->setGeometry( Qt::Rect(11, 1, 560, 420) );
musrfit_tabs->setSizePolicy( Qt::SizePolicy(7, 7, 1, 1, musrfit_tabs->sizePolicy()->hasHeightForWidth()) );
musrfit_tabs->setMinimumSize( Qt::Size(560, 400) );
musrfit_tabs->setMaximumSize( Qt::Size(95, 32767) );
@ -586,16 +584,16 @@ sub NEW
RUNSPage = Qt::Widget(musrfit_tabs, "RUNSPage");
my $LayoutWidget = Qt::Widget(RUNSPage, '$LayoutWidget');
$LayoutWidget->setGeometry( Qt::Rect(5, 6, 550, 378) );
my $layout36 = Qt::VBoxLayout($LayoutWidget, 11, 6, '$layout36');
$LayoutWidget->setGeometry( Qt::Rect(1, 2, 555, 380) );
my $layout28 = Qt::VBoxLayout($LayoutWidget, 4, 0, '$layout28');
TITLELabel = Qt::Label($LayoutWidget, "TITLELabel");
TITLELabel->setSizePolicy( Qt::SizePolicy(5, 5, 0, 0, TITLELabel->sizePolicy()->hasHeightForWidth()) );
$layout36->addWidget(TITLELabel);
$layout28->addWidget(TITLELabel);
TITLE = Qt::LineEdit($LayoutWidget, "TITLE");
TITLE->setSizePolicy( Qt::SizePolicy(5, 0, 1, 1, TITLE->sizePolicy()->hasHeightForWidth()) );
$layout36->addWidget(TITLE);
$layout28->addWidget(TITLE);
my $layout17 = Qt::HBoxLayout(undef, 0, 6, '$layout17');
@ -605,15 +603,22 @@ sub NEW
FILENAME = Qt::LineEdit($LayoutWidget, "FILENAME");
FILENAME->setSizePolicy( Qt::SizePolicy(5, 0, 0, 0, FILENAME->sizePolicy()->hasHeightForWidth()) );
$layout17->addWidget(FILENAME);
$layout36->addLayout($layout17);
$layout28->addLayout($layout17);
RUNSelection = Qt::ButtonGroup($LayoutWidget, "RUNSelection");
RUNSelection->setMargin( int(0) );
RUNSelection->setExclusive( 1 );
textLabel1_4 = Qt::Label(RUNSelection, "textLabel1_4");
textLabel1_4->setGeometry( Qt::Rect(11, 64, 181, 36) );
RUNSAuto = Qt::RadioButton(RUNSelection, "RUNSAuto");
RUNSAuto->setGeometry( Qt::Rect(10, 45, 180, 22) );
RUNSAuto->setChecked( 1 );
my $LayoutWidget_2 = Qt::Widget(RUNSelection, '$LayoutWidget_2');
$LayoutWidget_2->setGeometry( Qt::Rect(190, 2, 335, 101) );
my $layout38 = Qt::VBoxLayout($LayoutWidget_2, 11, 6, '$layout38');
$LayoutWidget_2->setGeometry( Qt::Rect(196, 3, 340, 96) );
my $layout26 = Qt::VBoxLayout($LayoutWidget_2, 11, 6, '$layout26');
my $layout37 = Qt::HBoxLayout(undef, 0, 6, '$layout37');
@ -626,11 +631,11 @@ sub NEW
Browse->setEnabled( 0 );
Browse->setSizePolicy( Qt::SizePolicy(0, 5, 0, 0, Browse->sizePolicy()->hasHeightForWidth()) );
$layout37->addWidget(Browse);
$layout38->addLayout($layout37);
$layout26->addLayout($layout37);
RunNumbers = Qt::LineEdit($LayoutWidget_2, "RunNumbers");
RunNumbers->setSizePolicy( Qt::SizePolicy(5, 0, 0, 0, RunNumbers->sizePolicy()->hasHeightForWidth()) );
$layout38->addWidget(RunNumbers);
$layout26->addWidget(RunNumbers);
my $layout35 = Qt::HBoxLayout(undef, 0, 6, '$layout35');
@ -647,18 +652,14 @@ sub NEW
YEAR = Qt::ComboBox(0, $LayoutWidget_2, "YEAR");
YEAR->setSizePolicy( Qt::SizePolicy(5, 5, 0, 0, YEAR->sizePolicy()->hasHeightForWidth()) );
$layout35->addWidget(YEAR);
$layout38->addLayout($layout35);
RUNSAuto = Qt::RadioButton(RUNSelection, "RUNSAuto");
RUNSAuto->setGeometry( Qt::Rect(12, 42, 175, 22) );
RUNSAuto->setChecked( 1 );
$layout26->addLayout($layout35);
RUNSManual = Qt::RadioButton(RUNSelection, "RUNSManual");
RUNSManual->setGeometry( Qt::Rect(12, 12, 175, 22) );
$layout36->addWidget(RUNSelection);
RUNSManual->setGeometry( Qt::Rect(10, 15, 180, 22) );
$layout28->addWidget(RUNSelection);
ComponentsLabel = Qt::Label($LayoutWidget, "ComponentsLabel");
$layout36->addWidget(ComponentsLabel);
$layout28->addWidget(ComponentsLabel);
my $layout19 = Qt::GridLayout(undef, 1, 1, 0, 6, '$layout19');
@ -691,7 +692,7 @@ sub NEW
Comp2Label = Qt::Label($LayoutWidget, "Comp2Label");
$layout19->addWidget(Comp2Label, 0, 1);
$layout36->addLayout($layout19);
$layout28->addLayout($layout19);
my $layout20 = Qt::GridLayout(undef, 1, 1, 0, 6, '$layout20');
@ -721,7 +722,7 @@ sub NEW
TisLabel = Qt::Label($LayoutWidget, "TisLabel");
$layout20->addWidget(TisLabel, 0, 0);
$layout36->addLayout($layout20);
$layout28->addLayout($layout20);
my $layout23 = Qt::HBoxLayout(undef, 0, 6, '$layout23');
@ -737,7 +738,7 @@ sub NEW
LRBF = Qt::LineEdit($LayoutWidget, "LRBF");
LRBF->setSizePolicy( Qt::SizePolicy(5, 0, 0, 0, LRBF->sizePolicy()->hasHeightForWidth()) );
$layout23->addWidget(LRBF);
$layout36->addLayout($layout23);
$layout28->addLayout($layout23);
musrfit_tabs->insertTab( RUNSPage, "" );
SharingPahe = Qt::Widget(musrfit_tabs, "SharingPahe");
@ -980,7 +981,7 @@ sub NEW
my $LayoutWidget_6 = Qt::Widget(TabPage, '$LayoutWidget_6');
$LayoutWidget_6->setGeometry( Qt::Rect(418, 5, 125, 120) );
my $layout28 = Qt::VBoxLayout($LayoutWidget_6, 11, 6, '$layout28');
my $layout28_2 = Qt::VBoxLayout($LayoutWidget_6, 11, 6, '$layout28_2');
go = Qt::PushButton($LayoutWidget_6, "go");
go->setSizePolicy( Qt::SizePolicy(7, 0, 1, 0, go->sizePolicy()->hasHeightForWidth()) );
@ -988,7 +989,7 @@ sub NEW
go->setMaximumSize( Qt::Size(95, 30) );
go->setAutoDefault( 0 );
go->setDefault( 1 );
$layout28->addWidget(go);
$layout28_2->addWidget(go);
PlotMSR = Qt::PushButton($LayoutWidget_6, "PlotMSR");
PlotMSR->setSizePolicy( Qt::SizePolicy(7, 0, 1, 0, PlotMSR->sizePolicy()->hasHeightForWidth()) );
@ -996,7 +997,7 @@ sub NEW
PlotMSR->setMaximumSize( Qt::Size(95, 30) );
PlotMSR->setAutoDefault( 0 );
PlotMSR->setDefault( 1 );
$layout28->addWidget(PlotMSR);
$layout28_2->addWidget(PlotMSR);
FitTextOutput = Qt::TextEdit(TabPage, "FitTextOutput");
FitTextOutput->setGeometry( Qt::Rect(5, 135, 545, 230) );
@ -1009,17 +1010,17 @@ sub NEW
$LayoutWidget_7->setGeometry( Qt::Rect(5, 5, 545, 94) );
my $layout33 = Qt::HBoxLayout($LayoutWidget_7, 11, 6, '$layout33');
my $layout26 = Qt::VBoxLayout(undef, 0, 6, '$layout26');
my $layout26_2 = Qt::VBoxLayout(undef, 0, 6, '$layout26_2');
FUnitsLabel = Qt::Label($LayoutWidget_7, "FUnitsLabel");
$layout26->addWidget(FUnitsLabel);
$layout26_2->addWidget(FUnitsLabel);
FApodizationLabel = Qt::Label($LayoutWidget_7, "FApodizationLabel");
$layout26->addWidget(FApodizationLabel);
$layout26_2->addWidget(FApodizationLabel);
FPlotLabel = Qt::Label($LayoutWidget_7, "FPlotLabel");
$layout26->addWidget(FPlotLabel);
$layout33->addLayout($layout26);
$layout26_2->addWidget(FPlotLabel);
$layout33->addLayout($layout26_2);
my $layout27 = Qt::VBoxLayout(undef, 0, 6, '$layout27');
@ -1036,17 +1037,17 @@ sub NEW
$layout27->addWidget(FPlot);
$layout33->addLayout($layout27);
my $layout28_2 = Qt::VBoxLayout(undef, 0, 6, '$layout28_2');
my $layout28_3 = Qt::VBoxLayout(undef, 0, 6, '$layout28_3');
textLabel1 = Qt::Label($LayoutWidget_7, "textLabel1");
$layout28_2->addWidget(textLabel1);
$layout28_3->addWidget(textLabel1);
textLabel1_3 = Qt::Label($LayoutWidget_7, "textLabel1_3");
$layout28_2->addWidget(textLabel1_3);
$layout28_3->addWidget(textLabel1_3);
textLabel1_3_5 = Qt::Label($LayoutWidget_7, "textLabel1_3_5");
$layout28_2->addWidget(textLabel1_3_5);
$layout33->addLayout($layout28_2);
$layout28_3->addWidget(textLabel1_3_5);
$layout33->addLayout($layout28_3);
my $layout29 = Qt::VBoxLayout(undef, 0, 6, '$layout29');
@ -1219,6 +1220,7 @@ sub NEW
ShowT0->setAutoDefault( 0 );
ShowT0->setDefault( 1 );
musrfit_tabs->insertTab( TabPage_3, "" );
$MuSRFitformLayout->addWidget(musrfit_tabs);
fileNewAction= Qt::Action(this, "fileNewAction");
fileNewAction->setIconSet( Qt::IconSet($image1) );
@ -1278,7 +1280,6 @@ sub NEW
MenuBar= Qt::MenuBar( this, "MenuBar");
MenuBar->setEnabled( 1 );
MenuBar->setGeometry( Qt::Rect(0, 0, 582, 25) );
fileMenu = Qt::PopupMenu( this );
fileOpenAction->addTo( fileMenu );
@ -1288,7 +1289,7 @@ sub NEW
filePrintAction->addTo( fileMenu );
fileMenu->insertSeparator();
fileExitAction->addTo( fileMenu );
MenuBar->insertItem( "", fileMenu, 3 );
MenuBar->insertItem( "", fileMenu, 2 );
editMenu = Qt::PopupMenu( this );
editUndoAction->addTo( editMenu );
@ -1297,21 +1298,21 @@ sub NEW
editCutAction->addTo( editMenu );
editCopyAction->addTo( editMenu );
editPasteAction->addTo( editMenu );
MenuBar->insertItem( "", editMenu, 4 );
MenuBar->insertItem( "", editMenu, 3 );
Options = Qt::PopupMenu( this );
FileExistCheck->addTo( Options );
MaualFile->addTo( Options );
MenuBar->insertItem( "", Options, 5 );
MenuBar->insertItem( "", Options, 4 );
helpMenu = Qt::PopupMenu( this );
helpContentsAction->addTo( helpMenu );
helpIndexAction->addTo( helpMenu );
helpMenu->insertSeparator();
helpAboutAction->addTo( helpMenu );
MenuBar->insertItem( "", helpMenu, 6 );
MenuBar->insertItem( "", helpMenu, 5 );
MenuBar->insertSeparator( 7 );
MenuBar->insertSeparator( 6 );
languageChange();
my $resize = Qt::Size(582, 505);
@ -1339,6 +1340,7 @@ sub NEW
Qt::Object::connect(BeamLine, SIGNAL "activated(int)", this, SLOT "T0Update()");
Qt::Object::connect(InitParamTable, SIGNAL "valueChanged(int,int)", this, SLOT "CallMSRCreate()");
Qt::Object::connect(RUNSManual, SIGNAL "toggled(bool)", this, SLOT "RunSelectionToggle()");
Qt::Object::connect(Browse, SIGNAL "clicked()", this, SLOT "fileBrowse()");
setTabOrder(musrfit_tabs, TITLE);
setTabOrder(TITLE, FILENAME);
@ -1387,12 +1389,13 @@ sub languageChange
{
setCaption(trUtf8("MuSRFit GUI") );
setIconText(trUtf8("MuSRFitGUI") );
textLabel2_2->setText( trUtf8("Bg1") );
TITLELabel->setText( trUtf8("Enter the label (defaul is run title from the first run)") );
TITLE->setText( trUtf8("","Title line for MSR file (optional)") );
Qt::ToolTip::add(TITLE, trUtf8("Title line for MSR file (optional)"));
FILENAMELabel->setText( trUtf8("Enter [name] for output [name].msr file (optional)") );
RUNSelection->setTitle( undef );
textLabel1_4->setText( undef );
RUNSAuto->setText( trUtf8("Input the RUN numbers") );
Browse->setText( trUtf8("Browse") );
BeamLineLabel->setText( trUtf8("On beam line") );
BeamLine->clear();
@ -1408,7 +1411,6 @@ sub languageChange
YEAR->insertItem( trUtf8("2006") );
YEAR->insertItem( trUtf8("2005") );
YEAR->insertItem( trUtf8("2004") );
RUNSAuto->setText( trUtf8("Input the RUN numbers") );
RUNSManual->setText( trUtf8("Select RUNs Manually") );
ComponentsLabel->setText( trUtf8("Chose type of fitting function") );
Comp1Label->setText( trUtf8("First Component") );
@ -1630,10 +1632,10 @@ sub languageChange
Action_2->setText( trUtf8("Unnamed") );
Action_3->setText( trUtf8("Unnamed") );
toolBar->setLabel( trUtf8("Tools") );
MenuBar->findItem( 3 )->setText( trUtf8("&File") );
MenuBar->findItem( 4 )->setText( trUtf8("&Edit") );
MenuBar->findItem( 5 )->setText( trUtf8("Options") );
MenuBar->findItem( 6 )->setText( trUtf8("&Help") );
MenuBar->findItem( 2 )->setText( trUtf8("&File") );
MenuBar->findItem( 3 )->setText( trUtf8("&Edit") );
MenuBar->findItem( 4 )->setText( trUtf8("Options") );
MenuBar->findItem( 5 )->setText( trUtf8("&Help") );
}
@ -1779,17 +1781,26 @@ sub CreateAllInput
$All{"TITLE"}= TITLE->text;
$All{"FILENAME"}= FILENAME->text;
$All{"RunNumbers"} = RunNumbers->text;
$All{"RunFiles"} = RunFiles->text;
$All{"BeamLine"} = BeamLine->currentText;
$All{"RUNSType"} = RUNSManual->isChecked();
$All{"YEAR"} =YEAR->currentText;
$All{"Tis"} = Tis->text;
$All{"Tfs"} = Tfs->text;
$All{"BINS"} = BINS->text;
$All{"FitAsyType"} = FitAsyType->currentText;
$All{"LRBF"} = LRBF->text;
$All{"RunNumbers"} =~ s/[\ \.\~\/\&\*\[\;\>\<\^\$\(\)\`\|\]\'\@]/,/g;
my @RUNS = split( /,/, $All{"RunNumbers"} );
my @Hists = split(/,/, $All{"LRBF"} );
my @RUNS = ();
if ($All{"RUNSType"} ) {
@RUNS = split( /,/, $All{"RunFiles"});
} else {
$All{"RunNumbers"} =~ s/[\ \.\~\/\&\*\[\;\>\<\^\$\(\)\`\|\]\'\@]/,/g;
@RUNS = split( /,/, $All{"RunNumbers"} );
}
my @Hists = split(/,/, $All{"LRBF"} );
# From Fourier Tab
$All{"FUNITS"}= FUnits->currentText;
$All{"FAPODIZATION"}= FApodization->currentText;
@ -1911,14 +1922,18 @@ sub CreateAllInput
}
$All{"Sh_$Param"}=$Shared;
$NP++;
}#Loop on parameters
$Component++;
}# Loop on components
}
#Loop on parameters
$Component++;
}
# Loop on components
# Done with shared parameters detecting
# Construct a default filename if empty
if ( $All{"FILENAME"} eq "") {
if ( $All{"FILENAME"} eq "" && !$All{"RUNSType"}) {
$All{"FILENAME"}=$RUNS[0]."_".$All{"BeamLine"}."_".$All{"YEAR"};
} else {
$All{"FILENAME"}="TMP";
}
if ( $All{"go"} eq "" ) {
@ -1961,7 +1976,7 @@ sub CallMSRCreate
use MSR;
my %All=CreateAllInput();
if ($All{"RunNumbers"} ne "") {
if ($All{"RunNumbers"} ne "" || $All{"RunFiles"} ne "") {
if ( $All{"FitAsyType"} eq "Asymmetry" ) {
my ($Full_T_Block,$Paramcomp_ref)= MSR::CreateMSR(\%All);
}
@ -2276,10 +2291,43 @@ sub T0Update
sub RunSelectionToggle
{
my $RUNSType = RUNSManual->isChecked();
if ($RUNSType) {
# Manual RUN selection
RunFiles->setEnabled(1);
Browse->setEnabled(1);
RunNumbers->setEnabled(0);
RunNumbers->setText("");
BeamLine->setEnabled(0);
YEAR->setEnabled(0);
} else {
# Auto RUN selection
RunFiles->setEnabled(0);
RunFiles->setText("");
Browse->setEnabled(0);
RunNumbers->setEnabled(1);
BeamLine->setEnabled(1);
YEAR->setEnabled(1);
}
print "Toggle selection\n";
}
sub fileBrowse
{
my $files_ref=Qt::FileDialog::getOpenFileNames(
"Data files (*.root *.bin)",
"./",
this,
"open files dialog",
"Select one or more files to fit");
my @files = @$files_ref;
my $RunFiles=join(",",@files);
RunFiles->setText($RunFiles);
}
1;

4708
src/external/MuSRFitGUI/MuSRFit.ui vendored
View File

File diff suppressed because it is too large Load Diff

63
src/external/MuSRFitGUI/MuSRFit.ui.h vendored
View File

@ -71,7 +71,7 @@ void Form1::fileSave()
}
}
void MuSRFitform::fileChangeDir()
void Form1::fileChangeDir()
{
my $newdir=Qt::FileDialog::getExistingDirectory(
"",
@ -170,16 +170,24 @@ void MuSRFitform::CreateAllInput()
$All{"RunNumbers"} = RunNumbers->text;
$All{"RunFiles"} = RunFiles->text;
$All{"BeamLine"} = BeamLine->currentText;
$All{"RUNSType"} = RUNSManual->isChecked();
$All{"YEAR"} =YEAR->currentText;
$All{"Tis"} = Tis->text;
$All{"Tfs"} = Tfs->text;
$All{"BINS"} = BINS->text;
$All{"FitAsyType"} = FitAsyType->currentText;
$All{"LRBF"} = LRBF->text;
$All{"RunNumbers"} =~ s/[\ \.\~\/\&\*\[\;\>\<\^\$\(\)\`\|\]\'\@]/,/g;
my @RUNS = split( /,/, $All{"RunNumbers"} );
my @Hists = split(/,/, $All{"LRBF"} );
my @RUNS = ();
if ($All{"RUNSType"} ) {
@RUNS = split( /,/, $All{"RunFiles"});
} else {
$All{"RunNumbers"} =~ s/[\ \.\~\/\&\*\[\;\>\<\^\$\(\)\`\|\]\'\@]/,/g;
@RUNS = split( /,/, $All{"RunNumbers"} );
}
my @Hists = split(/,/, $All{"LRBF"} );
# From Fourier Tab
$All{"FUNITS"}= FUnits->currentText;
$All{"FAPODIZATION"}= FApodization->currentText;
@ -301,14 +309,18 @@ void MuSRFitform::CreateAllInput()
}
$All{"Sh_$Param"}=$Shared;
$NP++;
}#Loop on parameters
$Component++;
}# Loop on components
}
#Loop on parameters
$Component++;
}
# Loop on components
# Done with shared parameters detecting
# Construct a default filename if empty
if ( $All{"FILENAME"} eq "") {
if ( $All{"FILENAME"} eq "" && !$All{"RUNSType"}) {
$All{"FILENAME"}=$RUNS[0]."_".$All{"BeamLine"}."_".$All{"YEAR"};
} else {
$All{"FILENAME"}="TMP";
}
if ( $All{"go"} eq "" ) {
@ -349,7 +361,7 @@ void MuSRFitform::CallMSRCreate()
{
use MSR;
my %All=CreateAllInput();
if ($All{"RunNumbers"} ne "") {
if ($All{"RunNumbers"} ne "" || $All{"RunFiles"} ne "") {
if ( $All{"FitAsyType"} eq "Asymmetry" ) {
my ($Full_T_Block,$Paramcomp_ref)= MSR::CreateMSR(\%All);
}
@ -648,5 +660,36 @@ void MuSRFitform::T0Update()
void MuSRFitform::RunSelectionToggle()
{
print "Toggle selection\n";
my $RUNSType = RUNSManual->isChecked();
if ($RUNSType) {
# Manual RUN selection
RunFiles->setEnabled(1);
Browse->setEnabled(1);
RunNumbers->setEnabled(0);
RunNumbers->setText("");
BeamLine->setEnabled(0);
YEAR->setEnabled(0);
} else {
# Auto RUN selection
RunFiles->setEnabled(0);
RunFiles->setText("");
Browse->setEnabled(0);
RunNumbers->setEnabled(1);
BeamLine->setEnabled(1);
YEAR->setEnabled(1);
}
}
void MuSRFitform::fileBrowse()
{
my $files_ref=Qt::FileDialog::getOpenFileNames(
"Data files (*.root *.bin)",
"./",
this,
"open files dialog",
"Select one or more files to fit");
my @files = @$files_ref;
my $RunFiles=join(",",@files);
RunFiles->setText($RunFiles);
}