summaryrefslogtreecommitdiff
path: root/2672/CH6/EX6.15/Ex6_15.sce
blob: d311e20251bfb021a8db10ffaa4b394533252465 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Example 6_15
clc;
clear;
close;
format('v',4);
//given data : 
//v=50*sin(100*%pi*t)
Vm=50;//V
f=50;//Hz
rf=20;//ohm
RL=5000;//ohm
Im=Vm/(rf+RL)*1000;//mA
disp("(a) Current is "+string(Im)+"*sin(100*%pi*t) for %pi <100*%pi*t<2*%pi & it will be zero for 0 <100*%pi*t<%pi");
format('v',5);
Vdc=Im/1000/%pi*RL;//V
disp("(b) Output Voltage, Vo = "+string(Vdc)+"*sin(100*%pi*t) for %pi <100*%pi*t<2*%pi & it will be zero for 0 <100*%pi*t<%pi ");
//Assuming diode is ideal
disp("(c) Voltage across diode, v = "+string(Vdc)+"*sin(100*%pi*t) for 0 <100*%pi*t<%pi & it will be zero for %pi <100*%pi*t<2*%pi ");