Recent content by as144

Thank you for your reply, but when I print ElasticPlasticEq even for specific s11, s22 and t, I am getting this: s11 = 0.01; s22 = 0.01; t = 0.00000001; Print[ElasticPlasticEq]; {0. P[0.01,0.01,1.*10^-8]+(P^(0,0,1))[0.01,0.01,1.*10^-8]+2 (0. P[0.01,0.01,1.*10^-8]+4.88591...

I am trying to write a for loop in Mathematica to solve a PDE , But I am facing a problem. My For loop is: StressIC[s11_, s22_] := Limit[(1/((2 Pi)*c*c))* Exp[-(1/2)*(((s11 - 0)/c)^2 + ((s22 - 0)/c)^2)], c -> 0.001]; countmax = 10; t =.; count = 1; For[count = 1, count <=...