LaTeX 的pstricks-add宏绘图练习

练习。

\documentclass[10pt]{article}
\usepackage{pstricks-add}
\pagestyle{empty}
\begin{document}
\psset{xunit=1.0cm,yunit=1.0cm,algebraic=true,dimen=middle,dotstyle=o,dotsize=5pt 0,linewidth=2.pt,arrowsize=3pt 2,arrowinset=0.25}
\begin{pspicture*}(-16.558146351925174,-14.443035101971702)(19.950030806938734,11.451235915468098)
\pspolygon[linewidth=0.pt,linecolor=yellow,fillcolor=yellow,fillstyle=solid,opacity=1](-9.32645803513062,5.927050983124843)(-10.,8.)(-10.67354196486938,5.927050983124843)(-12.853169548885461,5.927050983124842)(-11.089813792008043,4.645898033750315)(-11.76335575687742,2.572949016875158)(-10.,3.8541019662496847)(-8.23664424312258,2.572949016875157)(-8.910186207991957,4.645898033750316)(-7.146830451114539,5.927050983124842)
\pspolygon[linewidth=0.pt,linecolor=yellow,fillcolor=yellow,fillstyle=solid,opacity=1](-5.380491380610676,8.033531224721123)(-5.857492925712544,7.485504244572473)(-5.149468392592269,7.6484929113571125)(-4.7756653457959235,7.025487833363207)(-4.711885166255159,7.749225447211051)(-4.003860633134883,7.912214113995687)(-4.672466847490397,8.19651989150576)(-4.608686667949633,8.920257505353604)(-5.085688213051505,8.372230525204953)(-5.754294427407017,8.656536302715029)
\pspolygon[linewidth=0.pt,linecolor=yellow,fillcolor=yellow,fillstyle=solid,opacity=1](-3.337662289832363,6.178555906582448)(-3.9899494936611646,5.858578643762691)(-3.274160144395983,5.734040888527788)(-3.171411514721383,5.0148004808055795)(-2.831777997764933,5.657072322910004)(-2.115988648499753,5.5325345676751025)(-2.621872940567183,6.054018151347545)(-2.2822394236107337,6.696289993451971)(-2.934526627439534,6.376312730632215)(-3.440410919506965,6.897796314304657)
\pspolygon[linewidth=0.pt,linecolor=yellow,fillcolor=yellow,fillstyle=solid,opacity=1](-3.235448504227792,3.3007690735551307)(-3.9615239476408233,3.274721127897378)(-3.358805976411212,2.8690179209131568)(-3.5584025591702573,2.1704298812564984)(-2.986305784560931,2.6182795496520734)(-2.38358781333132,2.2125763426678517)(-2.6327305329981794,2.8950658665709086)(-2.0606337583888537,3.3429155349664836)(-2.786709201801886,3.316867589308731)(-3.035851921468746,3.999357113211788)
\pspolygon[linewidth=0.pt,linecolor=yellow,fillcolor=yellow,fillstyle=solid,opacity=1](-5.101048955903904,1.3683573567353398)(-5.780868809443031,1.6246950475544244)(-5.381554509086555,1.0177254152570268)(-5.835422028169175,0.4503910164037501)(-5.134764699272369,0.642597552358208)(-4.735450398915892,0.035627920060809726)(-4.701734655547426,0.7613877244379416)(-4.00107732665062,0.9535942603923995)(-4.680897180189747,1.2099319512114834)(-4.647181436821283,1.935691755588616)
\pspolygon[linewidth=2.pt,linecolor=red,fillcolor=red,fillstyle=solid,opacity=0.98](-15.,10.)(-15.,-10.)(15.,-10.)(15.,10.)
\psline[linewidth=2.pt,linecolor=red](-7.146830451114539,5.927050983124842)(-9.32645803513062,5.927050983124843)
\psline[linewidth=2.pt,linecolor=red](-8.910186207991957,4.645898033750316)(-7.146830451114539,5.927050983124842)
\psline[linewidth=2.pt,linecolor=red](-8.23664424312258,2.572949016875157)(-8.910186207991957,4.645898033750316)
\psline[linewidth=2.pt,linecolor=red](-10.,3.8541019662496847)(-8.23664424312258,2.572949016875157)
\psline[linewidth=2.pt,linecolor=red](-11.76335575687742,2.572949016875158)(-10.,3.8541019662496847)
\psline[linewidth=2.pt,linecolor=red](-11.089813792008043,4.645898033750315)(-11.76335575687742,2.572949016875158)
\psline[linewidth=2.pt,linecolor=red](-12.853169548885461,5.927050983124842)(-11.089813792008043,4.645898033750315)
\psline[linewidth=2.pt,linecolor=red](-10.67354196486938,5.927050983124843)(-12.853169548885461,5.927050983124842)
\psline[linewidth=2.pt,linecolor=red](-10.,8.)(-10.67354196486938,5.927050983124843)
\psline[linewidth=2.pt,linecolor=red](-9.32645803513062,5.927050983124843)(-10.,8.)
\psline[linewidth=2.pt,linecolor=red](-5.754294427407017,8.656536302715029)(-5.380491380610676,8.033531224721123)
\psline[linewidth=2.pt,linecolor=red](-5.085688213051505,8.372230525204953)(-5.754294427407017,8.656536302715029)
\psline[linewidth=2.pt,linecolor=red](-4.608686667949633,8.920257505353604)(-5.085688213051505,8.372230525204953)
\psline[linewidth=2.pt,linecolor=red](-4.672466847490397,8.19651989150576)(-4.608686667949633,8.920257505353604)
\psline[linewidth=2.pt,linecolor=red](-4.003860633134883,7.912214113995687)(-4.672466847490397,8.19651989150576)
\psline[linewidth=2.pt,linecolor=red](-4.711885166255159,7.749225447211051)(-4.003860633134883,7.912214113995687)
\psline[linewidth=2.pt,linecolor=red](-4.7756653457959235,7.025487833363207)(-4.711885166255159,7.749225447211051)
\psline[linewidth=2.pt,linecolor=red](-5.149468392592269,7.6484929113571125)(-4.7756653457959235,7.025487833363207)
\psline[linewidth=2.pt,linecolor=red](-5.857492925712544,7.485504244572473)(-5.149468392592269,7.6484929113571125)
\psline[linewidth=2.pt,linecolor=red](-5.380491380610676,8.033531224721123)(-5.857492925712544,7.485504244572473)
\psline[linewidth=2.pt,linecolor=red](-3.440410919506965,6.897796314304657)(-3.337662289832363,6.178555906582448)
\psline[linewidth=2.pt,linecolor=red](-2.934526627439534,6.376312730632215)(-3.440410919506965,6.897796314304657)
\psline[linewidth=2.pt,linecolor=red](-2.2822394236107337,6.696289993451971)(-2.934526627439534,6.376312730632215)
\psline[linewidth=2.pt,linecolor=red](-2.621872940567183,6.054018151347545)(-2.2822394236107337,6.696289993451971)
\psline[linewidth=2.pt,linecolor=red](-2.115988648499753,5.5325345676751025)(-2.621872940567183,6.054018151347545)
\psline[linewidth=2.pt,linecolor=red](-2.831777997764933,5.657072322910004)(-2.115988648499753,5.5325345676751025)
\psline[linewidth=2.pt,linecolor=red](-3.171411514721383,5.0148004808055795)(-2.831777997764933,5.657072322910004)
\psline[linewidth=2.pt,linecolor=red](-3.274160144395983,5.734040888527788)(-3.171411514721383,5.0148004808055795)
\psline[linewidth=2.pt,linecolor=red](-3.9899494936611646,5.858578643762691)(-3.274160144395983,5.734040888527788)
\psline[linewidth=2.pt,linecolor=red](-3.337662289832363,6.178555906582448)(-3.9899494936611646,5.858578643762691)
\psline[linewidth=2.pt,linecolor=red](-3.035851921468746,3.999357113211788)(-3.235448504227792,3.3007690735551307)
\psline[linewidth=2.pt,linecolor=red](-2.786709201801886,3.316867589308731)(-3.035851921468746,3.999357113211788)
\psline[linewidth=2.pt,linecolor=red](-2.0606337583888537,3.3429155349664836)(-2.786709201801886,3.316867589308731)
\psline[linewidth=2.pt,linecolor=red](-2.6327305329981794,2.8950658665709086)(-2.0606337583888537,3.3429155349664836)
\psline[linewidth=2.pt,linecolor=red](-2.38358781333132,2.2125763426678517)(-2.6327305329981794,2.8950658665709086)
\psline[linewidth=2.pt,linecolor=red](-2.986305784560931,2.6182795496520734)(-2.38358781333132,2.2125763426678517)
\psline[linewidth=2.pt,linecolor=red](-3.5584025591702573,2.1704298812564984)(-2.986305784560931,2.6182795496520734)
\psline[linewidth=2.pt,linecolor=red](-3.358805976411212,2.8690179209131568)(-3.5584025591702573,2.1704298812564984)
\psline[linewidth=2.pt,linecolor=red](-3.9615239476408233,3.274721127897378)(-3.358805976411212,2.8690179209131568)
\psline[linewidth=2.pt,linecolor=red](-3.235448504227792,3.3007690735551307)(-3.9615239476408233,3.274721127897378)
\psline[linewidth=2.pt,linecolor=red](-4.647181436821283,1.935691755588616)(-5.101048955903904,1.3683573567353398)
\psline[linewidth=2.pt,linecolor=red](-4.680897180189747,1.2099319512114834)(-4.647181436821283,1.935691755588616)
\psline[linewidth=2.pt,linecolor=red](-4.00107732665062,0.9535942603923995)(-4.680897180189747,1.2099319512114834)
\psline[linewidth=2.pt,linecolor=red](-4.701734655547426,0.7613877244379416)(-4.00107732665062,0.9535942603923995)
\psline[linewidth=2.pt,linecolor=red](-4.735450398915892,0.035627920060809726)(-4.701734655547426,0.7613877244379416)
\psline[linewidth=2.pt,linecolor=red](-5.134764699272369,0.642597552358208)(-4.735450398915892,0.035627920060809726)
\psline[linewidth=2.pt,linecolor=red](-5.835422028169175,0.4503910164037501)(-5.134764699272369,0.642597552358208)
\psline[linewidth=2.pt,linecolor=red](-5.381554509086555,1.0177254152570268)(-5.835422028169175,0.4503910164037501)
\psline[linewidth=2.pt,linecolor=red](-5.780868809443031,1.6246950475544244)(-5.381554509086555,1.0177254152570268)
\psline[linewidth=2.pt,linecolor=red](-5.101048955903904,1.3683573567353398)(-5.780868809443031,1.6246950475544244)
\psline[linewidth=2.pt,linecolor=red](-15.,10.)(-15.,-10.)
\psline[linewidth=2.pt,linecolor=red](-15.,-10.)(15.,-10.)
\psline[linewidth=2.pt,linecolor=red](15.,-10.)(15.,10.)
\psline[linewidth=2.pt,linecolor=red](15.,10.)(-15.,10.)
\end{pspicture*}
\end{document}