Changeset 869

Timestamp:

Oct 9, 2012 1:46:21 PM (10 years ago)

Author:

srkline

Message:

added coloring for relative errors for a fit that is greater than 50% of the parameter value. If the error is >50%, the column of W_sigma is made red/bold. It returns to black when the model or data set is switched.

File:

• sans/Dev/trunk/NCNR_User_Procedures/Analysis/Packages/Wrapper_v40.ipf (modified) (3 diffs)

sans/Dev/trunk/NCNR_User_Procedures/Analysis/Packages/Wrapper_v40.ipf

@@ -3 +3 @@
 #pragma IgorVersion=6.1
 
+
+// this is the flag for the relative error = W_sigma/coef that will
+// trip the bold/red color of W_sigma in the table.
+//
+Constant kRelErrorTolerance=0.5
 
 //Macro OpenWrapperPanel()
@@ -1023 +1028 @@
         print w_sigma
         String resultStr=""
+        Variable maxRelError=0
         
         if(waveexists(W_sigma))
@@ -1034 +1040 @@
                         // -- not really, since any switch of the function menu takes W_Sigma off
                 endif
+                // then do I want to color it if the errors are horrible?
+                Duplicate/O cw, relError
+                relError = W_sigma/cw
+                maxRelError = WaveMax(relError)
+                if(maxRelError > kRelErrorTolerance)
+                        ModifyTable/W=wrapperPanel#T0 style(W_sigma)=1,rgb(W_sigma)=(65535,0,0)
+                else
+                        ModifyTable/W=wrapperPanel#T0 style=0,rgb=(0,0,0)
+                endif
+                
         endif