kill(all);

da pagg. 8,9 Barber , ivi derivate dai circoli di Mohr

il theta di fig. 1.3 p 8 è complementare al mio angolo "t"

definisco le quantità ausiliarie

c : cos(%pi/2-t)$
s : sin(%pi/2-t)$

define(
    srr_ff(sxx,syy,sxy,t),
    sxx*c^2 + syy*s^2+2*sxy*s*c
);

define(
    srt_ff(sxx,syy,sxy,t),
    sxy*(c^2-s^2)+(syy-sxx)*s*c
);

define(
    stt_ff(sxx,syy,sxy,t),
    syy*c^2 + sxx*s^2-2*sxy*s*c
);

non servono più le quantità ausiliarie

kill(c,s)$

condizioni al contorno di far field, nel caso specifico

srr_ff(0,1,0,t);

stt_ff(0,1,0,t);

srt_ff(0,1,0,t);

co