example4-13.rにfigure4-11を生成するスクリプトを追加