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?

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 11 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 11 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 11 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 11 mins ago

asked Feb 1 at 15:52

chishimutoji

7331323

edited 11 mins ago

asked Feb 1 at 15:52

chishimutoji

7331323

edited 11 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

搜尋此網誌

Mrthfx