Mercurial > repos > public > sbplib

comparison +scheme/Hypsyst3d.m @ 356:9567a9dd220d feature/hypsyst

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
The problem with the upwid operators is fixed
author Ylva Rydin <ylva.rydin@telia.com>
date Thu, 08 Dec 2016 10:52:15 +0100
parents 69b078cf8072
children 53abf04f5e4e
comparison
equal deleted inserted replaced
355:69b078cf8072 356:9567a9dd220d
136 Dpz = kr(I_n, I_x, I_y,ops_z.Dp); 136 Dpz = kr(I_n, I_x, I_y,ops_z.Dp);
137 Dmz = kr(I_n, I_x, I_y,ops_z.Dm); 137 Dmz = kr(I_n, I_x, I_y,ops_z.Dm);
138 138
139 temp=Cm*Dpz; 139 temp=Cm*Dpz;
140 obj.D=obj.D-temp; 140 obj.D=obj.D-temp;
141 temp=-Cp*Dmz; 141 temp=Cp*Dmz;
142 obj.D=obj.D-temp; 142 obj.D=obj.D-temp;
143 clear Cp Cm Dpz Dmz 143 clear Cp Cm Dpz Dmz
144 144
145 obj.D=obj.D-obj.Eevaluated; 145 obj.D=obj.D-obj.Eevaluated;
146 146