Change the value of k below to set the number of pendulums:

S=set(0,pi/k*ldots*pi),k=5

A=0.85,c=0.1,m=pi/2,q=plusorminus(m*abs(sin([2*pi*n+'ω'])))

T=vector(0,plusorminus(c),A/2),B=vector(0,A*sin(q)+plusorminus(c),A/2-(A*cos(q))),R=matrix(3,3,cos('ω'),-sin('ω'),0,sin('ω'),cos('ω'),0,0,0,1)

R*B,in('ω',S),'color'='ω'/pi

R*T,R*B,in('ω',S)

c*cos(2*pi*t)*hat(x)+c*sin(2*pi*t)*hat(y)+A/2*hat(z),'radius'=0.03

Graph of the formula

This file was created by Graphing Calculator 4.0.
Visit Pacific Tech to download the helper application to view and edit these equations live.