//
// File: erf.cpp
//
// MATLAB Coder version : 3.3
// C/C++ source code generated on : 15-Apr-2020 16:54:04
//
// Include Files
#include "rt_nonfinite.h"
#include "gaosi.h"
#include "erf.h"
// Function Declarations
static double rt_powd_snf(double u0, double u1);
// Function Definitions
//
// Arguments : double u0
// double u1
// Return Type : double
//
static double rt_powd_snf(double u0, double u1)
{
double y;
double d0;
double d1;
if (rtIsNaN(u0) || rtIsNaN(u1)) {
y = rtNaN;
} else {
d0 = std::abs(u0);
d1 = std::abs(u1);
if (rtIsInf(u1)) {
if (d0 == 1.0) {
y = 1.0;
} else if (d0 > 1.0) {
if (u1 > 0.0) {
y = rtInf;
} else {
y = 0.0;
}
} else if (u1 > 0.0) {
y = 0.0;
} else {
y = rtInf;
}
} else if (d1 == 0.0) {
y = 1.0;
} else if (d1 == 1.0) {
if (u1 > 0.0) {
y = u0;
} else {
y = 1.0 / u0;
}
} else if (u1 == 2.0) {
y = u0 * u0;
} else if ((u1 == 0.5) && (u0 >= 0.0)) {
y = std::sqrt(u0);
} else if ((u0 < 0.0) && (u1 > std::floor(u1))) {
y = rtNaN;
} else {
y = pow(u0, u1);
}
}
return y;
}
//
// Arguments : double x
// Return Type : double
//
double b_erf(double x)
{
double y;
double absx;
double S;
double s;
double R;
int eint;
// ========================== COPYRIGHT NOTICE ============================
// The algorithms for calculating ERF(X) and ERFC(X) are derived
// from FDLIBM, which has the following notice:
//
// Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
//
// Developed at SunSoft, a Sun Microsystems, Inc. business.
// Permission to use, copy, modify, and distribute this
// software is freely granted, provided that this notice
// is preserved.
// ============================= END ================================
absx = std::abs(x);
if (rtIsNaN(x)) {
y = x;
} else if (rtIsInf(x)) {
if (x < 0.0) {
y = -1.0;
} else {
y = 1.0;
}
} else if (absx < 0.84375) {
if (absx < 3.7252902984619141E-9) {
if (absx < 2.8480945388892178E-306) {
y = 0.125 * (8.0 * x + 1.0270333367641007 * x);
} else {
y = x + 0.12837916709551259 * x;
}
} else {
s = x * x;
y = x + x * ((0.12837916709551256 + s * (-0.3250421072470015 + s *
(-0.02848174957559851 + s * (-0.0057702702964894416 + s *
-2.3763016656650163E-5)))) / (1.0 + s * (0.39791722395915535 + s *
(0.0650222499887673 + s * (0.0050813062818757656 + s *
(0.00013249473800432164 + s * -3.9602282787753681E-6))))));
}
} else if (absx < 1.25) {
S = -0.0023621185607526594 + (absx - 1.0) * (0.41485611868374833 + (absx -
1.0) * (-0.37220787603570132 + (absx - 1.0) * (0.31834661990116175 + (absx
- 1.0) * (-0.11089469428239668 + (absx - 1.0) * (0.035478304325618236 +
(absx - 1.0) * -0.0021663755948687908)))));
s = 1.0 + (absx - 1.0) * (0.10642088040084423 + (absx - 1.0) *
(0.540397917702171 + (absx - 1.0) * (0.071828654414196266 + (absx - 1.0) *
(0.12617121980876164 + (absx - 1.0) * (0.013637083912029051 + (absx - 1.0)
* 0.011984499846799107)))));
if (x >= 0.0) {
y = 0.84506291151046753 + S / s;
} else {
y = -0.84506291151046753 - S / s;
}
} else if (absx > 6.0) {
if (x < 0.0) {
y = -1.0;
} else {
y = 1.0;
}
} else {
s = 1.0 / (absx * absx);
if (absx < 2.8571434020996094) {
R = -0.0098649440348471482 + s * (-0.69385857270718176 + s *
(-10.558626225323291 + s * (-62.375332450326006 + s *
(-162.39666946257347 + s * (-184.60509290671104 + s * (-81.2874355063066
+ s * -9.8143293441691455))))));
S = 1.0 + s * (19.651271667439257 + s * (137.65775414351904 + s *
(434.56587747522923 + s * (645.38727173326788 + s * (429.00814002756783
+ s * (108.63500554177944 + s * (6.5702497703192817 + s *
-0.0604244152148581)))))));
} else {
R = -0.0098649429247001 + s * (-0.799283237680523 + s *
(-17.757954917754752 + s * (-160.63638485582192 + s *
(-637.56644336838963 + s * (-1025.0951316110772 + s * -483.5191916086514)))));
S = 1.0 + s * (30.338060743482458 + s * (325.79251299657392 + s *
(1536.729586084437 + s * (3199.8582195085955 + s * (2553.0504064331644 +
s * (474.52854120695537 + s * -22.440952446585818))))));
}
if ((!rtIsInf(absx)) && (!rtIsNaN(absx))) {
s = frexp(absx, &eint);
} else {
s = absx;
eint = 0;
}
s = std::floor(s * 2.097152E+6) / 2.097152E+6 * rt_powd_snf(2.0, (double)
eint);
y = std::exp(-s * s - 0.5625) * std::exp((s - absx) * (s + absx) + R / S) /
absx;
if (x < 0.0) {
y--;
} else {
y = 1.0 - y;
}
}
return y;
}
//
// File trailer for erf.cpp
//
// [EOF]
//
高斯气体扩散模型测试程序
1星 需积分: 50 97 浏览量
2020-04-18
19:39:44
上传
评论 4
收藏 16KB RAR 举报 
gaosiMode.rar （27个子文件） 
test1 
rtGetInf.cpp 3KB erf.h 455B fensancanshu.h 640B rtGetNaN.cpp 2KB gaosi.h 589B setting.h 100B gaosi_types.h 293B fensancanshu_types.h 321B rtGetNaN.h 382B test1.pro.user 24KB widget.h 252B pingjunfengsu.cpp 2KB fxbiaozhuncha.cpp 2KB fxbiaozhuncha_types.h 325B test1.pro 2KB rtGetInf.h 457B pingjunfengsu_types.h 325B rtwtypes.h 5KB fxbiaozhuncha.h 521B rt_nonfinite.h 1KB main.cpp 175B fensancanshu.cpp 2KB gaosi.cpp 2KB rt_nonfinite.cpp 2KB erf.cpp 5KB widget.cpp 170B pingjunfengsu.h 553B
评论1
最新资源