## 10 Reputation

4 years, 313 days

## Mann iterative method...

Maple 2021

PDETWOSTEPVARIAMETHOD.mwPDETWOSTEPVARIAMETHOD.mw

Pls i need help to correct this iteration code, I wrote but is not given the correct answer. find attached the worksheet

## Boundary Value Problem, some iteration w...

Maple 14

 >
 >
 >
 >
 (1)
 >

 (2)
 >

 >
 >
 >
 >
 (1)
 >
 (2)
 >

 >
 >
 >
 >
 (1)
 >
 (2)
 >

 >
 >
 >
 >
 (1)
 >
 (2)
 >

PLS FIND ATTACHED A MAPLE CODE TO SOLVE SOME BOUNDARY VALUE PROBLEM, BUT IT JUMP SOME ITERATION WITHOUT EVALUATION WHICH END UP WITH INACCURATE SOLUTION.

> restart;
> with(LinearAlgebra);
> exp(1) := 2.7182818284590452354;
> alpha := .975;
> NULL;
> st := time[real]();
> for i to 4 do for j from 0 by .1 to 4-exp(1) do Exact[j] := evalf(ln(exp(1)+j)); Y[0] := proc (x) options operator, arrow; 1+x/exp(1)+(1/4)*((exp(1))^2-8*exp(1)+24*ln(2)*exp(1)-32)*x^2/(exp(1)*(16-8*exp(1)+(exp(1))^2))+(1/4)*(16*ln(2)*exp(1)-16-8*exp(1)+(exp(1))^2)*x^3/((-64+48*exp(1)-12*(exp(1))^2+(exp(1))^3)*exp(1)) end proc; Ics := Z(0) = 1, (D(Z))(0) = 1/exp(1), Z(4-exp(1)) = evalf(ln(4)), (D(Z))(4-exp(1)) = 1/4; f := proc (x) options operator, arrow; 0 end proc; p := proc (x) options operator, arrow; 0 end proc; q := proc (x) options operator, arrow; 0 end proc; r := proc (x) options operator, arrow; 0 end proc; u := proc (x) options operator, arrow; 0 end proc; eq[i] := diff(Z(x), `\$`(x, 4)) = (1-alpha)*(diff(Y[i-1](x), `\$`(x, 4)))+alpha*(-6*convert(taylor(exp(-4*Y[i-1](x)), x = 0, 20), polynom)); s[i] := dsolve({Ics, eq[i]}, Z(x)); Y[i] := unapply(op(2, s[i]), x); App[j] := evalf(Y[i](j)); Er[j] := abs(App[j]-Exact[j]); print([App[j], Exact[j], Er[j]]) end do end do; time[real]()-st;

## `Please HOW CAN USE MAPLE IN SOLVI...

Maple 2019

 >
 >
 >
 >
 (1)
 >
 >
 >
 >
 (2)
 >
 >

 Page 1 of 1
﻿