Changeset 841

Timestamp:

Dec 4, 2009 5:12:57 PM (13 years ago)

Author:

toby

Message:

# on 2005/03/24 21:54:28, toby did:
add defs for function #5 (thanks RBVD)
fix # & labels for terms in Profile #4 (4/m -3R -3 -3m1)
fix bug in Set on change profile for multiple histograms/phases

File:

• trunk/gsascmds.tcl (modified) (5 diffs, 3 props)

trunk/gsascmds.tcl

@@ -518 +518 @@
     prof-T-4 {alp bet-0 bet-1 sig-1 sig-2 gam-2 g2ec gsf \
             rstr rsta rsca eta}
+    prof-T-5 {alp bet-0 bet-1 sig-0 sig-1 sig-2 gam-0 gam-1 \
+            gam-2 gsf g1ec g2ec rstr rsta rsca D1 D2 D3 D4 D5 D6 }
     prof-C-1 {GU GV GW asym F1 F2 }
     prof-C-2 {GU GV GW LX LY trns asym shft GP stec ptec sfec \
@@ -524 +526 @@
             L11 L22 L33 L12 L13 L23 }
     prof-C-4 {GU GV GW GP LX ptec trns shft sfec S/L H/L eta} 
+    prof-C-5 {GU GV GW GP LX LY S/L H/L trns shft stec ptec sfec \
+            D1 D2 D3 D4 D5 D6 }
     prof-E-1 {A B C ds cds}
+    prof-E-2 {A B C ds cds LX LY ptec stec}
 }
 
@@ -555 +560 @@
 
 proc Profile4Terms {laueaxis} {
+# GSAS Laue classes by number vs spacegrp labeling
+#   1    2    3    4     5      6     7       8     9      10     11     12   13  14
+# 1bar, 2/m, mmm, 4/m, 4/mmm, 3bar, 3bar m, 3bar, 3barm1, 3bar1m, 6/m, 6/mmm, m 3, m3m
+#                              R      R      H      H       H
+# (R=Rhombohedral setting; H=Hexagonal setting)
     switch -exact $laueaxis {
         1bar {return \
@@ -563 +573 @@
         2/mc {return "S400 S040 S004 S220 S202 S022 S130 S310 S112"}
         mmm  {return "S400 S040 S004 S220 S202 S022"}
-        4/m  {return "S400 S004 S220 S202"}
+        4/m  {return "S400 S004 S220 S202 S310"}
         4/mmm {return "S400 S004 S220 S202"}
-        3barR     {return "S400 S220 S310 S211"}
+        3barR     {return "S400 S220 S310 S301 S211"}
         "3bar mR" {return "S400 S220 S310 S211"}
-        3bar    {return "S400 S004 S202 S211"}
-        3barm1 {return "S400 S004 S202"}
+        3bar    {return "S400 S004 S202 S310 S211"}
+        3barm1 {return "S400 S004 S202 S301"}
         3bar1m  {return "S400 S004 S202 S211"}
         6/m    {return "S400 S004 S202"}
@@ -681 +691 @@
     pack [frame $w.d -bg beige] -side top -expand yes -fill both
     pack [button $w.d.2 -text Set  \
-            -command "SaveChangeProfileType $w.c $histlist $phaselist; destroy $w"\
+              -command "SaveChangeProfileType $w.c [list $histlist] [list $phaselist]; destroy $w"\
             ] -side left
     pack [button $w.d.3 -text Quit \