summaryrefslogtreecommitdiff
path: root/858/CH5/EX5.12/example_12.sce
blob: 9704fc14ba879b001019b1a8f3fd4314295d7380 (plain)
1
2
3
4
5
6
7
8
9
10
11
clc
clear 
printf("example 5.12 page number 192\n\n")

//to find the equilibrium temperature
view_factor=0.5;
R=6.92*10^5    //in km
l=14.97*10^7   //in km
Ts=6200;    //in K
To=(view_factor*(R^2/l^2))^0.25*Ts;
printf("Equilibrium temperature = %f K",To)