clc // Given that s = 2 // energy received by the earth in cal/cm^2.min e0 = 8.85e-12 // electric permittivity of space mu0 = 1.2567e-6 // magnetic permittivity of space c = 3e8 // speed of light in meter/sec // Sample Problem 28 on page no. 10.47 printf("\n # PROBLEM 28 # \n") r = sqrt(mu0 / e0) P = s*4.2/(60*1e-4) E = sqrt(P*r) H = E/r printf("Standard formula used \n P = E*H.\n") printf(" Magnitude of electric field vector = %f v/m.\n Magnitude of magnetic field vector = %f A/m.",E * sqrt(2),H*sqrt(2))