- #1

- 1

- 0

Hi everybody. I have an impicit function that I want to solve numerically in mathematica it looks like:

(It's my first time doing something like this so if the code does not work, please say so)

When I put it in mathematica f will be the only unknown. For simplicity it can be assumed at first that c is constant (This one is already solvable for me, next it will probably be a step function, not continuous) and rho is constant (it will be some smooth function)

This is for me a rather hard cookie to crack. I hope there is someone who reads this who can tell me how to do this. Sorry I don't have all the functions yet.

Edit: I use mathematica version 7.0.1.0

Code:

```
f[x] == b1 \!\(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(L\)]\(c[
x, \[Alpha]] f[\[Alpha]]
SuperscriptBox[\(E\), \(-\(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(\[Alpha]\)]f[\[Eta]] \
\[DifferentialD]\[Eta]\)\)] \[DifferentialD]\[Alpha]\)\) + b2 \!\(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(L\)]\(c[
x, \[Alpha]] \[Rho][\[Alpha]] \(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(\[Alpha]\)]f[\[Xi]]
SuperscriptBox[\(E\), \(\(-\(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(\[Xi]\)]f[\[Eta]] \
\[DifferentialD]\[Eta]\)\) -
\*SubsuperscriptBox[\(\[Integral]\), \(\[Xi]\), \(\[Alpha]\)]\[Rho][\
\[Eta]] \[DifferentialD]\[Eta]\)] \[DifferentialD]\[Xi] \
\[DifferentialD]\[Alpha]\)\)\)
```

(It's my first time doing something like this so if the code does not work, please say so)

When I put it in mathematica f will be the only unknown. For simplicity it can be assumed at first that c is constant (This one is already solvable for me, next it will probably be a step function, not continuous) and rho is constant (it will be some smooth function)

This is for me a rather hard cookie to crack. I hope there is someone who reads this who can tell me how to do this. Sorry I don't have all the functions yet.

Edit: I use mathematica version 7.0.1.0

Last edited: