summaryrefslogtreecommitdiff
path: root/2231/CH1/EX1.19/Ex_1_19.sce
blob: 944fe9f526107d626035b7ed1c78ea40c25b3a39 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Example 1_19
clc;
clear;close;

//Given data
Vs=12;//V
P=0.3;//W
Rs=100;//ohm//as slope is -100V/A
//Vs=Vg+Ig*Rg leads to Rs*Ig^2-Vs*Ig+P=0
X=[Rs -Vs P];//polynomial
Ig=roots(X);//A
Ig=Ig(2);//A(taking one value)
disp(Rs,"Source resistance, Rs in ohm ");
disp(Ig*1000,"Trigger current in mA ");
Vg=P/Ig;//V
disp(Vg,"Voltage Vg in V ");