gra4
informazioni in generale
il file gra4
è stato creato usando
"Macintosh Mathematica
Notebook Front End Version 2.1
installato su MAC LC 475 (circa nel 1995);
è stato convertito con Exchange in file leggibile con MS-DOS
è quindi stato aperto con WordPad e salvato come file testo;
questo è stato inserito in FrontPage con inserisci file .
Il file originario è stato aperto con MathReader (open) e
convertito in file.nb salvato come graf4.nb
il grafico apparso sul video è stato
salvato con Stamp e incollato su Paint e quindi ritagliato e
salvato come gra4.gif e poi incollato su pagina FrontPage
evidenziate in blu le istruzioni inserite da utente nel programma
(*^
::[ frontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.1";
macintoshStandardFontEncoding;
paletteColors = 128; automaticGrouping; currentKernel;
fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e8, 24, "Times"; ;
fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6, 18, "Times"; ;
fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, italic, e6, 14, "Times"; ;
fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, a20, 18, "Times"; ;
fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, a15, 14, "Times"; ;
fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12, 12, "Times"; ;
fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; ;
fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times"; ;
fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5, 12, "Courier"; ;
fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ;
fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5, 12, "Courier"; ;
fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier"; ;
fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5, 12, "Courier"; ;
fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, 12, "Courier"; ;
fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, 10, "Geneva"; ;
fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; ;
fontset = leftheader, inactive, L2, 12, "Times"; ;
fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, 12, "Times"; ;
fontset = leftfooter, inactive, L2, 12, "Times"; ;
fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times"; ;
fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; ;
fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; ;
fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; ;
fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; ;
fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; ;
fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; ;
fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times"; ;
]
:[font = input; preserveAspect; startGroup; ]
(* gra4 su marino69 *)
:[font = info; inactive; preserveAspect; endGroup; ]
Polygon[{pt1, pt2, ...}] is a graphics primitive that represents a filled
polygon.
assegnare vertici poligono con 3 coordinate per ognuno
:[font = input; preserveAspect; startGroup; ]
funzione=Polygon[{{2,2,2},{6,6,6},{12,10,8}}]
Show[Graphics3D[funzione]]
:[font = output; output; inactive; preserveAspect; ]
Polygon[{{2, 2, 2}, {6, 6, 6}, {12, 10, 8}}]
;[o]
Polygon[{{2, 2, 2}, {6, 6, 6}, {12, 10, 8}}]
:[font = postscript; PostScript; formatAsPostScript; output; inactive; preserveAspect; pictureLeft = 34; pictureWidth = 282; pictureHeight = 253; ]
%!
%%Creator: Mathematica
%%AspectRatio: .89955
MathPictureStart
%% Graphics3D
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.0244565 0.978261 -0.0018366 0.978261 [
[ 0 0 0 0 ]
[ 1 .89955 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
[ ] 0 setdash
0 g
0 0 m
1 0 L
1 .89955 L
0 .89955 L
closepath
clip
newpath
p
.002 w
.07445 .27188 m
.02446 .62302 L
s
.02446 .62302 m
.35001 .8751 L
s
.35001 .8751 m
.36438 .55117 L
s
.36438 .55117 m
.07445 .27188 L
s
.70882 .02446 m
.93069 .37155 L
s
.93069 .37155 m
.97554 .7139 L
s
.97554 .7139 m
.73417 .39287 L
s
.73417 .39287 m
.70882 .02446 L
s
.07445 .27188 m
.02446 .62302 L
s
.02446 .62302 m
.73417 .39287 L
s
.73417 .39287 m
.70882 .02446 L
s
.70882 .02446 m
.07445 .27188 L
s
.36438 .55117 m
.93069 .37155 L
s
.93069 .37155 m
.97554 .7139 L
s
.97554 .7139 m
.35001 .8751 L
s
.35001 .8751 m
.36438 .55117 L
s
P
p
.002 w
.09487 .2819 m .4534 .56177 L .953 .70284 L closepath p
.699 .534 .661 r
F P
s
P
p
.002 w
.70882 .02446 m
.93069 .37155 L
s
.93069 .37155 m
.97554 .7139 L
s
.97554 .7139 m
.73417 .39287 L
s
.73417 .39287 m
.70882 .02446 L
s
.07445 .27188 m
.02446 .62302 L
s
.02446 .62302 m
.73417 .39287 L
s
.73417 .39287 m
.70882 .02446 L
s
.70882 .02446 m
.07445 .27188 L
s
P
p
P
% End of Graphics
MathPictureEnd
:[font = output; output; inactive; preserveAspect; endGroup; ]
The Unformatted text for this cell was not generated.
Use options in the Actions Preferences dialog box to
control when Unformatted text is generated.
;[o]
-Graphics3D-
^*)