|
105 | 105 | RCart(1,1,curPoint)=r^2*sigmaTheta2*sT^2+sigmaR2*cT^2; |
106 | 106 | %Equation 10.4.3-6 |
107 | 107 | RCart(1,2,curPoint)=(sigmaR2-r^2*sigmaTheta2)*sT*cT; |
108 | | - RCart(2,1,curPoint)=RCart(1,2); |
| 108 | + RCart(2,1,curPoint)=RCart(1,2,curPoint); |
109 | 109 | %Equation 10.4.3-5 |
110 | 110 | RCart(2,2,curPoint)=r^2*sigmaTheta2*cT^2+sigmaR2*sT^2; |
111 | 111 |
|
|
139 | 139 | RCart(1,1,curPoint)=r^2*expTerm2*(cT^2*deltaCosh+sT^2*deltaSinh)+sigmaR2*expTerm2*(cT^2*deltaCosh2+sT^2*deltaSinh2); |
140 | 140 | %Equation 13c |
141 | 141 | RCart(1,2,curPoint)=sT*cT*expTerm2^2*(sigmaR2+(r^2+sigmaR2)*(1-1/expTerm)); |
142 | | - RCart(2,1,curPoint)=RCart(1,2); |
| 142 | + RCart(2,1,curPoint)=RCart(1,2,curPoint); |
143 | 143 | %Equation 13b |
144 | 144 | RCart(2,2,curPoint)=r^2*expTerm2*(sT^2*deltaCosh+cT^2*deltaSinh)+sigmaR2*expTerm2*(sT^2*deltaCosh2+cT^2*deltaSinh2); |
145 | 145 |
|
|
172 | 172 | RCart(1,1,curPoint)=(b1Inv^2-2)*r^2*cT^2+(1/2)*(r^2+sigmaR2)*(1+b2*c2T); |
173 | 173 | %Equation 7c in [2]. |
174 | 174 | RCart(1,2,curPoint)=b1Inv^2*r^2*cT*sT-2*r^2*cT*sT+(1/2)*(r^2+sigmaR2)*b2*s2T; |
175 | | - RCart(2,1,curPoint)=RCart(1,2); |
| 175 | + RCart(2,1,curPoint)=RCart(1,2,curPoint); |
176 | 176 | %Equation 7b in [2]. |
177 | 177 | RCart(2,2,curPoint)=(b1Inv^2-2)*r^2*sT^2+(1/2)*(r^2+sigmaR2)*(1-b2*c2T); |
178 | 178 |
|
|
208 | 208 | RCart(1,1,curPoint)=(1/2)*(r^2+sigmaR2)*(1+c2T*expTerm2)-expTerm*r^2*cT^2; |
209 | 209 | %Equation 18 |
210 | 210 | RCart(1,2,curPoint)=(1/2)*(r^2+sigmaR2)*s2T*expTerm2-expTerm*r^2*cT*sT; |
211 | | - RCart(2,1,curPoint)=RCart(1,2); |
| 211 | + RCart(2,1,curPoint)=RCart(1,2,curPoint); |
212 | 212 | %Equation 17 |
213 | 213 | RCart(2,2,curPoint)=(1/2)*(r^2+sigmaR2)*(1-c2T*expTerm2)-expTerm*r^2*sT^2; |
214 | 214 |
|
|
0 commit comments