cos

cos EXPR

　EXPRのコサイン(余弦)を返します。EXPRの単位はラジアンです(360度＝2πラジアン)。
　EXPRを省略すると$_が使われます。

$th = 0;
foreach (1..100) {
    $val = (1 + cos($th)) * 30 + 2;
    print ' ' x $val, "#\n";
    $th += 0.1;
}