Hallo liebe Mitglieder der DMUG, wenn ich die folgende compelierte FunktionSubsidencefunction$internal$xy$ohne$if$compiled=Compile[{{a,_Real},{b,_Real},{l,_Real},{M,_Real},{x,_Real},{y,_Real},{H,_Real}},Times[Rational[-1,4],Power[Plus[-1,Power[E,Times[2,M,Plus[Times[-1,H],M]]]],-1],Plus[Erf[Times[Power[1.4142135623730951` Power[Plus[-1,Times[H,Power[M,-1]]],Rational[1,2]],-1],(l-2 y) a]],Erf[Times[Power[1.4142135623730951` Power[Plus[-1,Times[H,Power[M,-1]]],Rational[1,2]],-1],(l+2 y) a]]],Plus[Erf[Times[Power[1.4142135623730951` Power[Plus[-1,Times[H,Power[M,-1]]],Rational[1,2]],-1],(b+2 x) a]],Erf[Times[Power[1.4142135623730951` Power[Plus[-1,Times[H,Power[M,-1]]],Rational[1,2]],-1],(b-2 x) a]]]],CompilationTarget->"C"]
NIntegrate[Subsidencefunction$internal$xy$ohne$if$compiled[1,2,3,x,5,6,7],{x,0,10}]
integrieren will erhalte ich immer die Fehlermeldung
CompiledFunction::cfsa: Argument x at position 4 should be a
machine-size real number. >>
Was kann ich dagegen tun? Danke & frohe Pfingsten wÃŒnscht Peter
NIntegrate with a compiled function.nb
Description: Mathematica Notebook document
