Mathematica: 3D tel çərçivələr

Mathematica tel çərçivə üçün gizli xətt çıxarılmasını dəstəkləyirmi? şəkillər? Əgər belə deyilsə, burada kimsə bunu etmək üçün bir yol tapıbmı? Bununla başlayaq:

Plot3D[Sin[x+y^2], {x, -3, 3}, {y, -2, 2}, Boxed -> False]

Bir tel çərçivə yaratmaq üçün edə bilərik:

Plot3D[Sin[x+y^2], {x, -3, 3}, {y, -2, 2}, Boxed -> False, PlotStyle -> None]

Effekt əldə etmək üçün edə biləcəyimiz bir şey, bütün səthlərə ağ rəng verməkdir. Ancaq bu arzuolunmazdır. Səbəbi budur ki, bu gizli xətt tel çərçivə modelini pdf-yə göndərsək, Mathematica-nın görüntüyü göstərmək üçün istifadə etdiyi bütün ağ poliqonlara sahib olacağıq. Pdf və / və ya eps formatında gizli xətt çıxarılması ilə bir tel çərçivə əldə edə bilmək istəyirəm.

YENİLƏNİB:

Bu problemin həllini göndərdim. Problem kodun çox yavaş işləməsidir. Mövcud vəziyyətdə, bu sualdakı şəkil üçün tel çərçivəsini yarada bilmir. Kodumla oynamaqdan çəkinməyin. Yazımın sonunda bir link əlavə etdim. Kodu bu linkində də tapa bilərsiniz