summaryrefslogtreecommitdiff
path: root/2252/CH6/EX6.10/Ex6_10.sce
blob: f0f56bd39e05629ca7853e69fb3de54bb4ea56dc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13

//the graph is drawn considering R=%pi
R=%pi
theta=linspace(-%pi,%pi,100)
V=sqrt(R^2-theta^2)
plot2d(theta,V)
xtitle("Wave shape for example 6.10","theta","Voltage")
theta=linspace(%pi,3*%pi,100)
V=-sqrt(R^2-(theta-2*%pi)^2)
plot2d(theta,V)

Vrms=sqrt(integrate('(R^2-x^2)/(2*R)','x',-R,R))
mprintf("RMS value of such a wave shape will be %f of its maximum voltage",Vrms/R)