How to fill color between function and circle in the following?How to use fraction for PSTricks's...

The screen of my macbook suddenly broken down how can I do to recover

Why did the EU agree to delay the Brexit deadline?

copy and scale one figure (wheel)

Why is so much work done on numerical verification of the Riemann Hypothesis?

The IT department bottlenecks progress. How should I handle this?

Delivering sarcasm

Travelling outside the UK without a passport

Why should universal income be universal?

Multiplicative persistence

Pre-mixing cryogenic fuels and using only one fuel tank

Is it possible to have a strip of cold climate in the middle of a planet?

What if a revenant (monster) gains fire resistance?

What does routing an IP address mean?

Why is it that I can sometimes guess the next note?

Added a new user on Ubuntu, set password not working?

If infinitesimal transformations commute why dont the generators of the Lorentz group commute?

How do I find all files that end with a dot

Yosemite Fire Rings - What to Expect?

What is this cable/device?

What does chmod -u do?

What is the evidence for the "tyranny of the majority problem" in a direct democracy context?

What should you do if you miss a job interview (deliberately)?

How can Trident be so inexpensive? Will it orbit Triton or just do a (slow) flyby?

250 Floor Tower

How to fill color between function and circle in the following?

How to use fraction for PSTricks's coordinates?How to fill a region bounded by a character and a graphic object with a color?How does uput determine the touching point between the object box and the hypothetical circle?How to fill color in graph?Fill area between two distinct curvesHow to combine and simplify the following PostScript operators?TikZ - How to draw the followingColor gradient fill between three corners of a triangleLaTeX Trellis Diagrams for STBCsIn PStricks, what is the difference between psforeach and multido in the following?How to use eofill in the following case?

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot,pst-func}

begin{document}

begin{pspicture}(-3,-1.5)(3,4)

defF{x^3/3 - x + 2/3 }

psaxes{->}(0,0)(-3,-1)(3,4)

psplot[algebraic]{-2.5}{2.5}{F}



pstGeonode[PosAngle={-45,0}](0,-.2){N}(2.5,1){M}

pstLineAB[nodesepA=-3cm]{N}{M}



psset{PointSymbol=o,algebraic}

pstInterFL{F}{N}{M}{2}{A}

pstInterFL[PosAngle=90]{F}{N}{M}{0}{A1}

pstInterFL{F}{N}{M}{-2}{A2}

pscustom[fillstyle=solid,fillcolor=red,linestyle=none,opacity=.4]{%

code{ psGetNodeCenter{A} psGetNodeCenter{A1} }

psplot{A.x}{A1.x}{F}

psline(A1)(A)

    }

pscustom[fillstyle=solid,fillcolor=yellow,linestyle=none,opacity=.4]{%

code{ psGetNodeCenter{A1} psGetNodeCenter{A2} }

psplot{A1.x}{A2.x}{F}

psline(A1)(A2)

    }

end{pspicture}

end{document}

enter image description here

Question 1:

" opacity=.4 " can be loaded within this case?

How to the plot is located above color background ?

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

begin{document}

begin{pspicture}(-3,-3)(3,3)

defF{2*cos(x)}

psset{algebraic}

pstGeonode(0.3,-1){O}(2,.5){M}

ncline[linecolor=blue, arrowscale=2]{->}{O}{M}

psaxes{->}(0,0)(-3,-3)(3,3.5)

psplot[linewidth=1.5pt]{-3.14}{3.14}{F}

pstCircleOA[PointSymbol=*]{O}{M}

psset{PointSymbol=o}

pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pstInterFC{F}{O}{M}{-2}{N2}

%pstInterFC{F}{O}{M}{2}{N3}

%pscustom[fillstyle=solid,fillcolor=blue!30,linestyle=none]{%

%code{ psGetNodeCenter{N0} psGetNodeCenter{N1} }

%psplot{N0.x}{N1.x}{F}

%pstArcOAB{O}{N1.x}{N0.x}

%}

end{pspicture}

end{document}

enter image description here

Question 2 : How to fill color it?

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid](-5.5,-4.5)(5.5,5.5)

    psset{algebraic,plotstyle=curve,linewidth=1.2pt}

    psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



    pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

    pssavepath{B}{psplot{-4}{4}{x^2/2-3}}



    psintersect[name=C,showpoints]{A}{B}



    pstTriangleOC[linestyle=none]{C1}{C2}{C3}

    pnode(OC_O){O}



    psarcAB(O)(C3)(C4)

    uput[0](C1){$C1$}

    uput[0](C2){$C2$}

    uput[0](C3){$C3$}

    uput[0](C4){$C4$}



    psclip{pscustom{psarcAB(O)(C3)(C4) psplot{4}{0}{x^2/2-3}}}

            psframe[fillstyle=solid,fillcolor=blue!50](0,-3)(4,3)

    endpsclip

 end{pspicture*}

end{document}

![enter image description here

Final edited... DONE!

Using saveNodeCoors

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid,saveNodeCoors](-5.5,-4.5)(5.5,5.5)

psset{algebraic,plotstyle=curve,linewidth=1.2pt}

psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

pssavepath{B}{psplot{-4}{4}{x^2/2-3}}

psintersect[name=C,showpoints]{A}{B}



pstTriangleOC[linestyle=none]{C1}{C2}{C3}

pnode(OC_O){O}



psarcAB(O)(C3)(C4)

uput[-10](C1){$C1$}

uput[40](C2){$C2$}

uput[120](C3){$C3$}

uput[120](C4){$C4$}

%C3C4

pscustom[fillstyle=solid,fillcolor=blue!50]{%

        psarcAB(O)(C3)(C4) 

        psplot{N-C4.x}{N-C3.x}{x^2/2-3}}

%C2C3

pscustom[fillstyle=solid,fillcolor=red!50]{%

    psplot{N-C2.x}{N-C3.x}{-sqrt(x+3)} 

    psplot{N-C3.x}{N-C2.x}{x^2/2-3}}

%C1C2C3C4

pscustom[fillstyle=vlines]{%

    psplot{N-C1.x}{N-C2.x}{x^2/2-3} 

    psplot{N-C2.x}{N-C3.x}{-sqrt(x+3)}

    psplot{N-C3.x}{N-C4.x}{x^2/2-3} 

    psplot{N-C4.x}{N-C1.x}{sqrt(x+3)}}



pscustom[fillstyle=solid,fillcolor=orange!50,opacity=.4]{%

        psplot{N-C1.x}{N-C2.x}{x^2/2-3} 

        psplot{N-C2.x}{-3}{-sqrt(x+3)}

        psplot{-3}{N-C1.x}{sqrt(x+3)}}



end{pspicture*}

end{document}

enter image description here

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot,}

defF{2*cos(x)}

begin{document}

begin{pspicture}[showgrid,algebraic,saveNodeCoors,opacity=0.5](-4,-4)(4,3)

pnodes(.3,-1){O}(2,.5){M}



pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pstInterFC[PosAngle=135]{F}{O}{M}{-2}{N3}

pstInterFC[PosAngle=45]{F}{O}{M}{3}{N4}

%%N0N1  

pscustom[fillstyle=solid,fillcolor=red]{%

        psarcAB(O)(N0)(N1)%

        psplot{N-N1.x}{N-N0.x}{F}}

%%N0N4

pscustom[fillstyle=solid,fillcolor=blue]{%

        psarcnAB(O)(N0)(N4)%

        psplot{N-N4.x}{N-N0.x}{F}}

%%N1N3

pscustom[fillstyle=solid,fillcolor=yellow]{%

        psarcAB(O)(N1)(N3)%

        psplot{N-N3.x}{N-N1.x}{F}}

%N1N2N3N4   

pscustom[fillstyle=vlines]{%

        psarcAB(O)(N0)(N1)%

        psplot{N-N1.x}{N-N3.x}{F}

        psarcAB(O)(N3)(N4)

        psplot{N-N4.x}{N-N0.x}{F}}



pstCircleOA{O}{M}

psplot{-3}{3}{F}

end{pspicture}

end{document}

enter image description here

documentclass[border=5pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot,amsmath}



begin{document}

begin{pspicture}[algebraic,saveNodeCoors](-1.5,-1.5)(5,5)

deff{x-1+4/((x^2+1)^2)}

defg{4*x-x^2+4/((x^2+1)^2)}

psplot[plotstyle=curve]{-1}{4}{f}

psplot[plotstyle=curve]{-.65}{4}{g}

%%

psaxes{->}(0,0)(-1,-1)(4.5,4.5)

psset{PointSymbol=none,PointName=none}

pstInterFF{f}{g}{0}{M_1}

pstInterFF{f}{g}{3.2}{M_0}

%%

pscustom[fillstyle=hlines]{%

psplot{1}{N-M_0.x}{f}

psplot{N-M_0.x}{1}{g}}

%%

uput[0](2,1){$C_f$}

uput[0](2,4.3){$C_f$}

end{pspicture}

end{document}

enter image description here

edited 14 mins ago

asked Feb 1 at 15:52

chishimutoji

7331323

Don't forget, there is also a key NodeCoorPrefix to change the prefix N.

– The Inventor of God
Feb 7 at 16:15

add a comment |

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot,pst-func}

begin{document}

begin{pspicture}(-3,-1.5)(3,4)

defF{x^3/3 - x + 2/3 }

psaxes{->}(0,0)(-3,-1)(3,4)

psplot[algebraic]{-2.5}{2.5}{F}



pstGeonode[PosAngle={-45,0}](0,-.2){N}(2.5,1){M}

pstLineAB[nodesepA=-3cm]{N}{M}



psset{PointSymbol=o,algebraic}

pstInterFL{F}{N}{M}{2}{A}

pstInterFL[PosAngle=90]{F}{N}{M}{0}{A1}

pstInterFL{F}{N}{M}{-2}{A2}

pscustom[fillstyle=solid,fillcolor=red,linestyle=none,opacity=.4]{%

code{ psGetNodeCenter{A} psGetNodeCenter{A1} }

psplot{A.x}{A1.x}{F}

psline(A1)(A)

    }

pscustom[fillstyle=solid,fillcolor=yellow,linestyle=none,opacity=.4]{%

code{ psGetNodeCenter{A1} psGetNodeCenter{A2} }

psplot{A1.x}{A2.x}{F}

psline(A1)(A2)

    }

end{pspicture}

end{document}

enter image description here

Question 1:

" opacity=.4 " can be loaded within this case?

How to the plot is located above color background ?

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

begin{document}

begin{pspicture}(-3,-3)(3,3)

defF{2*cos(x)}

psset{algebraic}

pstGeonode(0.3,-1){O}(2,.5){M}

ncline[linecolor=blue, arrowscale=2]{->}{O}{M}

psaxes{->}(0,0)(-3,-3)(3,3.5)

psplot[linewidth=1.5pt]{-3.14}{3.14}{F}

pstCircleOA[PointSymbol=*]{O}{M}

psset{PointSymbol=o}

pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pstInterFC{F}{O}{M}{-2}{N2}

%pstInterFC{F}{O}{M}{2}{N3}

%pscustom[fillstyle=solid,fillcolor=blue!30,linestyle=none]{%

%code{ psGetNodeCenter{N0} psGetNodeCenter{N1} }

%psplot{N0.x}{N1.x}{F}

%pstArcOAB{O}{N1.x}{N0.x}

%}

end{pspicture}

end{document}

enter image description here

Question 2 : How to fill color it?

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid](-5.5,-4.5)(5.5,5.5)

    psset{algebraic,plotstyle=curve,linewidth=1.2pt}

    psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



    pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

    pssavepath{B}{psplot{-4}{4}{x^2/2-3}}



    psintersect[name=C,showpoints]{A}{B}



    pstTriangleOC[linestyle=none]{C1}{C2}{C3}

    pnode(OC_O){O}



    psarcAB(O)(C3)(C4)

    uput[0](C1){$C1$}

    uput[0](C2){$C2$}

    uput[0](C3){$C3$}

    uput[0](C4){$C4$}



    psclip{pscustom{psarcAB(O)(C3)(C4) psplot{4}{0}{x^2/2-3}}}

            psframe[fillstyle=solid,fillcolor=blue!50](0,-3)(4,3)

    endpsclip

 end{pspicture*}

end{document}

![enter image description here

Final edited... DONE!

Using saveNodeCoors

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid,saveNodeCoors](-5.5,-4.5)(5.5,5.5)

psset{algebraic,plotstyle=curve,linewidth=1.2pt}

psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

pssavepath{B}{psplot{-4}{4}{x^2/2-3}}

psintersect[name=C,showpoints]{A}{B}



pstTriangleOC[linestyle=none]{C1}{C2}{C3}

pnode(OC_O){O}



psarcAB(O)(C3)(C4)

uput[-10](C1){$C1$}

uput[40](C2){$C2$}

uput[120](C3){$C3$}

uput[120](C4){$C4$}

%C3C4

pscustom[fillstyle=solid,fillcolor=blue!50]{%

        psarcAB(O)(C3)(C4) 

        psplot{N-C4.x}{N-C3.x}{x^2/2-3}}

%C2C3

pscustom[fillstyle=solid,fillcolor=red!50]{%

    psplot{N-C2.x}{N-C3.x}{-sqrt(x+3)} 

    psplot{N-C3.x}{N-C2.x}{x^2/2-3}}

%C1C2C3C4

pscustom[fillstyle=vlines]{%

    psplot{N-C1.x}{N-C2.x}{x^2/2-3} 

    psplot{N-C2.x}{N-C3.x}{-sqrt(x+3)}

    psplot{N-C3.x}{N-C4.x}{x^2/2-3} 

    psplot{N-C4.x}{N-C1.x}{sqrt(x+3)}}



pscustom[fillstyle=solid,fillcolor=orange!50,opacity=.4]{%

        psplot{N-C1.x}{N-C2.x}{x^2/2-3} 

        psplot{N-C2.x}{-3}{-sqrt(x+3)}

        psplot{-3}{N-C1.x}{sqrt(x+3)}}



end{pspicture*}

end{document}

enter image description here

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot,}

defF{2*cos(x)}

begin{document}

begin{pspicture}[showgrid,algebraic,saveNodeCoors,opacity=0.5](-4,-4)(4,3)

pnodes(.3,-1){O}(2,.5){M}



pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pstInterFC[PosAngle=135]{F}{O}{M}{-2}{N3}

pstInterFC[PosAngle=45]{F}{O}{M}{3}{N4}

%%N0N1  

pscustom[fillstyle=solid,fillcolor=red]{%

        psarcAB(O)(N0)(N1)%

        psplot{N-N1.x}{N-N0.x}{F}}

%%N0N4

pscustom[fillstyle=solid,fillcolor=blue]{%

        psarcnAB(O)(N0)(N4)%

        psplot{N-N4.x}{N-N0.x}{F}}

%%N1N3

pscustom[fillstyle=solid,fillcolor=yellow]{%

        psarcAB(O)(N1)(N3)%

        psplot{N-N3.x}{N-N1.x}{F}}

%N1N2N3N4   

pscustom[fillstyle=vlines]{%

        psarcAB(O)(N0)(N1)%

        psplot{N-N1.x}{N-N3.x}{F}

        psarcAB(O)(N3)(N4)

        psplot{N-N4.x}{N-N0.x}{F}}



pstCircleOA{O}{M}

psplot{-3}{3}{F}

end{pspicture}

end{document}

enter image description here

documentclass[border=5pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot,amsmath}



begin{document}

begin{pspicture}[algebraic,saveNodeCoors](-1.5,-1.5)(5,5)

deff{x-1+4/((x^2+1)^2)}

defg{4*x-x^2+4/((x^2+1)^2)}

psplot[plotstyle=curve]{-1}{4}{f}

psplot[plotstyle=curve]{-.65}{4}{g}

%%

psaxes{->}(0,0)(-1,-1)(4.5,4.5)

psset{PointSymbol=none,PointName=none}

pstInterFF{f}{g}{0}{M_1}

pstInterFF{f}{g}{3.2}{M_0}

%%

pscustom[fillstyle=hlines]{%

psplot{1}{N-M_0.x}{f}

psplot{N-M_0.x}{1}{g}}

%%

uput[0](2,1){$C_f$}

uput[0](2,4.3){$C_f$}

end{pspicture}

end{document}

enter image description here

edited 14 mins ago

asked Feb 1 at 15:52

chishimutoji

7331323

Don't forget, there is also a key NodeCoorPrefix to change the prefix N.

– The Inventor of God
Feb 7 at 16:15

add a comment |

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot,pst-func}

begin{document}

begin{pspicture}(-3,-1.5)(3,4)

defF{x^3/3 - x + 2/3 }

psaxes{->}(0,0)(-3,-1)(3,4)

psplot[algebraic]{-2.5}{2.5}{F}



pstGeonode[PosAngle={-45,0}](0,-.2){N}(2.5,1){M}

pstLineAB[nodesepA=-3cm]{N}{M}



psset{PointSymbol=o,algebraic}

pstInterFL{F}{N}{M}{2}{A}

pstInterFL[PosAngle=90]{F}{N}{M}{0}{A1}

pstInterFL{F}{N}{M}{-2}{A2}

pscustom[fillstyle=solid,fillcolor=red,linestyle=none,opacity=.4]{%

code{ psGetNodeCenter{A} psGetNodeCenter{A1} }

psplot{A.x}{A1.x}{F}

psline(A1)(A)

    }

pscustom[fillstyle=solid,fillcolor=yellow,linestyle=none,opacity=.4]{%

code{ psGetNodeCenter{A1} psGetNodeCenter{A2} }

psplot{A1.x}{A2.x}{F}

psline(A1)(A2)

    }

end{pspicture}

end{document}

enter image description here

Question 1:

" opacity=.4 " can be loaded within this case?

How to the plot is located above color background ?

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

begin{document}

begin{pspicture}(-3,-3)(3,3)

defF{2*cos(x)}

psset{algebraic}

pstGeonode(0.3,-1){O}(2,.5){M}

ncline[linecolor=blue, arrowscale=2]{->}{O}{M}

psaxes{->}(0,0)(-3,-3)(3,3.5)

psplot[linewidth=1.5pt]{-3.14}{3.14}{F}

pstCircleOA[PointSymbol=*]{O}{M}

psset{PointSymbol=o}

pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pstInterFC{F}{O}{M}{-2}{N2}

%pstInterFC{F}{O}{M}{2}{N3}

%pscustom[fillstyle=solid,fillcolor=blue!30,linestyle=none]{%

%code{ psGetNodeCenter{N0} psGetNodeCenter{N1} }

%psplot{N0.x}{N1.x}{F}

%pstArcOAB{O}{N1.x}{N0.x}

%}

end{pspicture}

end{document}

enter image description here

Question 2 : How to fill color it?

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid](-5.5,-4.5)(5.5,5.5)

    psset{algebraic,plotstyle=curve,linewidth=1.2pt}

    psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



    pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

    pssavepath{B}{psplot{-4}{4}{x^2/2-3}}



    psintersect[name=C,showpoints]{A}{B}



    pstTriangleOC[linestyle=none]{C1}{C2}{C3}

    pnode(OC_O){O}



    psarcAB(O)(C3)(C4)

    uput[0](C1){$C1$}

    uput[0](C2){$C2$}

    uput[0](C3){$C3$}

    uput[0](C4){$C4$}



    psclip{pscustom{psarcAB(O)(C3)(C4) psplot{4}{0}{x^2/2-3}}}

            psframe[fillstyle=solid,fillcolor=blue!50](0,-3)(4,3)

    endpsclip

 end{pspicture*}

end{document}

![enter image description here

Final edited... DONE!

Using saveNodeCoors

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid,saveNodeCoors](-5.5,-4.5)(5.5,5.5)

psset{algebraic,plotstyle=curve,linewidth=1.2pt}

psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

pssavepath{B}{psplot{-4}{4}{x^2/2-3}}

psintersect[name=C,showpoints]{A}{B}



pstTriangleOC[linestyle=none]{C1}{C2}{C3}

pnode(OC_O){O}



psarcAB(O)(C3)(C4)

uput[-10](C1){$C1$}

uput[40](C2){$C2$}

uput[120](C3){$C3$}

uput[120](C4){$C4$}

%C3C4

pscustom[fillstyle=solid,fillcolor=blue!50]{%

        psarcAB(O)(C3)(C4) 

        psplot{N-C4.x}{N-C3.x}{x^2/2-3}}

%C2C3

pscustom[fillstyle=solid,fillcolor=red!50]{%

    psplot{N-C2.x}{N-C3.x}{-sqrt(x+3)} 

    psplot{N-C3.x}{N-C2.x}{x^2/2-3}}

%C1C2C3C4

pscustom[fillstyle=vlines]{%

    psplot{N-C1.x}{N-C2.x}{x^2/2-3} 

    psplot{N-C2.x}{N-C3.x}{-sqrt(x+3)}

    psplot{N-C3.x}{N-C4.x}{x^2/2-3} 

    psplot{N-C4.x}{N-C1.x}{sqrt(x+3)}}



pscustom[fillstyle=solid,fillcolor=orange!50,opacity=.4]{%

        psplot{N-C1.x}{N-C2.x}{x^2/2-3} 

        psplot{N-C2.x}{-3}{-sqrt(x+3)}

        psplot{-3}{N-C1.x}{sqrt(x+3)}}



end{pspicture*}

end{document}

enter image description here

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot,}

defF{2*cos(x)}

begin{document}

begin{pspicture}[showgrid,algebraic,saveNodeCoors,opacity=0.5](-4,-4)(4,3)

pnodes(.3,-1){O}(2,.5){M}



pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pstInterFC[PosAngle=135]{F}{O}{M}{-2}{N3}

pstInterFC[PosAngle=45]{F}{O}{M}{3}{N4}

%%N0N1  

pscustom[fillstyle=solid,fillcolor=red]{%

        psarcAB(O)(N0)(N1)%

        psplot{N-N1.x}{N-N0.x}{F}}

%%N0N4

pscustom[fillstyle=solid,fillcolor=blue]{%

        psarcnAB(O)(N0)(N4)%

        psplot{N-N4.x}{N-N0.x}{F}}

%%N1N3

pscustom[fillstyle=solid,fillcolor=yellow]{%

        psarcAB(O)(N1)(N3)%

        psplot{N-N3.x}{N-N1.x}{F}}

%N1N2N3N4   

pscustom[fillstyle=vlines]{%

        psarcAB(O)(N0)(N1)%

        psplot{N-N1.x}{N-N3.x}{F}

        psarcAB(O)(N3)(N4)

        psplot{N-N4.x}{N-N0.x}{F}}



pstCircleOA{O}{M}

psplot{-3}{3}{F}

end{pspicture}

end{document}

enter image description here

documentclass[border=5pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot,amsmath}



begin{document}

begin{pspicture}[algebraic,saveNodeCoors](-1.5,-1.5)(5,5)

deff{x-1+4/((x^2+1)^2)}

defg{4*x-x^2+4/((x^2+1)^2)}

psplot[plotstyle=curve]{-1}{4}{f}

psplot[plotstyle=curve]{-.65}{4}{g}

%%

psaxes{->}(0,0)(-1,-1)(4.5,4.5)

psset{PointSymbol=none,PointName=none}

pstInterFF{f}{g}{0}{M_1}

pstInterFF{f}{g}{3.2}{M_0}

%%

pscustom[fillstyle=hlines]{%

psplot{1}{N-M_0.x}{f}

psplot{N-M_0.x}{1}{g}}

%%

uput[0](2,1){$C_f$}

uput[0](2,4.3){$C_f$}

end{pspicture}

end{document}

enter image description here

edited 14 mins ago

asked Feb 1 at 15:52

chishimutoji

7331323

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot,pst-func}

begin{document}

begin{pspicture}(-3,-1.5)(3,4)

defF{x^3/3 - x + 2/3 }

psaxes{->}(0,0)(-3,-1)(3,4)

psplot[algebraic]{-2.5}{2.5}{F}



pstGeonode[PosAngle={-45,0}](0,-.2){N}(2.5,1){M}

pstLineAB[nodesepA=-3cm]{N}{M}



psset{PointSymbol=o,algebraic}

pstInterFL{F}{N}{M}{2}{A}

pstInterFL[PosAngle=90]{F}{N}{M}{0}{A1}

pstInterFL{F}{N}{M}{-2}{A2}

pscustom[fillstyle=solid,fillcolor=red,linestyle=none,opacity=.4]{%

code{ psGetNodeCenter{A} psGetNodeCenter{A1} }

psplot{A.x}{A1.x}{F}

psline(A1)(A)

    }

pscustom[fillstyle=solid,fillcolor=yellow,linestyle=none,opacity=.4]{%

code{ psGetNodeCenter{A1} psGetNodeCenter{A2} }

psplot{A1.x}{A2.x}{F}

psline(A1)(A2)

    }

end{pspicture}

end{document}

enter image description here

Question 1:

" opacity=.4 " can be loaded within this case?

How to the plot is located above color background ?

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

begin{document}

begin{pspicture}(-3,-3)(3,3)

defF{2*cos(x)}

psset{algebraic}

pstGeonode(0.3,-1){O}(2,.5){M}

ncline[linecolor=blue, arrowscale=2]{->}{O}{M}

psaxes{->}(0,0)(-3,-3)(3,3.5)

psplot[linewidth=1.5pt]{-3.14}{3.14}{F}

pstCircleOA[PointSymbol=*]{O}{M}

psset{PointSymbol=o}

pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pstInterFC{F}{O}{M}{-2}{N2}

%pstInterFC{F}{O}{M}{2}{N3}

%pscustom[fillstyle=solid,fillcolor=blue!30,linestyle=none]{%

%code{ psGetNodeCenter{N0} psGetNodeCenter{N1} }

%psplot{N0.x}{N1.x}{F}

%pstArcOAB{O}{N1.x}{N0.x}

%}

end{pspicture}

end{document}

enter image description here

Question 2 : How to fill color it?

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid](-5.5,-4.5)(5.5,5.5)

    psset{algebraic,plotstyle=curve,linewidth=1.2pt}

    psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



    pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

    pssavepath{B}{psplot{-4}{4}{x^2/2-3}}



    psintersect[name=C,showpoints]{A}{B}



    pstTriangleOC[linestyle=none]{C1}{C2}{C3}

    pnode(OC_O){O}



    psarcAB(O)(C3)(C4)

    uput[0](C1){$C1$}

    uput[0](C2){$C2$}

    uput[0](C3){$C3$}

    uput[0](C4){$C4$}



    psclip{pscustom{psarcAB(O)(C3)(C4) psplot{4}{0}{x^2/2-3}}}

            psframe[fillstyle=solid,fillcolor=blue!50](0,-3)(4,3)

    endpsclip

 end{pspicture*}

end{document}

![enter image description here

Final edited... DONE!

Using saveNodeCoors

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid,saveNodeCoors](-5.5,-4.5)(5.5,5.5)

psset{algebraic,plotstyle=curve,linewidth=1.2pt}

psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

pssavepath{B}{psplot{-4}{4}{x^2/2-3}}

psintersect[name=C,showpoints]{A}{B}



pstTriangleOC[linestyle=none]{C1}{C2}{C3}

pnode(OC_O){O}



psarcAB(O)(C3)(C4)

uput[-10](C1){$C1$}

uput[40](C2){$C2$}

uput[120](C3){$C3$}

uput[120](C4){$C4$}

%C3C4

pscustom[fillstyle=solid,fillcolor=blue!50]{%

        psarcAB(O)(C3)(C4) 

        psplot{N-C4.x}{N-C3.x}{x^2/2-3}}

%C2C3

pscustom[fillstyle=solid,fillcolor=red!50]{%

    psplot{N-C2.x}{N-C3.x}{-sqrt(x+3)} 

    psplot{N-C3.x}{N-C2.x}{x^2/2-3}}

%C1C2C3C4

pscustom[fillstyle=vlines]{%

    psplot{N-C1.x}{N-C2.x}{x^2/2-3} 

    psplot{N-C2.x}{N-C3.x}{-sqrt(x+3)}

    psplot{N-C3.x}{N-C4.x}{x^2/2-3} 

    psplot{N-C4.x}{N-C1.x}{sqrt(x+3)}}



pscustom[fillstyle=solid,fillcolor=orange!50,opacity=.4]{%

        psplot{N-C1.x}{N-C2.x}{x^2/2-3} 

        psplot{N-C2.x}{-3}{-sqrt(x+3)}

        psplot{-3}{N-C1.x}{sqrt(x+3)}}



end{pspicture*}

end{document}

enter image description here

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot,}

defF{2*cos(x)}

begin{document}

begin{pspicture}[showgrid,algebraic,saveNodeCoors,opacity=0.5](-4,-4)(4,3)

pnodes(.3,-1){O}(2,.5){M}



pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pstInterFC[PosAngle=135]{F}{O}{M}{-2}{N3}

pstInterFC[PosAngle=45]{F}{O}{M}{3}{N4}

%%N0N1  

pscustom[fillstyle=solid,fillcolor=red]{%

        psarcAB(O)(N0)(N1)%

        psplot{N-N1.x}{N-N0.x}{F}}

%%N0N4

pscustom[fillstyle=solid,fillcolor=blue]{%

        psarcnAB(O)(N0)(N4)%

        psplot{N-N4.x}{N-N0.x}{F}}

%%N1N3

pscustom[fillstyle=solid,fillcolor=yellow]{%

        psarcAB(O)(N1)(N3)%

        psplot{N-N3.x}{N-N1.x}{F}}

%N1N2N3N4   

pscustom[fillstyle=vlines]{%

        psarcAB(O)(N0)(N1)%

        psplot{N-N1.x}{N-N3.x}{F}

        psarcAB(O)(N3)(N4)

        psplot{N-N4.x}{N-N0.x}{F}}



pstCircleOA{O}{M}

psplot{-3}{3}{F}

end{pspicture}

end{document}

enter image description here

documentclass[border=5pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot,amsmath}



begin{document}

begin{pspicture}[algebraic,saveNodeCoors](-1.5,-1.5)(5,5)

deff{x-1+4/((x^2+1)^2)}

defg{4*x-x^2+4/((x^2+1)^2)}

psplot[plotstyle=curve]{-1}{4}{f}

psplot[plotstyle=curve]{-.65}{4}{g}

%%

psaxes{->}(0,0)(-1,-1)(4.5,4.5)

psset{PointSymbol=none,PointName=none}

pstInterFF{f}{g}{0}{M_1}

pstInterFF{f}{g}{3.2}{M_0}

%%

pscustom[fillstyle=hlines]{%

psplot{1}{N-M_0.x}{f}

psplot{N-M_0.x}{1}{g}}

%%

uput[0](2,1){$C_f$}

uput[0](2,4.3){$C_f$}

end{pspicture}

end{document}

enter image description here

pstricks

edited 14 mins ago

asked Feb 1 at 15:52

chishimutoji

7331323

edited 14 mins ago

asked Feb 1 at 15:52

chishimutoji

7331323

edited 14 mins ago

asked Feb 1 at 15:52

chishimutoji

7331323

asked Feb 1 at 15:52

chishimutoji

7331323

asked Feb 1 at 15:52

chishimutoji

7331323

Don't forget, there is also a key NodeCoorPrefix to change the prefix N.

– The Inventor of God
Feb 7 at 16:15

add a comment |

Don't forget, there is also a key NodeCoorPrefix to change the prefix N.

– The Inventor of God
Feb 7 at 16:15

Don't forget, there is also a key NodeCoorPrefix to change the prefix N.

– The Inventor of God
Feb 7 at 16:15

add a comment |

4 Answers
4

active

oldest

votes

Important theory:

pscustom can contain several child macros inside. In our example, the children are psarc and psplot. The only optional arguments that can take effect are those belong to pscustom. More precisely, any arguments defined in the children macros will be discarded.

As a result, the optional argument origin that is needed by psarc must be moved to pscustom. However, psplot put inside pscustom does not need the effect of origin so we must give a reverse translation to make psplot happy!

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

defF{2*cos(x) }

begin{document}

begin{pspicture}[showgrid,saveNodeCoors,algebraic](-4,-4)(4,3)

pstGeonode(.3,-1){O}(2,.5){M}

pstCircleOA{O}{M}

psplot{-3}{3}{F}

pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pscustom[fillstyle=solid,fillcolor=red,opacity=0.25,origin=O]

{   

    psarc[linecolor=red](O){!N-M.y N-O.y sub 2 exp N-M.x N-O.x sub 2 exp add sqrt}{(N0)}{(N1)}

    translate(!N-O.x neg N-O.y neg)

    psplot{N-N1.x}{N-N0.x}{F}

}

end{pspicture}

end{document}

enter image description here

edited Feb 2 at 1:21

answered Feb 2 at 1:06

The Inventor of God

4,95611142

Done. This question was closed by me. :-) Thank for your PostScript code..

– chishimutoji
Feb 7 at 9:04

add a comment |

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

defF{2*cos(x)}

begin{document}

begin{pspicture}[showgrid,algebraic](-4,-4)(4,3)

    pstGeonode(.3,-1){O}(2,.5){M}

    pstCircleOA{O}{M}

    psplot{-3}{3}{F}

    pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

    pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

    psclip{pscustom{psarcAB(O)(N0)(N1)psplot{-2}{2}{F}}}

      psframe[fillstyle=solid,fillcolor=red,opacity=0.25](-2,0)(2,2)

    endpsclip

end{pspicture}

end{document}

enter image description here

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

begin{document}

    begin{pspicture}(-3,-1.5)(3,4)

    defF{x^3/3 - x + 2/3 }

    psaxes{->}(0,0)(-3,-1)(3,4)    

    pstGeonode[PosAngle={-45,0}](0,-.2){N}(2.5,1){M}   

    psset{algebraic}

    pstInterFL{F}{N}{M}{2}{A}

    pstInterFL[PosAngle=90]{F}{N}{M}{0}{A1}

    pstInterFL{F}{N}{M}{-2}{A2}

    pscustom[fillstyle=solid,fillcolor=red,linestyle=none,opacity=.4]{%

        psplot{A.x}{A1.x}[psGetNodeCenter{A} psGetNodeCenter{A1}]{F}}

    pscustom[fillstyle=solid,fillcolor=yellow,linestyle=none,opacity=.4]{%

        psplot{A1.x}{A2.x}[psGetNodeCenter{A1} psGetNodeCenter{A2}]{F}}

    pstLineAB[nodesepA=-3cm]{N}{M}

    psdots[fillcolor=white,fillstyle=solid](A1)(A2)(M)

    psplot[algebraic]{-2.5}{2.5}{F}

    end{pspicture}

end{document}

enter image description here

edited Feb 2 at 8:47

answered Feb 2 at 8:18

Herbert

276k25419732

Can you compile it with usepackage{auto-pst-pdf} and pdflatex.exe -shell-escape -interaction=nonstopmode %.tex ? Does it work normally?

– chishimutoji
Feb 2 at 9:43

1

Using auto-pst-pdf and standalone makes no sense!

– Herbert
Feb 2 at 12:20

<Off topic> I edited my question. Can you see this problem at tex.stackexchange.com/questions/472492/… . Sorry if I make you being uncomfortable....

– chishimutoji
Feb 3 at 2:28

That is an experimental feature and works only in some special cases!

– Herbert
Feb 3 at 9:27

add a comment |

documentclass[border=15pt]{standalone}

usepackage{pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid](-5.5,-4.5)(5.5,5.5)

psset{algebraic,plotstyle=curve,linewidth=1.2pt}

psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5) 

parametricplot{-4}{4}{t^2-3| t}

psplot{-3}{4}{x^2/2-3}

pstInterFF{x^2/2-3}{sqrt(x+3)}{-2.9}{C1}

pstInterFF{x^2/2-3}{-sqrt(x+3)}{-2.9}{C2}

pstInterFF{x^2/2-3}{-sqrt(x+3)}{1}{C3}

pstTriangleOC[linestyle=dotted]{C1}{C2}{C3}

pstInterFC{x^2/2-3}{OC_O}{C3}{3}{C4}

pscustom[fillstyle=solid,fillcolor=blue!50,liftpen=2]{%

  psplot{C3.x}{C4.x}[psGetNodeCenter{C3}psGetNodeCenter{C4}]{x^2/2-3}

  psarcnAB(OC_O)(C4)(C3) 

}

end{pspicture*}

end{document}

enter image description here

answered Feb 5 at 13:54

Herbert

276k25419732

Yes, I see. Both(pst-intersect and pstInterFF) and psarc(n)AB are very wonderful. Thanks. And if I replace psclip...endpsclip by pscustom... (since your code). It works!

– chishimutoji
Feb 5 at 14:07

stop these endless expanding of your original question! Ask a new one!

– Herbert
Feb 7 at 7:19

Done. This question was closed by me. :-) Thank for -sqrt(x+3).

– chishimutoji
Feb 7 at 9:03

add a comment |

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid,saveNodeCoors](-5.5,-4.5)(5.5,5.5)

    psset{algebraic,plotstyle=curve,linewidth=1.2pt}

    psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



    pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

    pssavepath{B}{psplot{-4}{4}{x^2/2-3}}



    psintersect[name=C,showpoints]{A}{B}



    pstTriangleOC[linestyle=none]{C1}{C2}{C3}

    pnode(OC_O){O}



    psarcAB(O)(C3)(C4)

    uput[0](C1){$C1$}

    uput[0](C2){$C2$}

    uput[0](C3){$C3$}

    uput[0](C4){$C4$}





   pscustom[fillstyle=solid,fillcolor=blue!50,origin=O]{%

            psarc(O){!N-C3.y N-O.y sub 2 exp N-C3.x N-O.x sub 2 exp add sqrt}{(C3)}{(C4)}

            translate(!N-O.x neg N-O.y neg)

            psplot{N-C4.x}{N-C3.x}{x^2/2-3}}



 end{pspicture*}

end{document}

enter image description here

answered Feb 5 at 13:17

The Inventor of God

4,95611142

add a comment |

Your Answer

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "85"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});

}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2ftex.stackexchange.com%2fquestions%2f472902%2fhow-to-fill-color-between-function-and-circle-in-the-following%23new-answer', 'question_page');
}
);

Post as a guest

Name

Required, but never shown

4 Answers
4

active

oldest

votes

4 Answers
4

active

oldest

votes

Important theory:

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

defF{2*cos(x) }

begin{document}

begin{pspicture}[showgrid,saveNodeCoors,algebraic](-4,-4)(4,3)

pstGeonode(.3,-1){O}(2,.5){M}

pstCircleOA{O}{M}

psplot{-3}{3}{F}

pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pscustom[fillstyle=solid,fillcolor=red,opacity=0.25,origin=O]

{   

    psarc[linecolor=red](O){!N-M.y N-O.y sub 2 exp N-M.x N-O.x sub 2 exp add sqrt}{(N0)}{(N1)}

    translate(!N-O.x neg N-O.y neg)

    psplot{N-N1.x}{N-N0.x}{F}

}

end{pspicture}

end{document}

enter image description here

edited Feb 2 at 1:21

answered Feb 2 at 1:06

The Inventor of God

4,95611142

Done. This question was closed by me. :-) Thank for your PostScript code..

– chishimutoji
Feb 7 at 9:04

add a comment |

Important theory:

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

defF{2*cos(x) }

begin{document}

begin{pspicture}[showgrid,saveNodeCoors,algebraic](-4,-4)(4,3)

pstGeonode(.3,-1){O}(2,.5){M}

pstCircleOA{O}{M}

psplot{-3}{3}{F}

pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pscustom[fillstyle=solid,fillcolor=red,opacity=0.25,origin=O]

{   

    psarc[linecolor=red](O){!N-M.y N-O.y sub 2 exp N-M.x N-O.x sub 2 exp add sqrt}{(N0)}{(N1)}

    translate(!N-O.x neg N-O.y neg)

    psplot{N-N1.x}{N-N0.x}{F}

}

end{pspicture}

end{document}

enter image description here

edited Feb 2 at 1:21

answered Feb 2 at 1:06

The Inventor of God

4,95611142

Done. This question was closed by me. :-) Thank for your PostScript code..

– chishimutoji
Feb 7 at 9:04

add a comment |

Important theory:

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

defF{2*cos(x) }

begin{document}

begin{pspicture}[showgrid,saveNodeCoors,algebraic](-4,-4)(4,3)

pstGeonode(.3,-1){O}(2,.5){M}

pstCircleOA{O}{M}

psplot{-3}{3}{F}

pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pscustom[fillstyle=solid,fillcolor=red,opacity=0.25,origin=O]

{   

    psarc[linecolor=red](O){!N-M.y N-O.y sub 2 exp N-M.x N-O.x sub 2 exp add sqrt}{(N0)}{(N1)}

    translate(!N-O.x neg N-O.y neg)

    psplot{N-N1.x}{N-N0.x}{F}

}

end{pspicture}

end{document}

enter image description here

edited Feb 2 at 1:21

answered Feb 2 at 1:06

The Inventor of God

4,95611142

Important theory:

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

defF{2*cos(x) }

begin{document}

begin{pspicture}[showgrid,saveNodeCoors,algebraic](-4,-4)(4,3)

pstGeonode(.3,-1){O}(2,.5){M}

pstCircleOA{O}{M}

psplot{-3}{3}{F}

pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

pscustom[fillstyle=solid,fillcolor=red,opacity=0.25,origin=O]

{   

    psarc[linecolor=red](O){!N-M.y N-O.y sub 2 exp N-M.x N-O.x sub 2 exp add sqrt}{(N0)}{(N1)}

    translate(!N-O.x neg N-O.y neg)

    psplot{N-N1.x}{N-N0.x}{F}

}

end{pspicture}

end{document}

enter image description here

edited Feb 2 at 1:21

answered Feb 2 at 1:06

The Inventor of God

4,95611142

edited Feb 2 at 1:21

answered Feb 2 at 1:06

The Inventor of God

4,95611142

answered Feb 2 at 1:06

The Inventor of God

4,95611142

answered Feb 2 at 1:06

The Inventor of God

4,95611142

Done. This question was closed by me. :-) Thank for your PostScript code..

– chishimutoji
Feb 7 at 9:04

add a comment |

Done. This question was closed by me. :-) Thank for your PostScript code..

– chishimutoji
Feb 7 at 9:04

Done. This question was closed by me. :-) Thank for your PostScript code..

– chishimutoji
Feb 7 at 9:04

add a comment |

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

defF{2*cos(x)}

begin{document}

begin{pspicture}[showgrid,algebraic](-4,-4)(4,3)

    pstGeonode(.3,-1){O}(2,.5){M}

    pstCircleOA{O}{M}

    psplot{-3}{3}{F}

    pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

    pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

    psclip{pscustom{psarcAB(O)(N0)(N1)psplot{-2}{2}{F}}}

      psframe[fillstyle=solid,fillcolor=red,opacity=0.25](-2,0)(2,2)

    endpsclip

end{pspicture}

end{document}

enter image description here

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

begin{document}

    begin{pspicture}(-3,-1.5)(3,4)

    defF{x^3/3 - x + 2/3 }

    psaxes{->}(0,0)(-3,-1)(3,4)    

    pstGeonode[PosAngle={-45,0}](0,-.2){N}(2.5,1){M}   

    psset{algebraic}

    pstInterFL{F}{N}{M}{2}{A}

    pstInterFL[PosAngle=90]{F}{N}{M}{0}{A1}

    pstInterFL{F}{N}{M}{-2}{A2}

    pscustom[fillstyle=solid,fillcolor=red,linestyle=none,opacity=.4]{%

        psplot{A.x}{A1.x}[psGetNodeCenter{A} psGetNodeCenter{A1}]{F}}

    pscustom[fillstyle=solid,fillcolor=yellow,linestyle=none,opacity=.4]{%

        psplot{A1.x}{A2.x}[psGetNodeCenter{A1} psGetNodeCenter{A2}]{F}}

    pstLineAB[nodesepA=-3cm]{N}{M}

    psdots[fillcolor=white,fillstyle=solid](A1)(A2)(M)

    psplot[algebraic]{-2.5}{2.5}{F}

    end{pspicture}

end{document}

enter image description here

edited Feb 2 at 8:47

answered Feb 2 at 8:18

Herbert

276k25419732

Can you compile it with usepackage{auto-pst-pdf} and pdflatex.exe -shell-escape -interaction=nonstopmode %.tex ? Does it work normally?

– chishimutoji
Feb 2 at 9:43

1

Using auto-pst-pdf and standalone makes no sense!

– Herbert
Feb 2 at 12:20

<Off topic> I edited my question. Can you see this problem at tex.stackexchange.com/questions/472492/… . Sorry if I make you being uncomfortable....

– chishimutoji
Feb 3 at 2:28

That is an experimental feature and works only in some special cases!

– Herbert
Feb 3 at 9:27

add a comment |

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

defF{2*cos(x)}

begin{document}

begin{pspicture}[showgrid,algebraic](-4,-4)(4,3)

    pstGeonode(.3,-1){O}(2,.5){M}

    pstCircleOA{O}{M}

    psplot{-3}{3}{F}

    pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

    pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

    psclip{pscustom{psarcAB(O)(N0)(N1)psplot{-2}{2}{F}}}

      psframe[fillstyle=solid,fillcolor=red,opacity=0.25](-2,0)(2,2)

    endpsclip

end{pspicture}

end{document}

enter image description here

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

begin{document}

    begin{pspicture}(-3,-1.5)(3,4)

    defF{x^3/3 - x + 2/3 }

    psaxes{->}(0,0)(-3,-1)(3,4)    

    pstGeonode[PosAngle={-45,0}](0,-.2){N}(2.5,1){M}   

    psset{algebraic}

    pstInterFL{F}{N}{M}{2}{A}

    pstInterFL[PosAngle=90]{F}{N}{M}{0}{A1}

    pstInterFL{F}{N}{M}{-2}{A2}

    pscustom[fillstyle=solid,fillcolor=red,linestyle=none,opacity=.4]{%

        psplot{A.x}{A1.x}[psGetNodeCenter{A} psGetNodeCenter{A1}]{F}}

    pscustom[fillstyle=solid,fillcolor=yellow,linestyle=none,opacity=.4]{%

        psplot{A1.x}{A2.x}[psGetNodeCenter{A1} psGetNodeCenter{A2}]{F}}

    pstLineAB[nodesepA=-3cm]{N}{M}

    psdots[fillcolor=white,fillstyle=solid](A1)(A2)(M)

    psplot[algebraic]{-2.5}{2.5}{F}

    end{pspicture}

end{document}

enter image description here

edited Feb 2 at 8:47

answered Feb 2 at 8:18

Herbert

276k25419732

Can you compile it with usepackage{auto-pst-pdf} and pdflatex.exe -shell-escape -interaction=nonstopmode %.tex ? Does it work normally?

– chishimutoji
Feb 2 at 9:43

1

Using auto-pst-pdf and standalone makes no sense!

– Herbert
Feb 2 at 12:20

<Off topic> I edited my question. Can you see this problem at tex.stackexchange.com/questions/472492/… . Sorry if I make you being uncomfortable....

– chishimutoji
Feb 3 at 2:28

That is an experimental feature and works only in some special cases!

– Herbert
Feb 3 at 9:27

add a comment |

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

defF{2*cos(x)}

begin{document}

begin{pspicture}[showgrid,algebraic](-4,-4)(4,3)

    pstGeonode(.3,-1){O}(2,.5){M}

    pstCircleOA{O}{M}

    psplot{-3}{3}{F}

    pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

    pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

    psclip{pscustom{psarcAB(O)(N0)(N1)psplot{-2}{2}{F}}}

      psframe[fillstyle=solid,fillcolor=red,opacity=0.25](-2,0)(2,2)

    endpsclip

end{pspicture}

end{document}

enter image description here

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

begin{document}

    begin{pspicture}(-3,-1.5)(3,4)

    defF{x^3/3 - x + 2/3 }

    psaxes{->}(0,0)(-3,-1)(3,4)    

    pstGeonode[PosAngle={-45,0}](0,-.2){N}(2.5,1){M}   

    psset{algebraic}

    pstInterFL{F}{N}{M}{2}{A}

    pstInterFL[PosAngle=90]{F}{N}{M}{0}{A1}

    pstInterFL{F}{N}{M}{-2}{A2}

    pscustom[fillstyle=solid,fillcolor=red,linestyle=none,opacity=.4]{%

        psplot{A.x}{A1.x}[psGetNodeCenter{A} psGetNodeCenter{A1}]{F}}

    pscustom[fillstyle=solid,fillcolor=yellow,linestyle=none,opacity=.4]{%

        psplot{A1.x}{A2.x}[psGetNodeCenter{A1} psGetNodeCenter{A2}]{F}}

    pstLineAB[nodesepA=-3cm]{N}{M}

    psdots[fillcolor=white,fillstyle=solid](A1)(A2)(M)

    psplot[algebraic]{-2.5}{2.5}{F}

    end{pspicture}

end{document}

enter image description here

edited Feb 2 at 8:47

answered Feb 2 at 8:18

Herbert

276k25419732

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

defF{2*cos(x)}

begin{document}

begin{pspicture}[showgrid,algebraic](-4,-4)(4,3)

    pstGeonode(.3,-1){O}(2,.5){M}

    pstCircleOA{O}{M}

    psplot{-3}{3}{F}

    pstInterFC[PosAngle=45]{F}{O}{M}{1}{N0}

    pstInterFC[PosAngle=135]{F}{O}{M}{-1}{N1}

    psclip{pscustom{psarcAB(O)(N0)(N1)psplot{-2}{2}{F}}}

      psframe[fillstyle=solid,fillcolor=red,opacity=0.25](-2,0)(2,2)

    endpsclip

end{pspicture}

end{document}

enter image description here

documentclass[border=15pt,pstricks,12pt]{standalone}

usepackage{pst-eucl,pst-plot}

begin{document}

    begin{pspicture}(-3,-1.5)(3,4)

    defF{x^3/3 - x + 2/3 }

    psaxes{->}(0,0)(-3,-1)(3,4)    

    pstGeonode[PosAngle={-45,0}](0,-.2){N}(2.5,1){M}   

    psset{algebraic}

    pstInterFL{F}{N}{M}{2}{A}

    pstInterFL[PosAngle=90]{F}{N}{M}{0}{A1}

    pstInterFL{F}{N}{M}{-2}{A2}

    pscustom[fillstyle=solid,fillcolor=red,linestyle=none,opacity=.4]{%

        psplot{A.x}{A1.x}[psGetNodeCenter{A} psGetNodeCenter{A1}]{F}}

    pscustom[fillstyle=solid,fillcolor=yellow,linestyle=none,opacity=.4]{%

        psplot{A1.x}{A2.x}[psGetNodeCenter{A1} psGetNodeCenter{A2}]{F}}

    pstLineAB[nodesepA=-3cm]{N}{M}

    psdots[fillcolor=white,fillstyle=solid](A1)(A2)(M)

    psplot[algebraic]{-2.5}{2.5}{F}

    end{pspicture}

end{document}

enter image description here

edited Feb 2 at 8:47

answered Feb 2 at 8:18

Herbert

276k25419732

edited Feb 2 at 8:47

answered Feb 2 at 8:18

Herbert

276k25419732

answered Feb 2 at 8:18

Herbert

276k25419732

answered Feb 2 at 8:18

Herbert

276k25419732

Can you compile it with usepackage{auto-pst-pdf} and pdflatex.exe -shell-escape -interaction=nonstopmode %.tex ? Does it work normally?

– chishimutoji
Feb 2 at 9:43

1

Using auto-pst-pdf and standalone makes no sense!

– Herbert
Feb 2 at 12:20

<Off topic> I edited my question. Can you see this problem at tex.stackexchange.com/questions/472492/… . Sorry if I make you being uncomfortable....

– chishimutoji
Feb 3 at 2:28

That is an experimental feature and works only in some special cases!

– Herbert
Feb 3 at 9:27

add a comment |

Can you compile it with usepackage{auto-pst-pdf} and pdflatex.exe -shell-escape -interaction=nonstopmode %.tex ? Does it work normally?

– chishimutoji
Feb 2 at 9:43

1

Using auto-pst-pdf and standalone makes no sense!

– Herbert
Feb 2 at 12:20

<Off topic> I edited my question. Can you see this problem at tex.stackexchange.com/questions/472492/… . Sorry if I make you being uncomfortable....

– chishimutoji
Feb 3 at 2:28

That is an experimental feature and works only in some special cases!

– Herbert
Feb 3 at 9:27

Can you compile it with usepackage{auto-pst-pdf} and pdflatex.exe -shell-escape -interaction=nonstopmode %.tex ? Does it work normally?

– chishimutoji
Feb 2 at 9:43

Using auto-pst-pdf and standalone makes no sense!

– Herbert
Feb 2 at 12:20

<Off topic> I edited my question. Can you see this problem at tex.stackexchange.com/questions/472492/… . Sorry if I make you being uncomfortable....

– chishimutoji
Feb 3 at 2:28

That is an experimental feature and works only in some special cases!

– Herbert
Feb 3 at 9:27

add a comment |

documentclass[border=15pt]{standalone}

usepackage{pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid](-5.5,-4.5)(5.5,5.5)

psset{algebraic,plotstyle=curve,linewidth=1.2pt}

psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5) 

parametricplot{-4}{4}{t^2-3| t}

psplot{-3}{4}{x^2/2-3}

pstInterFF{x^2/2-3}{sqrt(x+3)}{-2.9}{C1}

pstInterFF{x^2/2-3}{-sqrt(x+3)}{-2.9}{C2}

pstInterFF{x^2/2-3}{-sqrt(x+3)}{1}{C3}

pstTriangleOC[linestyle=dotted]{C1}{C2}{C3}

pstInterFC{x^2/2-3}{OC_O}{C3}{3}{C4}

pscustom[fillstyle=solid,fillcolor=blue!50,liftpen=2]{%

  psplot{C3.x}{C4.x}[psGetNodeCenter{C3}psGetNodeCenter{C4}]{x^2/2-3}

  psarcnAB(OC_O)(C4)(C3) 

}

end{pspicture*}

end{document}

enter image description here

answered Feb 5 at 13:54

Herbert

276k25419732

Yes, I see. Both(pst-intersect and pstInterFF) and psarc(n)AB are very wonderful. Thanks. And if I replace psclip...endpsclip by pscustom... (since your code). It works!

– chishimutoji
Feb 5 at 14:07

stop these endless expanding of your original question! Ask a new one!

– Herbert
Feb 7 at 7:19

Done. This question was closed by me. :-) Thank for -sqrt(x+3).

– chishimutoji
Feb 7 at 9:03

add a comment |

documentclass[border=15pt]{standalone}

usepackage{pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid](-5.5,-4.5)(5.5,5.5)

psset{algebraic,plotstyle=curve,linewidth=1.2pt}

psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5) 

parametricplot{-4}{4}{t^2-3| t}

psplot{-3}{4}{x^2/2-3}

pstInterFF{x^2/2-3}{sqrt(x+3)}{-2.9}{C1}

pstInterFF{x^2/2-3}{-sqrt(x+3)}{-2.9}{C2}

pstInterFF{x^2/2-3}{-sqrt(x+3)}{1}{C3}

pstTriangleOC[linestyle=dotted]{C1}{C2}{C3}

pstInterFC{x^2/2-3}{OC_O}{C3}{3}{C4}

pscustom[fillstyle=solid,fillcolor=blue!50,liftpen=2]{%

  psplot{C3.x}{C4.x}[psGetNodeCenter{C3}psGetNodeCenter{C4}]{x^2/2-3}

  psarcnAB(OC_O)(C4)(C3) 

}

end{pspicture*}

end{document}

enter image description here

answered Feb 5 at 13:54

Herbert

276k25419732

Yes, I see. Both(pst-intersect and pstInterFF) and psarc(n)AB are very wonderful. Thanks. And if I replace psclip...endpsclip by pscustom... (since your code). It works!

– chishimutoji
Feb 5 at 14:07

stop these endless expanding of your original question! Ask a new one!

– Herbert
Feb 7 at 7:19

Done. This question was closed by me. :-) Thank for -sqrt(x+3).

– chishimutoji
Feb 7 at 9:03

add a comment |

documentclass[border=15pt]{standalone}

usepackage{pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid](-5.5,-4.5)(5.5,5.5)

psset{algebraic,plotstyle=curve,linewidth=1.2pt}

psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5) 

parametricplot{-4}{4}{t^2-3| t}

psplot{-3}{4}{x^2/2-3}

pstInterFF{x^2/2-3}{sqrt(x+3)}{-2.9}{C1}

pstInterFF{x^2/2-3}{-sqrt(x+3)}{-2.9}{C2}

pstInterFF{x^2/2-3}{-sqrt(x+3)}{1}{C3}

pstTriangleOC[linestyle=dotted]{C1}{C2}{C3}

pstInterFC{x^2/2-3}{OC_O}{C3}{3}{C4}

pscustom[fillstyle=solid,fillcolor=blue!50,liftpen=2]{%

  psplot{C3.x}{C4.x}[psGetNodeCenter{C3}psGetNodeCenter{C4}]{x^2/2-3}

  psarcnAB(OC_O)(C4)(C3) 

}

end{pspicture*}

end{document}

enter image description here

answered Feb 5 at 13:54

Herbert

276k25419732

documentclass[border=15pt]{standalone}

usepackage{pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid](-5.5,-4.5)(5.5,5.5)

psset{algebraic,plotstyle=curve,linewidth=1.2pt}

psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5) 

parametricplot{-4}{4}{t^2-3| t}

psplot{-3}{4}{x^2/2-3}

pstInterFF{x^2/2-3}{sqrt(x+3)}{-2.9}{C1}

pstInterFF{x^2/2-3}{-sqrt(x+3)}{-2.9}{C2}

pstInterFF{x^2/2-3}{-sqrt(x+3)}{1}{C3}

pstTriangleOC[linestyle=dotted]{C1}{C2}{C3}

pstInterFC{x^2/2-3}{OC_O}{C3}{3}{C4}

pscustom[fillstyle=solid,fillcolor=blue!50,liftpen=2]{%

  psplot{C3.x}{C4.x}[psGetNodeCenter{C3}psGetNodeCenter{C4}]{x^2/2-3}

  psarcnAB(OC_O)(C4)(C3) 

}

end{pspicture*}

end{document}

enter image description here

answered Feb 5 at 13:54

Herbert

276k25419732

answered Feb 5 at 13:54

Herbert

276k25419732

answered Feb 5 at 13:54

Herbert

276k25419732

answered Feb 5 at 13:54

Herbert

276k25419732

Yes, I see. Both(pst-intersect and pstInterFF) and psarc(n)AB are very wonderful. Thanks. And if I replace psclip...endpsclip by pscustom... (since your code). It works!

– chishimutoji
Feb 5 at 14:07

stop these endless expanding of your original question! Ask a new one!

– Herbert
Feb 7 at 7:19

Done. This question was closed by me. :-) Thank for -sqrt(x+3).

– chishimutoji
Feb 7 at 9:03

add a comment |

Yes, I see. Both(pst-intersect and pstInterFF) and psarc(n)AB are very wonderful. Thanks. And if I replace psclip...endpsclip by pscustom... (since your code). It works!

– chishimutoji
Feb 5 at 14:07

stop these endless expanding of your original question! Ask a new one!

– Herbert
Feb 7 at 7:19

Done. This question was closed by me. :-) Thank for -sqrt(x+3).

– chishimutoji
Feb 7 at 9:03

Yes, I see. Both(pst-intersect and pstInterFF) and psarc(n)AB are very wonderful. Thanks. And if I replace psclip...endpsclip by pscustom... (since your code). It works!

– chishimutoji
Feb 5 at 14:07

stop these endless expanding of your original question! Ask a new one!

– Herbert
Feb 7 at 7:19

Done. This question was closed by me. :-) Thank for -sqrt(x+3).

– chishimutoji
Feb 7 at 9:03

add a comment |

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid,saveNodeCoors](-5.5,-4.5)(5.5,5.5)

    psset{algebraic,plotstyle=curve,linewidth=1.2pt}

    psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



    pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

    pssavepath{B}{psplot{-4}{4}{x^2/2-3}}



    psintersect[name=C,showpoints]{A}{B}



    pstTriangleOC[linestyle=none]{C1}{C2}{C3}

    pnode(OC_O){O}



    psarcAB(O)(C3)(C4)

    uput[0](C1){$C1$}

    uput[0](C2){$C2$}

    uput[0](C3){$C3$}

    uput[0](C4){$C4$}





   pscustom[fillstyle=solid,fillcolor=blue!50,origin=O]{%

            psarc(O){!N-C3.y N-O.y sub 2 exp N-C3.x N-O.x sub 2 exp add sqrt}{(C3)}{(C4)}

            translate(!N-O.x neg N-O.y neg)

            psplot{N-C4.x}{N-C3.x}{x^2/2-3}}



 end{pspicture*}

end{document}

enter image description here

answered Feb 5 at 13:17

The Inventor of God

4,95611142

add a comment |

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid,saveNodeCoors](-5.5,-4.5)(5.5,5.5)

    psset{algebraic,plotstyle=curve,linewidth=1.2pt}

    psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



    pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

    pssavepath{B}{psplot{-4}{4}{x^2/2-3}}



    psintersect[name=C,showpoints]{A}{B}



    pstTriangleOC[linestyle=none]{C1}{C2}{C3}

    pnode(OC_O){O}



    psarcAB(O)(C3)(C4)

    uput[0](C1){$C1$}

    uput[0](C2){$C2$}

    uput[0](C3){$C3$}

    uput[0](C4){$C4$}





   pscustom[fillstyle=solid,fillcolor=blue!50,origin=O]{%

            psarc(O){!N-C3.y N-O.y sub 2 exp N-C3.x N-O.x sub 2 exp add sqrt}{(C3)}{(C4)}

            translate(!N-O.x neg N-O.y neg)

            psplot{N-C4.x}{N-C3.x}{x^2/2-3}}



 end{pspicture*}

end{document}

enter image description here

answered Feb 5 at 13:17

The Inventor of God

4,95611142

add a comment |

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid,saveNodeCoors](-5.5,-4.5)(5.5,5.5)

    psset{algebraic,plotstyle=curve,linewidth=1.2pt}

    psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



    pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

    pssavepath{B}{psplot{-4}{4}{x^2/2-3}}



    psintersect[name=C,showpoints]{A}{B}



    pstTriangleOC[linestyle=none]{C1}{C2}{C3}

    pnode(OC_O){O}



    psarcAB(O)(C3)(C4)

    uput[0](C1){$C1$}

    uput[0](C2){$C2$}

    uput[0](C3){$C3$}

    uput[0](C4){$C4$}





   pscustom[fillstyle=solid,fillcolor=blue!50,origin=O]{%

            psarc(O){!N-C3.y N-O.y sub 2 exp N-C3.x N-O.x sub 2 exp add sqrt}{(C3)}{(C4)}

            translate(!N-O.x neg N-O.y neg)

            psplot{N-C4.x}{N-C3.x}{x^2/2-3}}



 end{pspicture*}

end{document}

enter image description here

answered Feb 5 at 13:17

The Inventor of God

4,95611142

documentclass[border=15pt]{standalone}

usepackage{pst-intersect,pst-plot,pst-eucl}

begin{document}

begin{pspicture*}[showgrid,saveNodeCoors](-5.5,-4.5)(5.5,5.5)

    psset{algebraic,plotstyle=curve,linewidth=1.2pt}

    psaxes[ticks=none,labels=none,linecolor=gray](0,0)(-5.5,-4.5)(5.5,5.5)



    pssavepath{A}{parametricplot{-4}{4}{t^2-3| t}}

    pssavepath{B}{psplot{-4}{4}{x^2/2-3}}



    psintersect[name=C,showpoints]{A}{B}



    pstTriangleOC[linestyle=none]{C1}{C2}{C3}

    pnode(OC_O){O}



    psarcAB(O)(C3)(C4)

    uput[0](C1){$C1$}

    uput[0](C2){$C2$}

    uput[0](C3){$C3$}

    uput[0](C4){$C4$}





   pscustom[fillstyle=solid,fillcolor=blue!50,origin=O]{%

            psarc(O){!N-C3.y N-O.y sub 2 exp N-C3.x N-O.x sub 2 exp add sqrt}{(C3)}{(C4)}

            translate(!N-O.x neg N-O.y neg)

            psplot{N-C4.x}{N-C3.x}{x^2/2-3}}



 end{pspicture*}

end{document}

enter image description here

answered Feb 5 at 13:17

The Inventor of God

4,95611142

answered Feb 5 at 13:17

The Inventor of God

4,95611142

answered Feb 5 at 13:17

The Inventor of God

4,95611142

answered Feb 5 at 13:17

The Inventor of God

4,95611142

add a comment |

draft saved

draft discarded

Thanks for contributing an answer to TeX - LaTeX Stack Exchange!

Please be sure to answer the question. Provide details and share your research!

But avoid …

Asking for help, clarification, or responding to other answers.

Making statements based on opinion; back them up with references or personal experience.

To learn more, see our tips on writing great answers.

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Post as a guest

Name

Required, but never shown

Name

Required, but never shown

Name

Required, but never shown

This page is only for reference, If you need detailed information, please check here

搜尋此網誌

Kdtyjb