130 double const m1 = 4.0 *
lch / acos(-1.) / ls;
135 double const m2 = std::pow(2., 5. / 3.) - 3.;
136 double const n = 2.5;
137 double const a1 = std::pow(d_ip, n) +
138 m1 * (1. - d_ip) * (1. + m2 * (1. - d_ip));
139 double const a2 = n * std::pow(d_ip, n - 1.) -
140 2. * m1 * m2 * (1. - d_ip) - m1;
141 return (n * std::pow(d_ip, n - 1.) * a1 -
142 std::pow(d_ip, n) * a2) /
147 double const m2 = -0.5;
149 double const a1 = std::pow(d_ip, n) +
150 m1 * (1. - d_ip) * (1. + m2 * (1. - d_ip));
151 double const a2 = n * std::pow(d_ip, n - 1.) -
152 2. * m1 * m2 * (1. - d_ip) - m1;
153 return (n * std::pow(d_ip, n - 1.) * a1 -
154 std::pow(d_ip, n) * a2) /
161 double const m1 = 4.0 *
lch / acos(-1.) / ls;
166 double const m2 = std::pow(2., 5. / 3.) - 3.;
167 double const n = 2.5;
168 double a1 = std::pow(d_ip, n) +
169 m1 * (1. - d_ip) * (1. + m2 * (1. - d_ip));
170 double a2 = n * std::pow(d_ip, n - 1.) -
171 2. * m1 * m2 * (1. - d_ip) - m1;
172 return (2. * a2 * a2 * std::pow(d_ip, n) -
173 a1 * std::pow(d_ip, n) *
175 n * std::pow(d_ip, n - 2.) * (n - 1.)) -
176 2. * a1 * a2 * n * std::pow(d_ip, n - 1.) +
177 a1 * a1 * n * std::pow(d_ip, n - 2.) * (n - 1.)) /
182 double const m2 = -0.5;
184 double const a1 = std::pow(d_ip, n) +
185 m1 * (1. - d_ip) * (1. + m2 * (1. - d_ip));
186 double const a2 = n * std::pow(d_ip, n - 1.) -
187 2. * m1 * m2 * (1. - d_ip) - m1;
188 return (2. * a2 * a2 * std::pow(d_ip, n) -
189 a1 * std::pow(d_ip, n) *
191 n * std::pow(d_ip, n - 2.) * (n - 1.)) -
192 2. * a1 * a2 * n * std::pow(d_ip, n - 1.) +
193 a1 * a1 * n * std::pow(d_ip, n - 2.) * (n - 1.)) /