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

How could a planet have erratic days?

What is this cable/device?

Where does the bonus feat in the cleric starting package come from?

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

What is Cash Advance APR?

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

Multiplicative persistence

Is it safe to use olive oil to clean the ear wax?

Problem with TransformedDistribution

How much character growth crosses the line into breaking the character

Why did the EU agree to delay the Brexit deadline?

What does "Scientists rise up against statistical significance" mean? (Comment in Nature)

Biological Blimps: Propulsion

If a character has darkvision, can they see through an area of nonmagical darkness filled with lightly obscuring gas?

Is there a name for this algorithm to calculate the concentration of a mixture of two solutions containing the same solute?

Lowest total scrabble score

Why did the Mercure fail?

dpdt switch to spst switch

Offered money to buy a house, seller is asking for more to cover gap between their listing and mortgage owed

Why can Carol Danvers change her suit colours in the first place?

Delivering sarcasm

Why does the Sun have different day lengths, but not the gas giants?

What does chmod -u do?

Is there any references on the tensor product of presentable (1-)categories?



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


How to use fraction for PSTricks's coordinates?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?How to combine three animations as the following example?













5















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







share|improve this question

























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

    – The Inventor of God
    Feb 7 at 16:15
















5















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







share|improve this question

























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

    – The Inventor of God
    Feb 7 at 16:15














5












5








5








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







share|improve this question
















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




pstricks






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 11 mins ago







chishimutoji

















asked Feb 1 at 15:52









chishimutojichishimutoji

7331323




7331323













  • 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

















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










4 Answers
4






active

oldest

votes


















3














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






share|improve this answer


























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

    – chishimutoji
    Feb 7 at 9:04



















4














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






share|improve this answer


























  • 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



















3














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






share|improve this answer
























  • 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



















2














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






share|improve this answer























    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


















    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















    Required, but never shown

























    4 Answers
    4






    active

    oldest

    votes








    4 Answers
    4






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes









    3














    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






    share|improve this answer


























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

      – chishimutoji
      Feb 7 at 9:04
















    3














    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






    share|improve this answer


























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

      – chishimutoji
      Feb 7 at 9:04














    3












    3








    3







    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






    share|improve this answer















    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







    share|improve this answer














    share|improve this answer



    share|improve this answer








    edited Feb 2 at 1:21

























    answered Feb 2 at 1:06









    The Inventor of GodThe Inventor of God

    4,95611142




    4,95611142













    • 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

















    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











    4














    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






    share|improve this answer


























    • 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
















    4














    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






    share|improve this answer


























    • 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














    4












    4








    4







    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






    share|improve this answer















    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







    share|improve this answer














    share|improve this answer



    share|improve this answer








    edited Feb 2 at 8:47

























    answered Feb 2 at 8:18









    HerbertHerbert

    276k25419732




    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



















    • 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





    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




    1





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

    – Herbert
    Feb 2 at 12:20





    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







    <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





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

    – Herbert
    Feb 3 at 9:27











    3














    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






    share|improve this answer
























    • 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
















    3














    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






    share|improve this answer
























    • 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














    3












    3








    3







    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






    share|improve this answer













    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







    share|improve this answer












    share|improve this answer



    share|improve this answer










    answered Feb 5 at 13:54









    HerbertHerbert

    276k25419732




    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



















    • 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







    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







    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





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

    – chishimutoji
    Feb 7 at 9:03











    2














    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






    share|improve this answer




























      2














      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






      share|improve this answer


























        2












        2








        2







        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






        share|improve this answer













        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







        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered Feb 5 at 13:17









        The Inventor of GodThe Inventor of God

        4,95611142




        4,95611142






























            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














            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















            Required, but never shown





















































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown

































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown







            -

            Popular posts from this blog

            Can't compile dgruyter and caption packagesLaTeX templates/packages for writing a patent specificationLatex...

            Image
            Why does Arabsat 6A need a Falcon Heavy to launch Etiquette around loan refinance - decision is going to cost first broker a lot of money What is the PIE reconstruction for word-initial alpha with rough breathing? Is "remove commented out code" correct English? Why do I get two different answers for this counting problem? Blender 2.8 I can't see vertices, edges or faces in edit mode Where does SFDX store details about scratch orgs? 1960's book about a plague that kills all white people How can saying a song's name be a copyright violation? UK: Is there precedent for the governments e-petition site changing the ...
            Read more

            Schneeberg (Smreczany) Bibliografia | Menu...

            Image
            Szczyty w Niemczech paśmieSmreczanyn.p.m.Ochrza Schneeberg Państwo   Niemcy Położenie Bawaria Pasmo Fichtelgebirge Wysokość 1 051 m n.p.m. Położenie na mapie Bawarii Schneeberg Położenie na mapie Niemiec Schneeberg 50°03′N   11°51′E / 50,050000   11,850000 Multimedia w Wikimedia Commons Schneeberg – szczyt w paśmie Smreczany o wysokości 1051 m n.p.m., na zboczach którego znajdują się źródła rzeki Ochrza. Bibliografia | Rainer H. Schmeisser: Der Schneeberg, Beiträge zur Geschichts- und Landeskunde des Fichtelgebirges Nr. 1, Regensburg 1979 This page is only for reference, If you need detailed information, please check here
            Read more

            Hans Bellmer Spis treści Życiorys | Upamiętnienie | Przypisy | Bibliografia | Linki zewnętrzne |...

            Image
            Ludzie związani z III Liceum Ogólnokształcącym im. Adama Mickiewicza w KatowicachNiemieccy rzeźbiarzeNiemieccy malarze współcześniNiemieccy graficyLudzie urodzeni w KatowicachUrodzeni w 1902Zmarli w 1975 13 marca1902Katowicach23 lutego1975Paryżumalarzrzeźbiarzgrafikul. A. Mickiewiczaul. T. KościuszkiWyższej Szkole TechnicznejinstalacjiPaula EluardaBerlinie„tableaux vivants”NiemczechnazistówzdegenerowanąBerlinsurrealistówII wojnie światowejCamp des MillesAix-en-ProvenceParyżuUnicę ZürnPère-Lachaiseul. T. KościuszkiDział Grafiki im. Pawła Stellera Muzeum Historii Katowic2008Muzeum Historii KatowicNatalia KruszynaBerlinie Tablica pamiątkowa z 2008 roku na domu, w którym mieszkał artysta przy ul. T. Kościuszki 47 w Katowicach (2017) Grób Bellmera na cmentarzu Père-Lachaise Tablica pamiątkowa przy Ehrenfelsstraße 8a w Berlinie Budynek, w którym mieszkał artysta przy ul. T. Kościuszki 47 w Katowicach (2017) Hans Bellmer (ur. 13 marca 1902 w Katowicach [1] , zm. 23 lut...
            Read more