File:Slanted circle.png
No higher resolution available.
Slanted_circle.png (322 × 330 pixels, file size: 6 KB, MIME type: image/png)
 | This is a file from the Wikimedia Commons. Information from its description page there is shown below. Commons is a freely licensed media file repository. You can help. |
Summary
| Description |
English: Mathematica commands:
In[132]:=
<<Graphics`Shapes`
In[133]:=
Solve[{x^2+y^2+z^2\[Equal]1,x+y+z\[Equal]0},{x,y}]
Out[133]=
\!\({{x \[Rule] 1\/2\ \((\(-z\) - \@\(2 - 3\ z\^2\))\),
y \[Rule] 1\/2\ \((\(-z\) + \@\(2 - 3\ z\^2\))\)}, {x \[Rule]
1\/2\ \((\(-z\) + \@\(2 - 3\ z\^2\))\),
y \[Rule] 1\/2\ \((\(-z\) - \@\(2 - 3\ z\^2\))\)}}\)
In[134]:=
\!\(\(p1[z_] := {1\/2\ \((\(-z\) - \@\(2 - 3\ z\^2\))\),
1\/2\ \((\(-z\) + \@\(2 - 3\ z\^2\))\), z};\)\[IndentingNewLine]
\(p2[z_] := {1\/2\ \((\(-z\) + \@\(2 - 3\ z\^2\))\),
1\/2\ \((\(-z\) - \@\(2 - 3\ z\^2\))\), z};\)\[IndentingNewLine]
\)
In[136]:=
\!\(\(Show[{\[IndentingNewLine]WireFrame[
Graphics3D[
Sphere[1, 20,
20]]], \[IndentingNewLine]Graphics3D[{\[IndentingNewLine]\
RGBColor[1, 0, 0], \[IndentingNewLine]Thickness[
0.009], \[IndentingNewLine]Line[
Table[p1[z], {z, \(-\@\(2\/3\)\), \@\(2\/3\),
0.01}]], \[IndentingNewLine]Line[
Table[p2[z], {z, \(-\@\(2\/3\)\), \@\(2\/3\),
0.01}]], \[IndentingNewLine]Text[
StyleForm["\<x+y+z==0\>", Section,
FontColor \[Rule] RGBColor[1, 0, 0]], {1, 0.2, 1}, {\(-1\),
0}]}]\[IndentingNewLine]}, Boxed \[Rule] False,
Axes \[Rule] True, ViewPoint -> {8.043, \ \(-2.956\), \ 1.784},
Boxed \[Rule] True,
AxesEdge \[Rule] {{1, \(-1\)}, {1, \(-1\)}, {1, 1}},
AxesLabel \[Rule] {StyleForm[x, Section], StyleForm[y, Section],
StyleForm[z, Section]},
Ticks \[Rule] {{\(-1\), \(- .5\), 0, .5, 1}, {\(-1\), \(- .5\),
0, .5, 1}, {\(-1\), \(- .5\), 0, .5, 1}},
PlotLabel \[Rule]
StyleForm[TraditionalForm[x^2 + y^2 + z^2 \[Equal] 1]\ , Section,
FontColor -> RGBColor[0, 0, 0]]]\ ;\)\)
|
| Date | 9 May 2007 (original upload date) |
| Source | Transferred from en.wikipedia to Commons by Common Good using CommonsHelper. |
| Author | Jakob.scholbach at English Wikipedia |
|
This math image could be re-created using vector graphics as an SVG file. This has several advantages; see Commons:Media for cleanup for more information. If an SVG form of this image is available, please upload it and afterwards replace this template with
{{vector version available|new image name}}.
It is recommended to name the SVG file “Slanted circle.svg”—then the template Vector version available (or Vva) does not need the new image name parameter. |
Licensing
Jakob.scholbach at the English Wikipedia, the copyright holder of this work, hereby publishes it under the following license:
|
Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of the license is included in the section entitled GNU Free Documentation License. |
  
|
This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license. | |
| Attribution: Jakob.scholbach at the English Wikipedia | ||
| ||
| This licensing tag was added to this file as part of the GFDL licensing update. |
Original upload log
The original description page was here. All following user names refer to en.wikipedia.
- 2007-05-09 04:42 Jakob.scholbach 322×330× (6065 bytes) <tt><nowiki> In[132]:= <<Graphics`Shapes` In[133]:= Solve[{x^2+y^2+z^2\[Equal]1,x+y+z\[Equal]0},{x,y}] Out[133]= \!\({{x \[Rule] 1\/2\ \((\(-z\) - \@\(2 - 3\ z\^2\))\), y \[Rule] 1\/2\ \((\(-z\) + \@\(2 - 3\ z\^2\))\)}, {x \[Rule] 1\/2\ \(
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 19:58, 12 January 2010 | | 322 × 330 (6 KB) | File Upload Bot (Magnus Manske) | {{BotMoveToCommons|en.wikipedia|year={{subst:CURRENTYEAR}}|month={{subst:CURRENTMONTHNAME}}|day={{subst:CURRENTDAY}}}} {{Information |Description={{en|Mathematica commands: <pre> In[132]:= <<Graphics`Shapes` In[133]:= Solve[{x^2+y^2+z^2\[Equal]1,x+y+z\[ |
File usage
The following page uses this file:
Global file usage
The following other wikis use this file:
- Usage on ar.wikipedia.org
- Usage on ast.wikipedia.org
- Usage on bn.wikipedia.org
- Usage on ca.wikipedia.org
- Usage on de.wikipedia.org
- Usage on el.wikipedia.org
- Usage on fa.wikipedia.org
- Usage on fa.wikibooks.org
- Usage on id.wikipedia.org
- Usage on ko.wikipedia.org
- Usage on sl.wikipedia.org
- Usage on th.wikipedia.org
- Usage on www.wikidata.org
- Usage on zh.wikipedia.org
