High-pass filter

Set R and C to the values for your experiment.  Don’t forget to convert the values to Ohms and Farads if necessary.

R= 0

c= 0

AHigh[f_]:=Abs[R/(R+1/(I  2 π f c))]

ΔϕHigh[f_]:=Arg[R/(R+1/(I 2 π f c))]

AHighplot = LogLinearPlot[AHigh[f],{f,10,100000},PlotRange->All,Frame->True,FrameLabel->{"f(Hz)","A"},AxesOrigin->{10,0},ImageSize->Large,LabelStyle->Large,PlotStyle->Thick];

ϕHighplot = LogLinearPlot[ΔϕHigh[f],{f,10,100000},PlotRange->All, FrameTicks->{Automatic,Table[n π,{n,-1,1,1/8}]},Frame->True,FrameLabel->{"f(Hz)","Δϕ(radians)"},AxesOrigin->{10,0},ImageSize->Large,LabelStyle->Large,PlotStyle->Thick];

Enter your data in the matrix below, linear frequency ‘f’ in the first column and gain ‘A’ in the second column.  Use Ctrl-Enter to add more data rows.  (You can access this table entry element from the Palettes -> Classroom Assistant menu item.)

AHighdata =(({{\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}}))  (* Use Ctrl-Enter to add more data rows *);

Show[{AHighplot, ListLogLinearPlot[AHighdata, PlotStyle -> Red]}]

Enter your data for phase as a function of frequency.

ϕHighdata =(({{\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}}))  (* Use Ctrl-Enter to add more data rows *);

Show[{ϕHighplot, ListLogLinearPlot[ϕHighdata, PlotStyle -> Red]}]

Low-pass filter

R= 0

c= 0

ALow[f_]:=Abs[(1/(I 2 π f c))/(R+1/(I  2 π f c))]

ΔϕLow[f_]:=Arg[(1/(I 2 π f c))/(R+1/(I 2 π f c))]

ALowplot = LogLinearPlot[ALow[f],{f,10,100000},PlotRange->All,Frame->True,FrameLabel->{"f(Hz)","A"},AxesOrigin->{10,0},ImageSize->Large,LabelStyle->Large,PlotStyle->Thick];

ϕLowplot = LogLinearPlot[ΔϕLow[f],{f,10,100000},PlotRange->All, FrameTicks->{Automatic,Table[n π,{n,-1,1,1/8}]},Frame->True,FrameLabel->{"f(Hz)","Δϕ(radians)"},AxesOrigin->{10,0},ImageSize->Large,LabelStyle->Large,PlotStyle->Thick];

ALowdata =(({{\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}}))  (* Use Ctrl-Enter to add more data rows *);

Show[{ALowplot, ListLogLinearPlot[ALowdata, PlotStyle -> Red]}]

ϕLowdata =(({{\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}}))  (* Use Ctrl-Enter to add more data rows *);

Show[{ϕLowplot, ListLogLinearPlot[ϕLowdata, PlotStyle -> Red]}]

Bandpass filter

R1=0

c1=0

R2=0

c2=0

ZC1[f_]:=1/(I 2 π f c1)

ZC2[f_]:=1/(I 2 π f c2)

APass[f_]:=Abs[R2/((R1/ZC1[f]+R1/(R2+ZC2[f])+1)(R2+ZC2[f]))]

APassplot = LogLinearPlot[APass[f],{f,10,100000},PlotRange->All,Frame->True,FrameLabel->{"f(Hz)","A"},AxesOrigin->{10,0},ImageSize->Large,LabelStyle->Large,PlotStyle->Thick];

APassdata =(({{\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}, {\[Placeholder], \[Placeholder]}}))  (* Use Ctrl-Enter to add more data rows *);

Show[{APassplot, ListLogLinearPlot[APassdata, PlotStyle -> Red]}]