- #1

joshmccraney

Gold Member

- 2,253

- 143

Code:

```
s3 = NDSolve[{(-z1[t]^(3/2) + (1 + z1[t]^2)^(3/4))/(
3 (-z1[t] + Sqrt[1 + z1[t]^2])) == z1[t] z1'[t], z1[0] == 0.0001},
z1, {t, 0, 30}
f3[x_] := z1[x] /. First[s3];
```

You are using an out of date browser. It may not display this or other websites correctly.

You should upgrade or use an alternative browser.

You should upgrade or use an alternative browser.

- Mathematica
- Thread starter joshmccraney
- Start date

- #1

joshmccraney

Gold Member

- 2,253

- 143

Code:

```
s3 = NDSolve[{(-z1[t]^(3/2) + (1 + z1[t]^2)^(3/4))/(
3 (-z1[t] + Sqrt[1 + z1[t]^2])) == z1[t] z1'[t], z1[0] == 0.0001},
z1, {t, 0, 30}
f3[x_] := z1[x] /. First[s3];
```

- #2

joshmccraney

Gold Member

- 2,253

- 143

FYI for future people I used

Code:

```
Table[f3[x], {x, 0, 1, 0.01}];
FindFit[%, a x^b, {a, b}, x]
```

Share:

- Replies
- 5

- Views
- 186

Mathematica
Finding a function to best fit a curve

- Last Post

- Replies
- 1

- Views
- 1K

- Last Post

- Replies
- 2

- Views
- 531

- Last Post

- Replies
- 4

- Views
- 608

- Last Post

- Replies
- 1

- Views
- 223

- Last Post

- Replies
- 3

- Views
- 1K

- Last Post

- Replies
- 2

- Views
- 476

- Replies
- 4

- Views
- 485

- Last Post

- Replies
- 5

- Views
- 2K

- Replies
- 0

- Views
- 402