Hej har lite problem med en enkel uppgift. Kommer dock inte på hur jag gör. Ska beräkna aktiv och reaktiv effekt.
Jag har spänningen u(t)=10cos(wt+45º)+5 cos(3wt)+2cos(5wt-45º)
Strömmen i = 7cos(wt)+4cos(5wt+30º)
***(w är = åmega)
Någon som har lust att förklara hur man gör, det står stilla för tillfället.
Jag vet att:
reaktiv effekt = U*I sin(vinkel) och
aktiv effekt = U*I cos(vinkel)

gör man något sådant här??
reaktiv effekt= (10*7)/2 sin(-45º) + 5*0 + (2*4)/2 sin(30º +45º)

Hej
Eftersom matteprocessorn räknar med Radianer måste
du omvandla dina Grader till Radianer.

Function Rad(ByVal Degree As Single) As Single
Rad = Degree * 0.0174533 '3.141593 / 180
End Function

reaktivEffekt = U*I sin(Rad(vinkel)) och
aktivEffekt = U*I cos(Rad(vinkel))

>gör man något sådant här??

Option Explicit
Private Sub Command1_Click()
Dim reaktivEffekt As Single
reaktivEffekt = (10 * 7) / 2 * Sin(Rad(-45)) + 5 * 0 + (2 * 4) / 2 * Sin(Rad(30 + 45))
MsgBox reaktivEffekt
End Sub

Function Rad(ByVal Degree As Single) As Single
Rad = Degree * 0.0174533 '3.141593 / 180
End Function

'Om din formel är rätt i övrigt så borde det bli som ovan.
' 5 * 0 ovan verkar lite lurigt !
mvh
Sven

Hej Sven. Kanske ska tillägga att jag räknar med gammal hederlig minikräknare. Alltså har inget med programmering att göra, utan jag blev lite tveksam hur man gör för att räkna ut ett sådant tal. Det ser "enkelt" ut och därför stör jag mig på det. Tar gärna emot fler tips

hej igen
Hänger inte riktigt med på dina siffror 10 7 5 men i allafall

Vid en godtycklig tid är momentvärdet

u = Umax * Sin(vinkel) vinkel är 2 * pi * f * t dvs Radianer.
i = Imax * Sin(vinkel) 2 * pi * f kallas omega w

Vad har Vi då för effekt när generatorn vridit sig 30 gr.
Vi sätter Umax till 311 volt Imax 5 amp (stor damsugare)

30 gr har Vi bestämt genom omega räkningen 2*pi*f*t
ex vid 50 Hz nätspänning kommer ett varv på generatorn
att ta 1/50 sek = 0.02 sek 30 gr uppnås då efter 0,0016 sek
Vi behöver inte djuploda i detta vi accepterar 30 gr
dvs om du går in med grader så behöver du inte fundera på omega.

Om din räknare vill ha Grader så är det bara att skriva 30
Vill räknaren ha Radianer så får Vi göra om 30 gr till Radianer
Oberoende om du kör Grader eller Radianer skall Sin(vinkel)
för 30 gr ge svar 0.5 Cos(vinkel) blir 0.8660

ReaktivEffekt = 311*Sin(30) * 5 * Sin(30) = 388 watt
AktivEffekt = 311 * Cos(30) * 5 * Cos(30) = 1166 watt

ungefär så
Sven som fick ta fram sina gamla läroböcker.
311 volt är Umax i 220 -230 volt växelström.
Ett litet "joke" DC betyder "Dead Current" "AC Alive Current"
DS

Tack sven.