vdid_dru94v_o1907光影俱乐部是什么空调

深圳市华联欧国际贸易有限公司
类型:经销商
联系人:李先生
电话:86-3
传真:86-6
联系我时,请说明是在中国环保在线上看到的,谢谢
主营产品:传感器,编码器,泵阀,电机/马达,仪器仪表 ,传动机械,PCL与高低压电器,液压辅助元件,气动元件,工具,通用五金
主营业务:
该商家其它产品
摘要:深圳华联欧优势代理D1VW034CNJW PARKER电磁阀1, 公司在国内拥有大量OE
摘要:深圳华联欧优势代理MOOG原装2250线比例阀D663-Z4322K P02JONF6VSY2-A1
摘要:深圳华联欧优势代理MOOG伺服阀D662-4102 D02HYBD5NSX41, 公司在国内拥
摘要:深圳华联欧优势代理MOOG伺服阀D662-430K P02HAMD6NSX4-01, 公司在国内
摘要:深圳华联欧优势代理MOOG伺服阀D682-4190 P01HX ZF6N SM2-01, 公司在国
摘要:深圳华联欧优势代理E+H压力变送器PMC51-AA21JA1HGBRKJA+AK1, 公司在国
摘要:深圳华联欧优势代理CPA250 E+H支架1, 公司在国内拥有大量OEM客户和项
摘要:深圳华联欧优势代理E+H支架CCA250-AO1, 公司在国内拥有大量OEM客户和
其它商家同类产品(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* CreatedBy='Mathematica 7.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[
NotebookDataLength[
NotebookOptionsPosition[
NotebookOutlinePosition[
CellTagsIndexPosition[
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"LatticeData", "[", "]"}]], "Input",
CellChangeTimes->{{3.625*^9, 3.125*^9}, {
3.5*^9, 3.625*^9}, {3.5*^9,
3.375*^9}, {3.*^9, 3.75*^9}, {
3.75*^9, 3.625*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\"}], "}"}]], "Output",
CellChangeTimes->{3.75*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"LatticeData", "[", "\"\\"", "]"}]], "Input",
CellChangeTimes->{{3.125*^9, 3.375*^9}, {
3.375*^9, 3.375*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\", ",", "\",
",", "\"}], "}"}]], "Output",
CellChangeTimes->{{3.875*^9, 3.75*^9},
3.5*^9, 3.625*^9, 3.125*^9}]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"vv", "=",
RowBox[{"LatticeData", "[",
RowBox[{"\"\\"", ",", " ", "\"\\""}],
"]"}]}]], "Input",
CellChangeTimes->{{3.625*^9, 3.75*^9}, {
3.875*^9, 3.875*^9}, {3.25*^9,
3.25*^9}, {3.*^9, 3.875*^9}}],
Cell[BoxData[
Graphics3DBox[{
GraphicsComplex3DBox[{{-1, -1, -1}, {-1, -1, 1}, {-1, 1, -1}, {-1, 1, 1}, {
1, -1, -1}, {1, -1, 1}, {1, 1, -1}, {1, 1, 1}},
{Opacity[0.1], EdgeForm[GrayLevel[0.8]],
Polygon3DBox[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 1, 2}, {1,
3, 7, 5}, {2, 1, 5, 6}}]}],
{GrayLevel[0], Specularity[
GrayLevel[1], 5], SphereBox[{-1, -1, -1}, 0.06],
SphereBox[{-1, -1, 1}, 0.06], SphereBox[{-1, 1, -1}, 0.06],
SphereBox[{-1, 1, 1}, 0.06], SphereBox[{1, -1, -1}, 0.06],
SphereBox[{1, -1, 1}, 0.06], SphereBox[{1, 1, -1}, 0.06],
SphereBox[{1, 1, 1}, 0.06], SphereBox[{0, 0, 0}, 0.06]},
{GrayLevel[0.8], Line3DBox[{{0, 0, 0}, {-1, -1, -1}}],
Line3DBox[{{0, 0, 0}, {-1, -1, 1}}], Line3DBox[{{0, 0, 0}, {-1, 1, -1}}],
Line3DBox[{{0, 0, 0}, {-1, 1, 1}}], Line3DBox[{{0, 0, 0}, {1, -1, -1}}],
Line3DBox[{{0, 0, 0}, {1, -1, 1}}], Line3DBox[{{0, 0, 0}, {1, 1, -1}}],
Line3DBox[{{0, 0, 0}, {1, 1, 1}}]}},
AutomaticImageSize->True,
Boxed->False,
ImageSize->{390.4, 411.6},
ViewPoint->{-1.467, -2.6933`, -3.396},
ViewVertical->{
0.8081904`, -0.0828, -0.0465}]], \
CellChangeTimes->{{3.75*^9, 3.5*^9},
3.75*^9, {3.25*^9, 3.375*^9},
3.625*^9, 3.5*^9, 3.75*^9,
3.375*^9, 3.875*^9},
ImageCache->GraphicsData["CompressedBitmap", "\"]]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"LatticeData", "[",
RowBox[{"\"\\"", ",", " ", "\"\\""}],
"]"}]], "Input",
CellChangeTimes->{{3.75*^9, 3.5*^9}, {
3.375*^9, 3.875*^9}}],
Cell[BoxData[
Graphics3DBox[{
GraphicsComplex3DBox[{{-1, -1, -1}, {-1, -1, 1}, {-1, 1, -1}, {-1, 1, 1}, {
1, -1, -1}, {1, -1, 1}, {1, 1, -1}, {1, 1, 1}, {0, 0, 1}, {1, 0, 0}, {0,
1, 0}, {-1, 0, 0}, {0, 0, -1}, {0, -1, 0}}, {
{Opacity[0.1], EdgeForm[GrayLevel[0.8]],
Polygon3DBox[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 1, 2}, {
1, 3, 7, 5}, {2, 1, 5, 6}}]},
{GrayLevel[0.8],
Line3DBox[{{9, 8}, {9, 4}, {9, 2}, {9, 6}, {10, 8}, {10, 6}, {10, 5}, {
10, 7}, {11, 8}, {11, 7}, {11, 3}, {11, 4}, {12, 4}, {12, 3}, {12,
1}, {12, 2}, {13, 1}, {13, 3}, {13, 7}, {13, 5}, {14, 2}, {14, 1}, {14,
5}, {14, 6}}]}}],
{GrayLevel[0], Specularity[
GrayLevel[1], 5], SphereBox[{-1, -1, -1}, 0.06],
SphereBox[{-1, -1, 1}, 0.06], SphereBox[{-1, 1, -1}, 0.06],
SphereBox[{-1, 1, 1}, 0.06], SphereBox[{1, -1, -1}, 0.06],
SphereBox[{1, -1, 1}, 0.06], SphereBox[{1, 1, -1}, 0.06],
SphereBox[{1, 1, 1}, 0.06], SphereBox[{0, 0, 1}, 0.06],
SphereBox[{1, 0, 0}, 0.06], SphereBox[{0, 1, 0}, 0.06],
SphereBox[{-1, 0, 0}, 0.06], SphereBox[{0, 0, -1}, 0.06],
SphereBox[{0, -1, 0}, 0.06]}},
AutomaticImageSize->True,
Boxed->False,
ImageSize->{391., 437.3},
ViewPoint->{0.4397, -3.521, 2.251},
ViewVertical->{0.3342, -0.75477,
0.8221}]], "Output",
CellChangeTimes->{3.125*^9, 3.5*^9,
3.625*^9},
ImageCache->GraphicsData["CompressedBitmap", "\"]]
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"WSFCC", "=",
RowBox[{"PolyhedronData", "[",
RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}],
";"}]}]], "Input",
CellChangeTimes->{{3.*^9, 3.375*^9}, {
3.*^9, 3.875*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{"Graphics3D", "[",
RowBox[{"{", " ",
RowBox[{"Opacity", "[", ".2", "]"}], ",", "WSFCC"}], "}"}], "]"}],
"]"}]], "Input",
CellChangeTimes->{{3.*^9, 3.875*^9}}],
Cell[BoxData[
Graphics3DBox[
{Opacity[0.2],
GraphicsComplex3DBox[
NCache[{{-Rational[2, 3]^Rational[1, 2], -Rational[2, 3]^Rational[1, 2],
0}, {-Rational[2, 3]^Rational[1, 2], 0, -3^Rational[-1, 2]}, {-
Rational[2, 3]^Rational[1, 2], 0, 3^Rational[-1, 2]}, {-
Rational[2, 3]^Rational[1, 2], Rational[2, 3]^Rational[1, 2], 0}, {
0, -Rational[2, 3]^Rational[1, 2], -3^Rational[-1, 2]}, {
0, -Rational[2, 3]^Rational[1, 2], 3^Rational[-1, 2]}, {
0, 0, (-2) 3^Rational[-1, 2]}, {0, 0, 2 3^Rational[-1, 2]}, {
0, Rational[2, 3]^Rational[1, 2], -3^Rational[-1, 2]}, {
0, Rational[2, 3]^Rational[1, 2], 3^Rational[-1, 2]}, {
Rational[2, 3]^Rational[1, 2], -Rational[2, 3]^Rational[1, 2], 0}, {
Rational[2, 3]^Rational[1, 2], 0, -3^Rational[-1, 2]}, {
Rational[2, 3]^Rational[1, 2], 0, 3^Rational[-1, 2]}, {
Rational[2, 3]^Rational[1, 2], Rational[2, 3]^Rational[1, 2],
0}}, {{-0.726, -0.726, 0}, {-0.726,
0, -0.6258}, {-0.726, 0,
0.6258}, {-0.726, 0.726, 0}, {
0, -0.726, -0.6258}, {
0, -0.726, 0.6258}, {
0, 0, -1.2517`}, {0, 0, 1.2517`}, {
0, 0.726, -0.6258}, {
0, 0.726, 0.6258}, {
0.726, -0.726, 0}, {
0.726, 0, -0.6258}, {
0.726, 0, 0.6258}, {
0.726, 0.726, 0}}],
Polygon3DBox[{{2, 1, 3, 4}, {1, 2, 7, 5}, {6, 8, 3, 1}, {2, 4, 9, 7}, {8,
10, 4, 3}, {11, 6, 1, 5}, {9, 4, 10, 14}, {5, 7, 12, 11}, {11, 13, 8,
6}, {7, 9, 14, 12}, {13, 14, 10, 8}, {14, 13, 11, 12}}]]},
AutomaticImageSize->True,
ImageSize->{350.94`, 426.85`},
ViewPoint->{
3.3685`, -0.64212`, -1.8598`},
ViewVertical->{
0.2837, -0.16, -0.7652}]], "Output",
CellChangeTimes->{3.75*^9, 3.75*^9,
3.375*^9}]
Cell[BoxData[
RowBox[{"WSBCC", "=",
RowBox[{"PolyhedronData", "[",
RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}],
";"}]], "Input",
CellChangeTimes->{{3.875*^9, 3.625*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{"Graphics3D", "[",
RowBox[{"{", " ",
RowBox[{"Opacity", "[", ".2", "]"}], ",", "WSBCC"}], "}"}], "]"}],
"]"}]], "Input",
CellChangeTimes->{{3.*^9, 3.*^9}}],
Cell[BoxData[
Graphics3DBox[
{Opacity[0.2],
GraphicsComplex3DBox[
NCache[{{Rational[-3, 2], Rational[-1, 2], 0}, {
Rational[-3, 2], Rational[1, 2],
0}, {-1, -1, -2^Rational[-1, 2]}, {-1, -1, 2^Rational[-1, 2]}, {-1,
1, -2^Rational[-1, 2]}, {-1, 1, 2^Rational[-1, 2]}, {
Rational[-1, 2], Rational[-3, 2], 0}, {
Rational[-1, 2], Rational[-1, 2], -2^Rational[1, 2]}, {
Rational[-1, 2], Rational[-1, 2], 2^Rational[1, 2]}, {
Rational[-1, 2], Rational[1, 2], -2^Rational[1, 2]}, {
Rational[-1, 2], Rational[1, 2], 2^Rational[1, 2]}, {
Rational[-1, 2], Rational[3, 2], 0}, {
Rational[1, 2], Rational[-3, 2], 0}, {
Rational[1, 2], Rational[-1, 2], -2^Rational[1, 2]}, {
Rational[1, 2], Rational[-1, 2], 2^Rational[1, 2]}, {
Rational[1, 2], Rational[1, 2], -2^Rational[1, 2]}, {
Rational[1, 2], Rational[1, 2], 2^Rational[1, 2]}, {
Rational[1, 2], Rational[3, 2], 0}, {1, -1, -2^Rational[-1, 2]}, {
1, -1, 2^Rational[-1, 2]}, {1, 1, -2^Rational[-1, 2]}, {
1, 1, 2^Rational[-1, 2]}, {Rational[3, 2], Rational[-1, 2], 0}, {
Rational[3, 2], Rational[1, 2], 0}}, {{-1.5, -0.5, 0}, {-1.5, 0.5,
0}, {-1, -1, -0.5475}, {-1, -1, 0.5475}, {-1,
1, -0.5475}, {-1, 1, 0.5475}, {-0.5, -1.5,
0}, {-0.5, -0.5, -1.0951`}, {-0.5, -0.5,
1.0951`}, {-0.5, 0.5, -1.0951`}, {-0.5, 0.5,
1.0951`}, {-0.5, 1.5, 0}, {0.5, -1.5, 0}, {
0.5, -0.5, -1.0951`}, {0.5, -0.5, 1.0951`}, {
0.5, 0.5, -1.0951`}, {0.5, 0.5, 1.0951`}, {
0.5, 1.5, 0}, {1, -1, -0.5475}, {
1, -1, 0.5475}, {1, 1, -0.5475}, {
1, 1, 0.5475}, {1.5, -0.5, 0}, {1.5, 0.5, 0}}],
Polygon3DBox[{{17, 11, 9, 15}, {14, 8, 10, 16}, {22, 24, 21, 18}, {12, 5,
2, 6}, {13, 19, 23, 20}, {4, 1, 3, 7}, {19, 13, 7, 3, 8, 14}, {15, 9, 4,
7, 13, 20}, {16, 10, 5, 12, 18, 21}, {22, 18, 12, 6, 11, 17}, {20, 23,
24, 22, 17, 15}, {14, 16, 21, 24, 23, 19}, {9, 11, 6, 2, 1, 4}, {3, 1,
2, 5, 10, 8}}]]},
AutomaticImageSize->True,
ImageSize->{429.37`, 366.1},
ViewPoint->{-2.351, 2.012, 0.7278},
ViewVertical->{-0.52157`, 0.10375`,
0.4997}]], "Output",
CellChangeTimes->{3.25*^9, 3.5*^9, 3.*^9}
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"b", "=",
RowBox[{"LatticeData", "[",
RowBox[{"\"\\"", ",", "\"\\""}],
"]"}]}]], "Input",
CellChangeTimes->{{3.375*^9, 3.375*^9}, {
3.25*^9, 3.125*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.25*^9, 3.875*^9,
3.*^9, 3.5*^9, 3.75*^9}]
Cell[BoxData[
RowBox[{"l1", "=",
RowBox[{"Flatten", "[",
RowBox[{"Table", "[",
RowBox[{"i", " ",
RowBox[{"b", "[",
RowBox[{"[", "1", "]"}], "]"}]}], "+",
RowBox[{"j", " ",
RowBox[{"b", "[",
RowBox[{"[", "2", "]"}], "]"}]}], "+",
RowBox[{"k", " ",
RowBox[{"b", "[",
RowBox[{"[", "3", "]"}], "]"}]}]}], ",",
RowBox[{"{",
RowBox[{"i", ",", "0", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"j", ",", "0", ",", "3"}], "}"}], ",",
RowBox[{"{",
RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", "2"}],
"]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.625*^9, 3.125*^9}, {
3.125*^9, 3.75*^9}, {3.75*^9,
3.625*^9}, {3.*^9, 3.875*^9}, {
3.25*^9, 3.25*^9}, {3.375*^9,
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Graphics3D", "[",
RowBox[{"Map", "[",
RowBox[{"Sphere", "[",
RowBox[{"#", ",", ".2"}], "]"}], "&"}], ",", "l1"}], "]"}], ",",
RowBox[{"Boxed", "\[Rule]", "True"}], ",",
RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]], "Input",
CellChangeTimes->{{3.5*^9, 3.25*^9}}],
Cell[BoxData[
Graphics3DBox[{SphereBox[{0, 0, 0}, 0.2], SphereBox[{1, 1, 1}, 0.2],
SphereBox[{2, 2, 2}, 0.2], SphereBox[{3, 3, 3}, 0.2],
SphereBox[{0, 2, 0}, 0.2], SphereBox[{1, 3, 1}, 0.2],
SphereBox[{2, 4, 2}, 0.2], SphereBox[{3, 5, 3}, 0.2],
SphereBox[{0, 4, 0}, 0.2], SphereBox[{1, 5, 1}, 0.2],
SphereBox[{2, 6, 2}, 0.2], SphereBox[{3, 7, 3}, 0.2],
SphereBox[{0, 6, 0}, 0.2], SphereBox[{1, 7, 1}, 0.2],
SphereBox[{2, 8, 2}, 0.2], SphereBox[{3, 9, 3}, 0.2],
SphereBox[{2, 0, 0}, 0.2], SphereBox[{3, 1, 1}, 0.2],
SphereBox[{4, 2, 2}, 0.2], SphereBox[{5, 3, 3}, 0.2],
SphereBox[{2, 2, 0}, 0.2], SphereBox[{3, 3, 1}, 0.2],
SphereBox[{4, 4, 2}, 0.2], SphereBox[{5, 5, 3}, 0.2],
SphereBox[{2, 4, 0}, 0.2], SphereBox[{3, 5, 1}, 0.2],
SphereBox[{4, 6, 2}, 0.2], SphereBox[{5, 7, 3}, 0.2],
SphereBox[{2, 6, 0}, 0.2], SphereBox[{3, 7, 1}, 0.2],
SphereBox[{4, 8, 2}, 0.2], SphereBox[{5, 9, 3}, 0.2],
SphereBox[{4, 0, 0}, 0.2], SphereBox[{5, 1, 1}, 0.2],
SphereBox[{6, 2, 2}, 0.2], SphereBox[{7, 3, 3}, 0.2],
SphereBox[{4, 2, 0}, 0.2], SphereBox[{5, 3, 1}, 0.2],
SphereBox[{6, 4, 2}, 0.2], SphereBox[{7, 5, 3}, 0.2],
SphereBox[{4, 4, 0}, 0.2], SphereBox[{5, 5, 1}, 0.2],
SphereBox[{6, 6, 2}, 0.2], SphereBox[{7, 7, 3}, 0.2],
SphereBox[{4, 6, 0}, 0.2], SphereBox[{5, 7, 1}, 0.2],
SphereBox[{6, 8, 2}, 0.2], SphereBox[{7, 9, 3}, 0.2],
SphereBox[{6, 0, 0}, 0.2], SphereBox[{7, 1, 1}, 0.2],
SphereBox[{8, 2, 2}, 0.2], SphereBox[{9, 3, 3}, 0.2],
SphereBox[{6, 2, 0}, 0.2], SphereBox[{7, 3, 1}, 0.2],
SphereBox[{8, 4, 2}, 0.2], SphereBox[{9, 5, 3}, 0.2],
SphereBox[{6, 4, 0}, 0.2], SphereBox[{7, 5, 1}, 0.2],
SphereBox[{8, 6, 2}, 0.2], SphereBox[{9, 7, 3}, 0.2],
SphereBox[{6, 6, 0}, 0.2], SphereBox[{7, 7, 1}, 0.2],
SphereBox[{8, 8, 2}, 0.2], SphereBox[{9, 9, 3}, 0.2]},
AutomaticImageSize->True,
Axes->True,
Boxed->True,
ImageSize->{425.8, 283.6},
ViewPoint->{-1.0727`, -2.3115`, 1.0474`},
ViewVertical->{-0.57432`, -0.902,
2.887}]], "Output",
CellChangeTimes->{3.375*^9, 3.25*^9,
3.625*^9, 3.125*^9, 3.5*^9,
ImageCache->GraphicsData["CompressedBitmap", "\"]]
Cell[BoxData[
RowBox[{"HL", "=",
RowBox[{"LatticeData", "[",
RowBox[{"\"\\"", ",", "\"\\""}], " ", "]"}]}],
";"}]], "Input",
CellChangeTimes->{{3.875*^9, 3.375*^9}, {
3.75*^9, 3.75*^9}, {3.125*^9,
3.75*^9}, {3.75*^9, 3.125*^9}, {
3.*^9, 3.*^9}, {3.625*^9,
3.75*^9}, {3.5*^9, 3.125*^9}, {
3.25*^9, 3.125*^9}}],
Cell[BoxData[
RowBox[{"Show", "[", "HL", "]"}]], "Input",
CellChangeTimes->{{3.375*^9, 3.75*^9}}],
Cell[BoxData[
Graphics3DBox[{
GraphicsComplex3DBox[
NCache[{{Rational[1, 2], Rational[1, 2] 3^Rational[1, 2], 1}, {
Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2], 1}, {-1, 0, 1}, {
Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2], 1}, {
Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2], 1}, {1, 0, 1}, {
Rational[1, 2], Rational[1, 2] 3^Rational[1, 2], -1}, {
Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2], -1}, {-1, 0, -1}, {
Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2], -1}, {
Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2], -1}, {1, 0, -1}, {0,
0, 1}, {0, 0, -1}}, {{
0.5, 0.4386, 1}, {-0.5, 0.4386, 1}, {-1, 0,
1}, {-0.5, -0.4386, 1}, {0.5, -0.4386, 1}, {1,
0, 1}, {0.5, 0.4386, -1}, {-0.5,
0.4386, -1}, {-1,
0, -1}, {-0.5, -0.4386, -1}, {
0.5, -0.4386, -1}, {1, 0, -1}, {0, 0, 1}, {0, 0, -1}}], {
{Opacity[0.1], EdgeForm[GrayLevel[0.8]],
Polygon3DBox[{{1, 2, 3, 4, 5, 6}, {7, 8, 9, 10, 11, 12}, {1, 7, 8, 2}, {
2, 8, 9, 3}, {3, 9, 10, 4}, {4, 10, 11, 5}, {5, 11, 12, 6}, {6, 12, 7,
{GrayLevel[0.8],
Line3DBox[{{13, 1}, {13, 2}, {13, 3}, {13, 4}, {13, 5}, {13, 6}, {14,
7}, {14, 8}, {14, 9}, {14, 10}, {14, 11}, {14, 12}}]}}],
{GrayLevel[0], Specularity[
GrayLevel[1], 5],
SphereBox[
NCache[{Rational[1, 2], Rational[1, 2] 3^Rational[1, 2], 1}, {
0.5, 0.4386, 1}], 0.06],
SphereBox[
NCache[{Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2], 1}, {-0.5,
0.4386, 1}], 0.06], SphereBox[{-1, 0, 1}, 0.06],
SphereBox[
NCache[{Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2],
1}, {-0.5, -0.4386, 1}], 0.06],
SphereBox[
NCache[{Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2], 1}, {
0.5, -0.4386, 1}], 0.06], SphereBox[{1, 0, 1}, 0.06],
SphereBox[
NCache[{Rational[1, 2], Rational[1, 2] 3^Rational[1, 2], -1}, {
0.5, 0.4386, -1}], 0.06],
SphereBox[
NCache[{Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2], -1}, {-0.5,
0.4386, -1}], 0.06], SphereBox[{-1, 0, -1}, 0.06],
SphereBox[
NCache[{Rational[-1, 2], Rational[-1, 2]
3^Rational[1, 2], -1}, {-0.5, -0.4386, -1}], 0.06],
SphereBox[
NCache[{Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2], -1}, {
0.5, -0.4386, -1}], 0.06], SphereBox[{1, 0, -1}, 0.06],
SphereBox[{0, 0, 1}, 0.06], SphereBox[{0, 0, -1}, 0.06]}},
AutomaticImageSize->True,
Boxed->False,
ImageSize->{398.85`, 445.95`},
ViewPoint->{3.5352`, 1.0565`, 2.313},
ViewVertical->{-0.70062`, -0.7746,
0.1124}]], "Input",
CellChangeTimes->{3.5*^9},
ImageCache->GraphicsData["CompressedBitmap", "\"]],
Cell[BoxData[
RowBox[{"HCP", "=",
RowBox[{"LatticeData", "[",
RowBox[{"\"\\"", ",", "\"\\""}], " ",
"]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.25*^9, 3.375*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[", "HCP", "]"}]], "Input",
CellChangeTimes->{{3.875*^9, 3.375*^9}}],
Cell[BoxData[
Graphics3DBox[{
GraphicsComplex3DBox[
NCache[{{-1, 0, 1}, {
Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2], 1}, {
Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2], 1}, {0, 0, 1}, {
Rational[1, 2], Rational[1, 2] 3^Rational[1, 2], 1}, {
Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2], 1}, {1, 0, 1}, {
Rational[-1, 2], Rational[1, 2] 3^Rational[-1, 2], 1 - Rational[2, 3]^
Rational[1, 2]}, {
0, Rational[1, 2] 3^Rational[-1, 2] + Rational[-1, 2] 3^Rational[1, 2],
1 - Rational[2, 3]^Rational[1, 2]}, {
Rational[1, 2], Rational[1, 2] 3^Rational[-1, 2], 1 - Rational[2, 3]^
Rational[1, 2]}, {-1, 0, -1}, {
Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2], -1}, {
Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2], -1}, {0, 0, -1}, {
Rational[1, 2], Rational[1, 2] 3^Rational[1, 2], -1}, {
Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2], -1}, {1,
0, -1}}, {{-1, 0,
1}, {-0.5, 0.4386, 1}, {-0.5, -0.4386, 1}, {0,
0, 1}, {0.5, 0.4386, 1}, {0.5, -0.4386, 1}, {1,
0, 1}, {-0.5, 0.97`}, {
0, -0.97`}, {0.5, 0.8129,
0.27397`}, {-1,
0, -1}, {-0.5,
0.4386, -1}, {-0.5, -0.4386, -1}, {0, 0, -1}, {
0.5, 0.4386, -1}, {0.5, -0.4386, -1}, {1,
0, -1}}], {
{Opacity[0.1], EdgeForm[GrayLevel[0.8]],
Polygon3DBox[{{1, 2, 5, 7, 6, 3}, {11, 12, 15, 17, 16, 13}, {1, 2, 12,
11}, {1, 3, 13, 11}, {3, 6, 16, 13}, {6, 7, 17, 16}, {7, 5, 15, 17}, {
5, 2, 12, 15}}]},
{GrayLevel[0.8],
Line3DBox[{{9, 8}, {9, 10}, {10, 8}, {11, 14}, {12, 14}, {13, 14}, {15,
14}, {16, 14}, {17, 14}, {1, 4}, {2, 4}, {3, 4}, {5, 4}, {6, 4}, {7,
{GrayLevel[0], Specularity[
GrayLevel[1], 5], SphereBox[{-1, 0, 1}, 0.06],
SphereBox[
NCache[{Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2], 1}, {-0.5,
0.4386, 1}], 0.06],
SphereBox[
NCache[{Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2],
1}, {-0.5, -0.4386, 1}], 0.06], SphereBox[{0, 0, 1}, 0.06],
SphereBox[
NCache[{Rational[1, 2], Rational[1, 2] 3^Rational[1, 2], 1}, {
0.5, 0.4386, 1}], 0.06],
SphereBox[
NCache[{Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2], 1}, {
0.5, -0.4386, 1}], 0.06], SphereBox[{1, 0, 1}, 0.06],
SphereBox[
NCache[{Rational[-1, 2], Rational[1, 2] 3^Rational[-1, 2], 1 -
Rational[2, 3]^Rational[1, 2]}, {-0.5, 0.8129,
0.27397`}], 0.06],
SphereBox[
NCache[{0, Rational[1, 2] 3^Rational[-1, 2] +
Rational[-1, 2] 3^Rational[1, 2], 1 - Rational[2, 3]^Rational[1, 2]}, {
0, -0.97`}], 0.06],
SphereBox[
NCache[{Rational[1, 2], Rational[1, 2] 3^Rational[-1, 2], 1 -
Rational[2, 3]^Rational[1, 2]}, {0.5, 0.8129,
0.27397`}], 0.06], SphereBox[{-1, 0, -1}, 0.06],
SphereBox[
NCache[{Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2], -1}, {-0.5,
0.4386, -1}], 0.06],
SphereBox[
NCache[{Rational[-1, 2], Rational[-1, 2]
3^Rational[1, 2], -1}, {-0.5, -0.4386, -1}], 0.06],
SphereBox[{0, 0, -1}, 0.06],
SphereBox[
NCache[{Rational[1, 2], Rational[1, 2] 3^Rational[1, 2], -1}, {
0.5, 0.4386, -1}], 0.06],
SphereBox[
NCache[{Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2], -1}, {
0.5, -0.4386, -1}], 0.06], SphereBox[{1, 0, -1}, 0.06]}},
AutomaticImageSize->True,
Boxed->False,
ImageSize->{495.15`, 474.5},
ViewPoint->{0.0503, -4.661, 1.5957`},
ViewVertical->{-0.8074, -0.04977`,
0.7383}]], "Output",
CellChangeTimes->{3.75*^9},
ImageCache->GraphicsData["CompressedBitmap", "\"]]
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"DIA", "=",
RowBox[{"LatticeData", "[",
RowBox[{"\"\\"", ",", "\"\\""}],
"]"}]}]], "Input",
CellChangeTimes->{{3.625*^9, 3.875*^9}, {
3.75*^9, 3.875*^9}}],
Cell[BoxData[
Graphics3DBox[{
GraphicsComplex3DBox[
NCache[{{-1, -1, -1}, {-1, -1, 1}, {-1, 1, -1}, {-1, 1, 1}, {1, -1, -1}, {
1, -1, 1}, {1, 1, -1}, {1, 1, 1}, {0, 0, 1}, {1, 0, 0}, {0, 1, 0}, {-1,
0, 0}, {0, 0, -1}, {0, -1, 0}, {
Rational[1, 2], Rational[1, 2], Rational[1, 2]}, {
Rational[-1, 2], Rational[-1, 2], Rational[1, 2]}, {
Rational[1, 2], Rational[-1, 2], Rational[-1, 2]}, {
Rational[-1, 2], Rational[1, 2],
Rational[-1, 2]}}, {{-1, -1, -1}, {-1, -1, 1}, {-1, 1, -1}, {-1, 1,
1}, {1, -1, -1}, {1, -1, 1}, {1, 1, -1}, {1, 1, 1}, {0, 0, 1}, {1, 0,
0}, {0, 1, 0}, {-1, 0, 0}, {0, 0, -1}, {0, -1, 0}, {0.5, 0.5,
0.5}, {-0.5, -0.5, 0.5}, {0.5, -0.5, -0.5}, {-0.5, 0.5, -0.5}}], {
{Opacity[0.1], EdgeForm[GrayLevel[0.8]],
Polygon3DBox[{{8, 4, 2, 6}, {8, 6, 5, 7}, {8, 7, 3, 4}, {4, 3, 1, 2}, {
1, 3, 7, 5}, {2, 1, 5, 6}}]},
{GrayLevel[0.8],
Line3DBox[{{15, 8}, {15, 9}, {15, 11}, {15, 10}, {16, 9}, {16, 2}, {16,
12}, {16, 14}, {17, 10}, {17, 14}, {17, 13}, {17, 5}, {18, 11}, {18,
12}, {18, 13}, {18, 3}}]}}],
{GrayLevel[0], Specularity[
GrayLevel[1], 5], SphereBox[{-1, -1, -1}, 0.06],
SphereBox[{-1, -1, 1}, 0.06], SphereBox[{-1, 1, -1}, 0.06],
SphereBox[{-1, 1, 1}, 0.06], SphereBox[{1, -1, -1}, 0.06],
SphereBox[{1, -1, 1}, 0.06], SphereBox[{1, 1, -1}, 0.06],
SphereBox[{1, 1, 1}, 0.06], SphereBox[{0, 0, 1}, 0.06],
SphereBox[{1, 0, 0}, 0.06], SphereBox[{0, 1, 0}, 0.06],
SphereBox[{-1, 0, 0}, 0.06], SphereBox[{0, 0, -1}, 0.06],
SphereBox[{0, -1, 0}, 0.06],
SphereBox[
NCache[{Rational[1, 2], Rational[1, 2], Rational[1, 2]}, {0.5, 0.5,
0.5}], 0.06],
SphereBox[
NCache[{Rational[-1, 2], Rational[-1, 2], Rational[1, 2]}, {-0.5, -0.5,
0.5}], 0.06],
SphereBox[
NCache[{Rational[1, 2], Rational[-1, 2], Rational[-1, 2]}, {
0.5, -0.5, -0.5}], 0.06],
SphereBox[
NCache[{Rational[-1, 2], Rational[1, 2], Rational[-1, 2]}, {-0.5,
0.5, -0.5}], 0.06]}},
AutomaticImageSize->True,
Boxed->False,
ImageSize->{401.4, 370.63`},
ViewPoint->{-0.15677`, -2.346, 3.415},
ViewVertical->{0.85`,
0.6044}]], "Output",
CellChangeTimes->{3.875*^9, 3.875*^9},
ImageCache->GraphicsData["CompressedBitmap", "\"]]
WindowSize->{},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
(*CellTagsIndex
CellTagsIndex->{}
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 308, 5, 31, "Input"],
Cell[878, 29, 846, 14, 88, "Output"]
Cell[CellGroupData[{
Cell[6, 3, 31, "Input"],
Cell[74, 21, 88, "Output"]
Cell[CellGroupData[{
Cell[1, 7, 31, "Input"],
Cell[154, 253, 426, 1273, 24, "CachedBoxData", "BoxData", "Output"]
Cell[CellGroupData[{
Cell[1, 243, 5, 31, "Input"],
Cell[1, 2, 453, 1446, 27, "CachedBoxData", "BoxData", \
Cell[4, 328, 8, 52, "Input"],
Cell[CellGroupData[{
Cell[4, 255, 7, 31, "Input"],
Cell[4, 1, "Output"]
Cell[4, 245, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[4, 250, 7, 31, "Input"],
Cell[4, 2, "Output"]
Cell[CellGroupData[{
Cell[4, 265, 6, 31, "Input"],
Cell[4, 385, 10, 30, "Output"]
Cell[4, , "Input"],
Cell[CellGroupData[{
Cell[4, 376, 10, 31, "Input"],
Cell[4, 3, 298, 2168, 39, "CachedBoxData", "BoxData", \
Cell[8, 560, 11, 31, "Input"],
Cell[8, 123, 2, 31, "Input"],
Cell[8, 2, 461, 2940, 57, "CachedBoxData", "BoxData", \
InheritFromParent],
Cell[48, 248, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[58, 125, 2, 31, "Input"],
Cell[62, 2, 490, 4076, 80, "CachedBoxData", "BoxData", \
Cell[CellGroupData[{
Cell[67, 268, 6, 31, "Input"],
Cell[75, 1, 385, 2363, 47, "CachedBoxData", "BoxData", \
(* End of internal cache information *)

我要回帖

更多关于 m1907步枪 的文章

 

随机推荐