summaryrefslogtreecommitdiff
path: root/3588/CH10/EX10.9/EX10_9.sce
blob: 747322fd4bcb4552b8dce26587f81830331f81d8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Clearing console
clc
clear

//Intializing variables
t1 = 0.03
w1 = 5
t2 = 0.1
w2 = 15

//Solving for Rayleigh coefficients
k = [1/(2*w1) w1/2;1/(2*w2) w2/2]
f = [t1;t2]
u=linsolve(k,-f)

printf('\nResults\n')
printf('\nRayleigh coefficients\n Alpha =%f\n Beta =%f',u(1,1),u(2,1))