by bosskay » 07 Oct 2016, 23:56 quand je rentre les valeur : signal(3,2,0,2)
sa me renvoie ca:
s(t) = 3 * cos( π * t + 2 )
< s(t) > = 0
Seff = ((3*√(2))/(2))
s(t) = 0 +
3 * cos( 1 * π * t + π-2 ) +
0 * cos( 2 * π * t + ((sin(∞)*π)/(2)) ) +
...
Alors de la ligne 1 à 4 voire 5 je suis tout content, mais je pense SEVEREMENT qu'a la ligne 6 c'est un grand foirage x) ! Vous pouvez m'expliquer le résultat ? Voici le code
!code:
- Code: Select all
Define signal(smax,φ,t0,n)=
Prgm
:Text "La votre signal est-il périodique ?
Oui, taper 1
Non, taper 2",0
:Request "chosir, sois 1 sois 2",x,0
:If x=1 Then
:Text "Entré l'une de ces variables:
T, la période, taper 1
ω, la pulsation, taper 2
f, la fréquence, taper 3",0
:Request "choisir, sois 1, 2 ou 3",y,0
:If y=1 Then
:Request "Période, T = ",t,0
:((2*π)/(t))→ω
:((1)/(t))→f
:Goto w
:ElseIf y=2 Then
:Request "Pulsation, ω = ",ω,0
:((2*π)/(ω))→t
:((1)/(t))→f
:Goto w
:ElseIf y=3 Then
:Request "Fréquence, f = ",f,0
:2*π*f→ω
:((1)/(f))→t
:Goto w
:Else
:Goto z
:EndIf
:Lbl w
:Disp "s(t) = ",smax,"* cos(",ω,"* t +",φ,")"
:((1)/(t))*∫(smax*cos(ω*t+φ),t,t0,t0+t)→smoy
:Disp "< s(t) > = ",smoy
:√(((1)/(t))*∫((smax*cos(ω*t+φ))^(2),t,t0,t0+t))→seff
:Disp "Seff = ",seff
:smoy→c0
:cn:=seq(c0*r,r,1,1)
:nf:=seq(0*s,s,1,1)
:Disp "s(t) = ",c0," + "
:For i,1,n
:((2)/(t))*∫(smax*cos(ω*t+φ)*cos(i*ω*t),t,t0,t0+t)→an
:((2)/(t))*∫(smax*cos(ω*t+φ)*sin(i*ω*t),t,t0,t0-t)→bn
:√(an^(2)+bn^(2))→cgn
:i*f→fgn
:cn:=augment(cn,{cgn})
:nf:=augment(nf,{fgn})
:tan(((−bn)/(an)))→φi
:Disp cgn,"* cos(",i,"*",ω,"* t + ",φi,") +"
:EndFor
:Disp "..."
:goto Z
:Else
:Goto z
:EndIf
:Lbl z
:EndPrgm
merci d'avoir lu
