Hello guys,
I'm trying to plot the following two simultaneous equations within the same plot:
eq1: IDS1 :==: KN * (VGS - VTH - VDS/2)*VDS ;
eq2: IDS1 :==: (VDD - VDS)/RD;
The thing is: I already have the corresponding Values for VDS and IDS as you can see it below on my code, what I just want to do is plot them, I've been working in Mathematica for a while but only with symbolic calculus.
I've solved this problem analytically, but I want to add the graph as well, and include it on the final notebook.
Unfortunately I don't get it how to properly plot the solution(I've been trying in so ways without any luck). Also, I've solve it on Matlab, but I don't get it out how to do it on Mathematica, and I really want to do it with Mathematica.
I hope you could help me.
BTW: Here's how I do It with Matlab(the graph) and my Actual Notebook on Mathematica:

ClearAll["Global`*"]
VDD = 10;
VTH = 4;
VGS = 5;
KN = 1.173;
RD = 100;
VDS = Range[0, 6, 0.01];(*Equivalent to var=[0:0.001:2] in matlab*)
IDS1 = KN * (VGS - VTH - VDS/2)*VDS ;
IDS2 = (VDD - VDS)/RD;
Plot[{{IDS1}, {IDS2}}, {VDS, 0, 10},
AxesLabel -> {"VDS(V)", "IDS(mA)"}, PlotLegends -> Automatic]
ClearAll["Global`*"]
VDD = 10;
VTH = 4;
VGS = 5;
KN = 1.173;
RD = 100;
eq1 = KN * (VGS - VTH - VDS/2)VDS - IDS1 == 0;(Used only when transistor is used as
switch: I.O.:Q Working in Triode/Ohmic Region *)
eq2 = (VDD - VDS)/RD - IDS1 == 0; (Comes from applying KVL to Drain-Source Loop)
N[EngineeringForm[Solve[{ eq1, eq2}, {VDS, IDS1}]]]



Link
– hector gonzalez Jul 13 '21 at 07:07link– Bob Hanlon Jul 13 '21 at 12:17