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