File:Slanted circle.png
From Wikimedia Commons, the free media repository
Jump to navigation
Jump to search
Slanted_circle.png (322 × 330 pixels, file size: 6 KB, MIME type: image/png)
File information
Structured data
Captions
Captions
Add a one-line explanation of what this file represents
Summary
[edit]DescriptionSlanted circle.png |
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
[edit]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.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue |
![]() ![]() ![]() |
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.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue |
Original upload log
[edit]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) (talk | contribs) | {{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\[ |
You cannot overwrite this file.
File usage on Commons
The following page uses this file:
File usage on other wikis
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 en.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