Mathematica, intégrale

par **DamDam** » 01 Juin 2007, 10:35

Bonjour à tous, petit problème, je trouve avec mathematica une intégrale dont le résultat est complexe que je voudrais comparer avec une intégrale dont le résultat est réel! Comment faire???

par **nico74** » 01 Juin 2007, 14:07

compare le module de la complexe avec la valeur absolue de la réelle ?

par **nico74** » 01 Juin 2007, 14:08

on te demande de prouver une inégalité en fait, non ?

par **allomomo** » 01 Juin 2007, 14:09

Salut,

Je pense que c'est mieux de poster dont ce que tu parles ...

par **DamDam** » 01 Juin 2007, 14:38

Voici le programme:

nd=NormalDistribution[60632.8136,24496.0932]
ld1=LogNormalDistribution[10.9575, 0.3742]

a=.
k=CDF[nd,x]
l=CDF[ld1,x- a]

"Calcul des aires"
a =.;
i=Integrate[k/. x->b, {b,-1000000, 1000000}]
j=Integrate[l/. x-> c, {c,-1000000, 1000000}]

réponses:
i = 939367.

j = If[Re[a]>=1.10*10^6 Re[a]<= -1*10^6 Im[a]=!0,1.*10^6+30772.2Erf[-20.9704+1.88965 Log[-1.*10^6-1. a]] + (500000. +0.5a) Erf[-20.7058 + 1.88965 Log[-1.*10^6-1.a]]-30772.2 Erf[-20.9704+1.88965 Log[1.*10^6-1.a]], Integrate[0.5+0.5Erf[-20.7058+1.88965 Log[-1.a+c]], {c, -10000000, 10000000}, Assumptions -> Im[a]==0&&-1.*10^6
Le but est alors que la différence entre i et j soit nulle.

par **DamDam** » 01 Juin 2007, 14:41

Le but est de trouver la valeur de a pour laquelle i-j=0; mais Min[Re[j]] est 1.37*10^6

par **DamDam** » 04 Juin 2007, 08:22

Personne de veut m'aider?

Mathematica, intégrale

Mathematica, intégrale

Qui est en ligne