1 c ................. .................
5 c . . ===> .................
9 c ................. .................
21 do 223 , nrofon = 1 , nbfonc
22 c pour le quadrangle Q1
24 vafott(nrofon,q1,f1cp) = vafoen(nrofon,q1,prqucn)
26 vafott(nrofon,q2,f1cp) = vafoen(nrofon,q5,prqucn)
28 vafott(nrofon,q3,f1cp) =
29 > -unsqu*(vafoen(nrofon,q1,prqucn)+vafoen(nrofon,q2,prqucn)+
30 > vafoen(nrofon,q3,prqucn)+vafoen(nrofon,q4,prqucn))+
31 > unsde*(vafoen(nrofon,q5,prqucn)+vafoen(nrofon,q6,prqucn)+
32 > vafoen(nrofon,q7,prqucn)+vafoen(nrofon,q8,prqucn))
33 vafott(nrofon,q4,f1cp) = vafoen(nrofon,q8,prqucn)
35 vafott(nrofon,q5,f1cp) =
36 > -unshu*vafoen(nrofon,q2,prqucn)+
37 > trshu*vafoen(nrofon,q1,prqucn)+
38 > trsqu*vafoen(nrofon,q5,prqucn)
40 vafott(nrofon,q6,f1cp) =
41 > -trssz*(vafoen(nrofon,q1,prqucn)+vafoen(nrofon,q2,prqucn)+
42 > vafoen(nrofon,q3,prqucn)+vafoen(nrofon,q4,prqucn))+
43 > trshu*(vafoen(nrofon,q6,prqucn)+vafoen(nrofon,q8,prqucn))+
44 > unsqu*vafoen(nrofon,q7,prqucn)+
45 > trsqu*vafoen(nrofon,q5,prqucn)
47 vafott(nrofon,q7,f1cp) =
48 > -trssz*(vafoen(nrofon,q1,prqucn)+vafoen(nrofon,q2,prqucn)+
49 > vafoen(nrofon,q3,prqucn)+vafoen(nrofon,q4,prqucn))+
50 > trshu*(vafoen(nrofon,q5,prqucn)+vafoen(nrofon,q7,prqucn))+
51 > unsqu*vafoen(nrofon,q6,prqucn)+
52 > trsqu*vafoen(nrofon,q8,prqucn)
54 vafott(nrofon,q8,f1cp) =
55 > -unshu*vafoen(nrofon,q4,prqucn)+
56 > trshu*vafoen(nrofon,q1,prqucn)+
57 > trsqu*vafoen(nrofon,q8,prqucn)
59 c pour le quadrangle Q2
61 vafott(nrofon,q1,f2cp) = vafoen(nrofon,q2,prqucn)
63 vafott(nrofon,q2,f2cp) = vafoen(nrofon,q6,prqucn)
65 vafott(nrofon,q3,f2cp) = vafott(nrofon,q3,f1cp)
67 vafott(nrofon,q4,f2cp) = vafoen(nrofon,q5,prqucn)
69 vafott(nrofon,q5,f2cp) =
70 > -unshu*vafoen(nrofon,q3,prqucn)+
71 > trshu*vafoen(nrofon,q2,prqucn)+
72 > trsqu*vafoen(nrofon,q6,prqucn)
74 vafott(nrofon,q6,f2cp) =
75 > -trssz*(vafoen(nrofon,q1,prqucn)+vafoen(nrofon,q2,prqucn)+
76 > vafoen(nrofon,q3,prqucn)+vafoen(nrofon,q4,prqucn))+
77 > trshu*(vafoen(nrofon,q5,prqucn)+vafoen(nrofon,q7,prqucn))+
78 > unsqu*vafoen(nrofon,q8,prqucn)+
79 > trsqu*vafoen(nrofon,q6,prqucn)
81 vafott(nrofon,q7,f2cp) =vafott(nrofon,q6,f1cp)
83 vafott(nrofon,q8,f2cp) =
84 > -unshu*vafoen(nrofon,q1,prqucn)+
85 > trshu*vafoen(nrofon,q2,prqucn)+
86 > trsqu*vafoen(nrofon,q5,prqucn)
88 c pour le quadrangle Q3
90 vafott(nrofon,q1,f3cp) = vafoen(nrofon,q3,prqucn)
92 vafott(nrofon,q2,f3cp) = vafoen(nrofon,q7,prqucn)
94 vafott(nrofon,q3,f3cp) = vafott(nrofon,q3,f1cp)
96 vafott(nrofon,q4,f3cp) = vafoen(nrofon,q6,prqucn)
98 vafott(nrofon,q5,f3cp) =
99 > -unshu*vafoen(nrofon,q4,prqucn)+
100 > trshu*vafoen(nrofon,q3,prqucn)+
101 > trsqu*vafoen(nrofon,q7,prqucn)
103 vafott(nrofon,q6,f3cp) =
104 > -trssz*(vafoen(nrofon,q1,prqucn)+vafoen(nrofon,q2,prqucn)+
105 > vafoen(nrofon,q3,prqucn)+vafoen(nrofon,q4,prqucn))+
106 > trshu*(vafoen(nrofon,q6,prqucn)+vafoen(nrofon,q8,prqucn))+
107 > unsqu*vafoen(nrofon,q5,prqucn)+
108 > trsqu*vafoen(nrofon,q7,prqucn)
110 vafott(nrofon,q7,f3cp) =vafott(nrofon,q6,f2cp)
112 vafott(nrofon,q8,f3cp) =
113 > -unshu*vafoen(nrofon,q2,prqucn)+
114 > trshu*vafoen(nrofon,q3,prqucn)+
115 > trsqu*vafoen(nrofon,q6,prqucn)
117 c pour le quadrangle Q4
119 vafott(nrofon,q1,f4cp) = vafoen(nrofon,q4,prqucn)
121 vafott(nrofon,q2,f4cp) = vafoen(nrofon,q8,prqucn)
123 vafott(nrofon,q3,f4cp) = vafott(nrofon,q3,f1cp)
125 vafott(nrofon,q4,f4cp) = vafoen(nrofon,q7,prqucn)
127 vafott(nrofon,q5,f4cp) =
128 > -unshu*vafoen(nrofon,q1,prqucn)+
129 > trshu*vafoen(nrofon,q4,prqucn)+
130 > trsqu*vafoen(nrofon,q8,prqucn)
132 vafott(nrofon,q6,f4cp) = vafott(nrofon,q7,f1cp)
134 vafott(nrofon,q7,f4cp) = vafott(nrofon,q6,f3cp)
136 vafott(nrofon,q8,f4cp) =
137 > -unshu*vafoen(nrofon,q3,prqucn)+
138 > trshu*vafoen(nrofon,q4,prqucn)+
139 > trsqu*vafoen(nrofon,q7,prqucn)