summaryrefslogtreecommitdiff
path: root/3773/CH17/EX17.6/Ex17_6.sce
blob: 0aa1c0bc938592bfd9c8668f226f5e9bf1aaf1ff (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Chapter 17: Antenna Temperature, Remote Sensing and Radar Cross Section
//Example 17-4.1
clc;

//Variable Initialization
tf = 0.693      //Absorption co-efficient (unitless)
Te = 305        //Earth temperature (K)
Ta = 300        //Satellite antenna temperature (K)

//Calculations
Tf = (Ta - Te*exp(-tf))/(1-exp(-tf))

//Result
mprintf("The forest temperature is %.0f K", Tf)