#==========
Julia の修行をするときに,いろいろなプログラムを書き換えるのは有効な方法だ。
以下のプログラムを Julia に翻訳してみる。
バットマン方程式- バットサインの数式による描画
http://www.r-bloggers.com/the-batman-equation/
ファイル名: batman.jl 関数名: batman
翻訳するときに書いたメモ
最初にプロット領域を宣言しなくてよいのは楽
==========#
using Plots
x11 = 3:0.001:7
x12 = 7:-0.001:4
y1 = vcat(3*sqrt.(1 .- (x11 ./ 7) .^ 2), -3sqrt.(1 .- (x12 ./ 7) .^2));
x2 = 4:-0.001:0
y2 = x2 ./ 2 .- (3*sqrt(33)-7) .* x2 .^ 2 ./112 .- 3 .+ sqrt.(1 .- (abs.(x2 .- 2) .- 1) .^ 2);
x345 = [1, 0.75, 0.5, -0.5, -0.75, -1, 1];
y345 = [1, 3, 2.25, 2.25, 3, 1, 1];
x6 = 1:0.001:3;
y6 = 1.5 .- 0.5 .* x6 .+ 6sqrt(10) .* (1/7 .- sqrt.(4 .- (x6 .- 1) .^2) ./14);
plt = plot(x345, y345, seriestype=:shape, grid=false, tick_direction=:out, ticks=false, showaxis=false,
color=:black, size=(500, 215), aspect_ratio=1, label="")
plot!(vcat(0, x6, x11, x12, x2, 0), vcat(1, y6, y1, y2, 1), seriestype=:shape, color=:black, label="")
plot!(-vcat(0, x6, x11, x12, x2, 0), vcat(1, y6, y1, y2, 1), seriestype=:shape, color=:black, label="")
display(plt)
savefig("batman.png")