長さを変えたたくさんの振り子
Author: いろもの物理学者

長さを変えた１５個の振り子（動画）

http://naglly.com/archives/2011/05/pendulum-waves.php

を見て、コンピュータの上で再現してみました。

3Dバージョンはこちら。

A = Point(yAxis)
t = 439.4 (slider from 0 to 628.31, step 0.01)
P65: (512.0 * sin(0.4 * sin(0.65 * t)) / (65.0 * 65.0), 6.0 - 512.0 * cos(0.4 * sin(0.65 * t)) / (65.0 * 65.0))
a = Segment(A, P65)
P56: (512.0 * sin(0.4 * sin(0.56 * t)) / (56.0 * 56.0), 6.0 - 512.0 * cos(0.4 * sin(0.56 * t)) / (56.0 * 56.0))
b = Segment(P56, A)
P57: (512.0 * sin(0.4 * sin(0.57 * t)) / (57.0 * 57.0), 6.0 - 512.0 * cos(0.4 * sin(0.57 * t)) / (57.0 * 57.0))
P58: (512.0 * sin(0.4 * sin(0.58 * t)) / (58.0 * 58.0), 6.0 - 512.0 * cos(0.4 * sin(0.58 * t)) / (58.0 * 58.0))
P59: (512.0 * sin(0.4 * sin(0.59 * t)) / (59.0 * 59.0), 6.0 - 512.0 * cos(0.4 * sin(0.59 * t)) / (59.0 * 59.0))
P60: (512.0 * sin(0.4 * sin(0.6 * t)) / (60.0 * 60.0), 6.0 - 512.0 * cos(0.4 * sin(0.6 * t)) / (60.0 * 60.0))
P61: (512.0 * sin(0.4 * sin(0.61 * t)) / (61.0 * 61.0), 6.0 - 512.0 * cos(0.4 * sin(0.61 * t)) / (61.0 * 61.0))
P62: (512.0 * sin(0.4 * sin(0.62 * t)) / (62.0 * 62.0), 6.0 - 512.0 * cos(0.4 * sin(0.62 * t)) / (62.0 * 62.0))
P63: (512.0 * sin(0.4 * sin(0.63 * t)) / (63.0 * 63.0), 6.0 - 512.0 * cos(0.4 * sin(0.63 * t)) / (63.0 * 63.0))
P64: (512.0 * sin(0.4 * sin(0.64 * t)) / (64.0 * 64.0), 6.0 - 512.0 * cos(0.4 * sin(0.64 * t)) / (64.0 * 64.0))
c = Segment(A, P58)
d = Segment(P62, A)
e = Segment(P61, A)
f = Segment(P63, A)
g = Segment(P64, A)
h = Segment(P60, A)
i = Segment(P59, A)
j = Segment(P57, A)
P67: (512.0 * sin(0.4 * sin(0.67 * t)) / (67.0 * 67.0), 6.0 - 512.0 * cos(0.4 * sin(0.67 * t)) / (67.0 * 67.0))
P68: (512.0 * sin(0.4 * sin(0.68 * t)) / (68.0 * 68.0), 6.0 - 512.0 * cos(0.4 * sin(0.68 * t)) / (68.0 * 68.0))
P66: (512.0 * sin(0.4 * sin(0.66 * t)) / (66.0 * 66.0), 6.0 - 512.0 * cos(0.4 * sin(0.66 * t)) / (66.0 * 66.0))
P69: (512.0 * sin(0.4 * sin(0.69 * t)) / (69.0 * 69.0), 6.0 - 512.0 * cos(0.4 * sin(0.69 * t)) / (69.0 * 69.0))
P70: (512.0 * sin(0.4 * sin(0.7 * t)) / (70.0 * 70.0), 6.0 - 512.0 * cos(0.4 * sin(0.7 * t)) / (70.0 * 70.0))
k = Segment(P68, A)
l = Segment(P66, A)
m = Segment(P70, A)
n = Segment(P69, A)
p = Segment(P67, A)