1Model_Name = "Fitness"; 2Model_EFV_Type = "User Defined Vector"; 3Model_Options = 8; 4Model_Dimension = 20; 5Model_Data_Type = 1; 6 7aaCodes = {{"A", 8"C", 9"D", 10"E", 11"F", 12"G", 13"H", 14"I", 15"K", 16"L", 17"M", 18"N", 19"P", 20"Q", 21"R", 22"S", 23"T", 24"V", 25"W", 26"Y"}}; 27 28function GUIPopulateModelMatrix (ModelMatrixName&, EFV) 29{ 30 ModelMatrixName = {20,20}; 31 EFV = {20,1}; 32 33 commandString = ""; 34 35 for (rI = 1; rI < 20; rI = rI+1) 36 { 37 commandString = commandString + "global globalVariable_F_" + aaCodes[rI] + 38 "=0; global globalVariable_FR_" + aaCodes[rI] + 39 ":>-1e10;\n"; 40 } 41 42 ExecuteCommands (commandString); 43 44 for (cI = 1; cI < 20; cI = cI+1) 45 { 46 commandString = "ModelMatrixName[0]["+cI+"]:=t*(1+(globalVariable_F_" + 47 aaCodes[cI] + "<0)*(Exp(globalVariable_F_"+ 48 aaCodes[cI] + ")-1));\n" + 49 "ModelMatrixName["+cI+"][0]:=t*(1+(0>" + "globalVariable_F_" + 50 aaCodes[cI] + ")*(Exp(-globalVariable_F_"+ 51 aaCodes[cI] + ")-1));\n"; 52 ExecuteCommands (commandString); 53 } 54 55 for (rI = 1; rI < 19; rI = rI+1) 56 { 57 for (cI = rI+1; cI < 20; cI = cI+1) 58 { 59 commandString = "ModelMatrixName["+rI+"]["+cI+"]:=t*(1+(globalVariable_F_" + 60 aaCodes[cI] + "<" + "globalVariable_F_" + 61 aaCodes[rI] + ")*(Exp(globalVariable_F_"+ 62 aaCodes[cI] + "-globalVariable_F_"+ 63 aaCodes[rI] + ")-1));\n" + 64 "ModelMatrixName["+cI+"]["+rI+"]:=t*(1+(globalVariable_F_" + 65 aaCodes[rI] + "<" + "globalVariable_F_" + 66 aaCodes[cI] + ")*(Exp(globalVariable_F_"+ 67 aaCodes[rI] + "-globalVariable_F_"+ 68 aaCodes[cI] + ")-1));\n"; 69 ExecuteCommands (commandString); 70 } 71 } 72 73 commandString = "global globalVariable_EFV_Norm:=1"; 74 for (rI = 1; rI < 20; rI = rI+1) 75 { 76 commandString = commandString+"+Exp(globalVariable_FR_"+aaCodes[rI]+")"; 77 } 78 Model_EFV_Vector = {20,1}; 79 ExecuteCommands (commandString+";"); 80 commandString = "Model_EFV_Vector[0]:=1/globalVariable_EFV_Norm;"; 81 ExecuteCommands (commandString); 82 for (rI = 1; rI < 20; rI = rI+1) 83 { 84 commandString = "Model_EFV_Vector[" + rI + "]:=Exp(globalVariable_FR_" + aaCodes[rI] + ")/globalVariable_EFV_Norm;"; 85 ExecuteCommands (commandString); 86 } 87 return 0; 88} 89 90 91 92