引用第38楼hanbreen于2010-07-09 17:05发表的  :
用钢板做一个直径1米甚至几米的“纸盆”，用电动机带动曲轴，把圆周运动变为直线运动后推动“纸盆”，直线运动冲程越大、纸盆直径越大，次声波功率越大，当然电动机的功率也要足够大。

引用第37楼3ha510于2010-07-09 12:51发表的  :
uses crt;
begin
    repeat
        sound(5);
    until 0=1;
.......