Überarbeitungsverlauf[Zurück]
Klicke auf Einblenden/Ausblenden von Überarbeitungen 3
Weißer Hintergrund, "settings.render=2.4;" und png-shipout

03 Apr '14, 16:55

Klaus%20Heidrich's gravatar image

Klaus Heidrich
52125

Hier ist die dazu passende Lösung mit Asymptote: fill(buildcycle(curveI,reverse(curveIII),curveII),yellow); ( http://www.artofproblemsolving.com/Forum/viewtopic.php?f=519&t=583634&p=3450494#p3450494 ) texpreamble("\usepackage[pdfpagemode=FullScreen, pdftitle={Filling area bounded in several Subpaths}, pdfsubject={Asymptote-Programmierung}, pdfauthor={Klaus Heidrich Goettingen 2014}, pdfkeywords={Asymptote, Vektor-Grafik, LaTeX} ]{hyperref} "); //import settings; //pdfviewer="evince"; // for Linux //batchView=true; //outformat="pdf"; unitsize(1cm); fill(box((0,0),(11,5.8)),white); pair A1=(2,5),A2=(10,1); pair B1=(1,1),B2=(10,5); pair C1=(1,2),C2=(10,3.5); path curveI = A1 .. controls (6,5) .. A2; path curveII = B1 .. controls (3,4) .. B2; path curveIII = C1 .. controls (3,3) and (7,0) .. (9,2) ..controls C2 .. C2; fill(buildcycle(curveI,reverse(curveIII),curveII),yellow); draw(curveI, red); draw(curveII, blue); draw(curveIII, green); pair ip_1 = intersectionpoint(curveI, curveII); pair ip_2 = intersectionpoint(curveII, curveIII); pair ip_3 = intersectionpoint(curveI, curveIII); label("$A_1$",A1,1.5W,red); label("$A_2$",A2,1SE,red); label("$B_1$",B1,1.5SSW,heavyblue); label("$B_2$",B2,1.12E,heavyblue); label("$C_1$",C1,1.5W,heavygreen); label("$C_2$",C2,1.25E,heavygreen); label("$A_1$",A1,1.5W, red); label("$A_2$",A2,1SE, red); label("$B_1$",B1,1.5SSW, heavyblue); label("$B_2$",B2,1.12E, heavyblue); label("$C_1$",C1,1.5W, heavygreen); label("$C_2$",C2,1.25E, heavygreen); dot(ip_1^^ip_2^^ip_3); label("$S_1$",ip_1, 1.5*NNE); label("$S_2$",ip_2, 1.5*SSE); label("$S_3$",ip_3, 1.85*dir(-93)); dot(A1^^A2, mediumred); dot(B1^^B2, mediumblue); dot(C1^^C2, mediumgreen); shipout(bbox(.3cm,white),format="pdf"); draw(ip_1^^ip_2^^ip_3^^A1^^A2^^B1^^B2^^C1^^C2, white); settings.render=2.4; //shipout(bbox(.3cm, white),format="pdf"); shipout(bbox(white+linewidth(10)+linejoin(0)),format="png"); Die von TeX und Asymptote erzeugte pdf-Datei habe ich mit gimp eingelesen und dann von da aus als jpg-Rastergrafik abgespeichert. Bearbeitungsnotiz: Den obigen Code habe ich verbessert. Den Hintergrund habe ich für die Rastergrafik vor dem eigentlichen Zeichnen zuerst mit weiß gefüllt und zudem einen render-Wert angegeben. Hier nun ist die von Asymptote selbst mit ImageMagick automatisch erzeugte Rastergrafik. ![Und hier ist also jetzt das gewünschte Bild.][1] Bild in viel besserer Qualität.][1] [1]: http://texwelt.de/wissen/upfiles/KH-TeXwelt-001.jpghttp://texwelt.de/wissen/upfiles/KH-TeXwelt-003.png
Klicke auf Einblenden/Ausblenden von Überarbeitungen 2
Code und Bild aus anderer Antwort übernommen

02 Apr '14, 23:24

esdd's gravatar image

esdd
17.8k304257

Hier ist die dazu passende Lösung mit Asymptote: <code> fill(buildcycle(curveI,reverse(curveIII),curveII),yellow);</code> fill(buildcycle(curveI,reverse(curveIII),curveII),yellow); ( http://www.artofproblemsolving.com/Forum/viewtopic.php?f=519&t=583634&p=3450494#p3450494 ) texpreamble("\usepackage[pdfpagemode=FullScreen, pdftitle={Filling area bounded in several Subpaths}, pdfsubject={Asymptote-Programmierung}, pdfauthor={Klaus Heidrich Goettingen 2014}, pdfkeywords={Asymptote, Vektor-Grafik, LaTeX} ]{hyperref} "); //import settings; //pdfviewer="evince"; // for Linux //batchView=true; //outformat="pdf"; unitsize(1cm); pair A1=(2,5),A2=(10,1); pair B1=(1,1),B2=(10,5); pair C1=(1,2),C2=(10,3.5); path curveI = A1 .. controls (6,5) .. A2; path curveII = B1 .. controls (3,4) .. B2; path curveIII = C1 .. controls (3,3) and (7,0) .. (9,2) ..controls C2 .. C2; fill(buildcycle(curveI,reverse(curveIII),curveII),yellow); draw(curveI, red); draw(curveII, blue); draw(curveIII, green); pair ip_1 = intersectionpoint(curveI, curveII); pair ip_2 = intersectionpoint(curveII, curveIII); pair ip_3 = intersectionpoint(curveI, curveIII); label("$A_1$",A1,1.5W,red); label("$A_2$",A2,1SE,red); label("$B_1$",B1,1.5SSW,heavyblue); label("$B_2$",B2,1.12E,heavyblue); label("$C_1$",C1,1.5W,heavygreen); label("$C_2$",C2,1.25E,heavygreen); dot(ip_1^^ip_2^^ip_3); label("$S_1$",ip_1, 1.5*NNE); label("$S_2$",ip_2, 1.5*SSE); label("$S_3$",ip_3, 1.85*dir(-93)); dot(A1^^A2, mediumred); dot(B1^^B2, mediumblue); dot(C1^^C2, mediumgreen); shipout(bbox(.3cm,white),format="pdf"); Die von TeX und Asymptote erzeugte pdf-Datei habe ich mit gimp eingelesen und dann von da aus als jpg-Rastergrafik abgespeichert. ![Und hier ist das gewünschte Bild.][1] [1]: http://texwelt.de/wissen/upfiles/KH-TeXwelt-001.jpg
Klicke auf Einblenden/Ausblenden von Überarbeitungen 1

02 Apr '14, 19:58

Klaus%20Heidrich's gravatar image

Klaus Heidrich
52125

Willkommen, erstes Mal hier? Schau mal unter FAQ!

×