Matteprroblem - Ohms lag - Elektronik för alla

[Hugo]

Hej!

Jag har nu grubblat en hel del över problemet på sidan 79 i boken 'Eletronik för alla'.

Kretsen ska vara seriekopplad!

Anta att du har en spänning på 6V, men vad du behöver är 5V.
Ett av de motstånden du har tillgängligt är på 47ohm och du beslutar dig för att använda det. Hur stort blir det andra motståndet?

Till min hjälp har jag ohms lag.

Hur ska jag lösa detta? Kom inte bara med svaret, för det finns i facit.


- Hugo

[danei]

1/5=x/47 => x=47/5=9,4 eller 1/5=47/x => x= 5*47=235

[Hugo]

Tack! Men tror du att du skulle kunna förklara mer ingående?

[cyr]

Strömmen I går genom båda motstånden. Över det ena motstånden behöver du ha 5V. Över båda har du sammanlagt 6V, så över det andra motstånden får du 1V.

I=U/R

Säg att du har 5V över motståndet på 47ohm...

I=5/47.

Samma ström går genom det andra motståndet med okänd resistans och spänningen 1V.

R=U/I

R=1/(5/47) = 47/5 = 9,4 ohm

Alternativt så har du 1V över motståndet med 47ohm och 5V över det andra...

[sebastiannielsen]

5 / 47 = 0,106382978723404

1 / 0,106382978723404 = 9,40000000000002

svar: 9,40000000000002 ohm


Så ni svarade 0,00000000000002 ohm fel

Ska ni köra med 5 V på det med 47 ohm , så blev resultatet

234,999999999999 ohm

Altså svarade ni 0,000000000001 ohm fel

[$tiff]

>> sebastiannielsen

Sifferfascist! Det finns normala avrundningsregler att följa.
Eftersom exempelvis resistansen i frågan endast är specifierad med två värdesiffror så tjänar det inte mycket till att ha ett svar med fler än så.

Edit: Dessutom är det du själv som räknar fel då du använder dig av avrundade decimaltal i uträkningarna. Ajja bajja!

[Chribbe76]

>> sebastiannielsen
Det du skriver är fel, du fick den 2:an på slutet på grund av avrundningsfel.
Svaret är exakt 9.4

Och så ska vi inte lyfta upp gamla trådar i onödan.

[sebastiannielsen]

Jag använder ett datorprogram som man har 4 rutor.

Volt , Ampere , Ohm och Watt.

Man fyller i 2 fält och med datatypen "double" i visual basic , så räknas siffrorna ut. Det är möjligt att datorn har avrundat för att datatypen inte tillåter större siffror än så (Det kom upp ett +E i slutet av Ampere efter första uträkningen)

Har skrivit programmet själv.
Nån som vet hur man fixar en datatyp som kan ta oändligt med siffror?

Källkoden till mitt kalkylprogram för Ohms Lag.
-----------------

Kod: Markera allt

Private Sub Command1_Click()
Dim Ohm As Double
Dim Volt As Double
Dim Ampere As Double
Dim Watt As Double
Dim OhmB As Boolean
Dim VoltB As Boolean
Dim AmpereB As Boolean
Dim WattB As Boolean

If Len(Text1.Text) > 0 Then
VoltB = True
End If
If Len(Text2.Text) > 0 Then
AmpereB = True
End If
If Len(Text3.Text) > 0 Then
OhmB = True
End If
If Len(Text4.Text) > 0 Then
WattB = True
End If

If VoltB = True Then
Volt = Text1.Text
End If
If AmpereB = True Then
Ampere = Text2.Text
End If
If OhmB = True Then
Ohm = Text3.Text
End If
If WattB = True Then
Watt = Text4.Text
End If

Select Case True
Case VoltB And AmpereB
Watt = Volt * Ampere
Case VoltB And OhmB
Watt = (Volt * Volt) / Ohm
Case OhmB And AmpereB
Watt = Ohm * (Ampere * Ampere)
Case Else
intewatt = "1"
End Select
If intewatt = "1" Then
Else
WattB = True
End If
Select Case True
Case VoltB And AmpereB
Ohm = Volt / Ampere
Case WattB And AmpereB
Ohm = Watt / (Ampere * Ampere)
Case VoltB And WattB
Ohm = (Volt * Volt) / Watt
Case Else
inteohm = "1"
End Select
If inteohm = "1" Then
Else
OhmB = True
End If
Select Case True
Case WattB And OhmB
Ampere = Sqr(Watt / Ohm)
Case WattB And VoltB
Ampere = Watt / Volt
Case VoltB And OhmB
Ampere = Volt / Ohm
Case Else
inteamp = "1"
End Select
If inteamp = "1" Then
Else
AmpereB = True
End If

Select Case True
Case OhmB And AmpereB
Volt = Ohm * Ampere
Case WattB And AmpereB
Volt = Watt / Ampere
Case OhmB And WattB
Volt = Sqr(Ohm * Watt)
Case Else
intevolt = "1"
End Select
If intevolt = "1" Then
Else
VoltB = True
End If
If WattB = True Then
If OhmB = True Then
If AmpereB = True Then
If VoltB = True Then
sucess = "1"
End If
End If
End If
End If

If sucess = "1" Then
Text1.Text = Volt
Text2.Text = Ampere
Text3.Text = Ohm
Text4.Text = Watt
Else
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
MsgBox "Kunde inte beräkna formeln"
End If
End Sub

------------------------

[Xerxes]

Du får göra ett program som räknar med bråk som består av två heltalsdelar.
Då blir det exakt.

[danei]

normalt sett har man en tolerans på 5% eller om det är bra 1%