公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
729 浏览

a = 2000; b = 500;

In[48]:= f[x_] := PDF[NormalDistribution[a, b], x] /; x > 0

In[49]:= F[y_] := CDF[NormalDistribution[a, b], y] /; y > 0

In[50]:= G[z_] := InverseCDF[NormalDistribution[a, b], z] /; 0 < z < 1

In[56]:= NSolve[\!\(

\*SubsuperscriptBox[\(\[Integral]\), \(G[

      z]\), \(+\[Infinity]\)]\(\((x - G[z])\) f[

      x] \[DifferentialD]x\)\) - z/f[G[z]] == 0, z]

\:6B63\:5728\:8BA1\:7B97In[56]:= NSolve::nsmet: 无法利用 NSolve 现有的方法求解该系统.

Out[56]= NSolve[

 ConditionalExpression[

  250 E^(-((-2000 + (-500 (-4 + Sqrt[2] InverseErfc[2 z]) && 

          0 < z < 1))^2/500000)) Sqrt[2/\[Pi]] - 

    500 E^((-2000 + (2000 - 500 Sqrt[2] InverseErfc[2 z] && 

         0 < z < 1))^2/500000) Sqrt[2 \[Pi]] z - 

    1/2 (-2000 + (-500 (-4 + Sqrt[2] InverseErfc[2 z]) && 

         0 < z < 1)) Erfc[(-2000 + (-500 (-4 + 

            Sqrt[2] InverseErfc[2 z]) && 0 < z < 1))/(500 Sqrt[2])] ==

    0, 0 <= z <= 1], z]

分类:函数 | 用户: 18362963603 (11 分)

1个回答

+1 投票
a = 2000;
b = 500;
f[x_] = PDF[NormalDistribution[a, b], x];
F[y_] = CDF[NormalDistribution[a, b], y];
G[z_] = Assuming[0 <= z <= 1, 
   Refine@InverseCDF[NormalDistribution[a, b], z]];
eqn = Integrate[(x - G[z]) f[x], {x, G[z], Infinity}] - z/f[G[z]];
Plot[eqn, {z, 0, 1}]
FindRoot[eqn == 0, {z, 0.5}]

用户: 苹果 (2.2k 分)
...