Notebook bij inleveropgave 3: resonantie in een electronische schakeling

Schakeling[f1, f2,V0, V10, V20,tmax]  lost het stelsel differentiaalvergelijkingen 
V1'(t)= f1
V2'(t)= f2
met beginvoorwaarde V1(0)=V10, V2(0)=V20 op, en plot  de grafieken van V1(t) (rood), V2(t) (blauw) en de functie V0(t) (groen) waarbij t loopt van o tot tmax:

Schakeling[f1_, f2_, V0_, V10_, V20_, tmax_]:=
Module[{Oplossing},
Oplossing = DSolve[{V1'[t]==f1, V2'[t]==f2, V1[0]==V10, V2[0]==V20}, {V1[t], V2[t]}, t][[1]];
Plot[{V1[t]/.Oplossing, V2[t]/.Oplossing, V0}, {t, 0, tmax}, PlotStyle ->{Hue[1], Hue[0.6], Hue[0.3]}]
]

Voorbeeld 1: los op 
V1'(t) = V2(t) +3, 
V2'(t) = -V1(t),
V1(0)=0, V2(0)=1,
en plot de oplossingen samen met V0(t)=sin(t)

Schakeling[V2[t] + 3, -V1[t], Sin[t], 0, 1, 4 Pi]