z16a.nb g1=Aekx-A世x eq1=(g1/.x→t)-(g2/.x→t) eq2=(D[g2,x]/.x→t)-(D[g1,x]/.x→t)-1 ol= Solve[[eql = 0, eq2 =0),(A, B]] ol= Simplify [9[[11]] gIs= Simplify [gl / sol g2s Simplify [g2/. sol gIs= Simplify [ExpToTrig [gis]] g2s Simplify [ExpToTrig [g2s]] gIs / TraditionalForm g2s // TraditionalFo DSolve[y'i[x]-ky[x] z DiracDelta[x-t], y, x] G= Simplify [y [x]/.%[[1]1] Gl= Simplify[G,x< t G2= Simplify[G,x>t so1= Solve[eq1=0,eq2=0},c[1],c[2]} ol= Simplify [%[[11]] G= Simplify [G/ ls= Simplify [Gl/ G2s Simplify [G2/. sol ls= Simplify [ExpRe G2s Simplify [ExpToTrig [G2s]] implify [g2s-G2s] csch(k L)sinh(k x)sinh(k(L-o) csch(k L)sinh(k n)sinh(k(Lg1 = A -k x - A k x; g2 = B -k x - B k x-2 k L; eq1 = (g1 /. x  t) - (g2 /. x  t); eq2 = (D[g2, x] /. x  t) - (D[g1, x] /. x  t) - 1; sol = Solve[{eq1  0, eq2  0}, {A, B}]; sol = Simplify[%[[1]]]; g1s = Simplify[g1 /. sol]; g2s = Simplify[g2 /. sol]; g1s = Simplify[ExpToTrig[g1s]]; g2s = Simplify[ExpToTrig[g2s]]; g1s // TraditionalForm g2s // TraditionalForm DSolve[y''[x] - k2 y[x]  DiracDelta[x - t], y, x]; G = Simplify[y[x] /. %[[1]]]; G1 = Simplify[G, x < t]; G2 = Simplify[G, x > t]; eq1 = (G1 /. x  0); eq2 = (G2 /. x  L); sol = Solve[{eq1  0, eq2  0}, {C[1], C[2]}]; sol = Simplify[%[[1]]]; G = Simplify[G /. sol]; G1s = Simplify[G1 /. sol]; G2s = Simplify[G2 /. sol]; G1s = Simplify[ExpToTrig[G1s]]; G2s = Simplify[ExpToTrig[G2s]]; Simplify[g1s - G1s] Simplify[g2s - G2s] - csch(k L)sinh(k x)sinh(k (L - t)) k - csch(k L)sinh(k t)sinh(k (L - x)) k 0 0 4 z16a.nb