|
hello everybody,
i have a question, i am solving a mathematical problem by using a code in VB, the question is to calculate the output noise by givning ten different inputs by the user in textbox. the inputs wil be entered in the equation below like, B, Tin,Tfd,Te1,Te2,Te3,Gf,G1,G2,alpha, length
the formula for output noise power is ,
N= K*T*B
where K = 1.38*10^-23(boltzmann's constant)
B(bandwidth) = 5000(Hz), and
T = Tin+Tfd+(Te1/(Gf))+(Te2/(Gf*G1))+(Te3/(Gf*G1*G2))
where Gf = 10^(Gf/10) and G1 = 10^(G1/10), G2 = 10^(G2/10) and Tfd = (10^(Lf/10)-1)*290; where Lf=(alpha*length)
and, in coding i did that in this form;
Private Sub Command1_Click()
Dim Tin As Double
Dim alpha As Double
Dim length As Double
Dim Te1 As Double
Dim Te2 As Double
Dim Te3 As Double
Dim Gf As Double
Dim G1 As Double
Dim G2 As Double
Dim lf as Double
Dim tef as Double
Dim B As Double
Dim result1 as double
k = 1.38 * 10 ^ -23
lf = (a * l)
tef = (10 ^ (lf / 10) - 1) * 290
tequ = ts + tef + ((telna / (10 ^ (gef / 10)) + (temxr / ((10 ^ (gef / 10)) * (10 ^ (glna / 10))) + (teif / (10 ^ (gef / 10)) * (10 ^ (glna / 10)) * (10 ^ (gmxr / 10))))))
resut = k * tequ * B
result.Caption = result
result = Str(N)
End Sub
but it is stil not returning me the right answer...........where the answer is in the form of some negetive powers , for example like 2.34354*10^-4; somewhat like that..........IS THERE ANYTHING WRONG GOING WITH THE CODE? CAN ANYONE HELP ME WITH THIS?
THANKS
|
