Changing z Value in Mathematica: Ideas?

  • Thread starter Thread starter B.Sam
  • Start date Start date
  • Tags Tags
    Mathematica
Join the discussion
Registration is free. Ask a follow-up in this thread, or start your own.
Sign up Log in
5 replies · 5K views
B.Sam
Messages
4
Reaction score
0
it could be stupid question for you...

if I input

Table[{x,-1,z},{x,0,6,1}]

I can get {{0,-1,z},{1,-1,z},{2,-1,z},{3,-1,z},{4,-1,z},{5,-1,z},{6,-1,z}}

is it possible to change the z value only...

what I want to get is like

{{0,-1,1},{1,-1,0},{2,-1,-1},{3,-1,-2},{4,-1,-3},{5,-1,-4},{6,-1,-5}}

as long as it shows the results like this with simple expression, it will be helpfull

have any idea?
 

Discussion

Engineering news on Phys.org
It looks like you want z to be equal to 1 - x.
So how about

Table[{x,-1,1-x},{x,0,6,1}]

?
 
that is easy!
great help

In addition,

I would like to get a resutls
like this
Graphics3D[{{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x, -1, 3 - x}, {x, -1, 3}],
Mod[Total[#], 2] == 0 &]}, Text[{-1, -1, 4}, {-1, -1, 4}],
Text[{0, -1, 3}, {0, -1, 3}], Text[{1, -1, 2}, {1, -1, 2}],
Text[{2, -1, 1}, {2, -1, 1}], Text[{3, -1, 0}, {3, -1, 0}]}]

is there anyway to simplify the Text part!

getting there!

even there are many things to ask...

I would like to sort it out myself first!

thank you very much
 
How about putting it in the table as well?
Code: 
Graphics3D[{
  {{RGBColor[1, 0, 0, .5], Sphere[#, 0.2]}, Text[#, #]} & /@ 
   Select[Table[{x, -1, 3 - x}, {x, -1, 3}], Mod[Total[#], 2] == 0 &]
  }]
 
it is easy!
fantastic!
basically, I have tried to make wurtzite structure by using mathematica.
I think that I have done it.
here is the code which I have done (this the best results in my ability)
is there any way to simplify this results


Graphics3D[{

(* the first layer of Ga atom *)

{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x, -1, 1 - x}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x, 0, 0 - x}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x, 1, -1 - x}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x, 2, -2 - x}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x, 3, -3 - x}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},

(* the second layer of Ga atom in [0001] direction *)

{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x, 0, 2 - x}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x, 1, 1 - x}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x, 2, 0 - x}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x, 3, -1 - x}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x, 4, -2 - x}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},

(* the third layer of Ga atom in [0001] direction *)

{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x + 4/3, -1 + 4/3, 1 - x + 4/3}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x + 4/3, 0 + 4/3, 0 - x + 4/3}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x + 4/3, 1 + 4/3, -1 - x + 4/3}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x + 4/3, 2 + 4/3, -2 - x + 4/3}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x + 4/3, 3 + 4/3, -3 - x + 4/3}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},

(* the fourth layer of Ga atom in [0001] direction *)

{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x + 4/3, 0 + 4/3, 2 - x + 4/3}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x + 4/3, 1 + 4/3, 1 - x + 4/3}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x + 4/3, 2 + 4/3, 0 - x + 4/3}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x + 4/3, 3 + 4/3, -1 - x + 4/3}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{x + 4/3, 4 + 4/3, -2 - x + 4/3}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 0 &]},

(* the fifth layer of Ga atom in [0001] direction *)

{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{(x + 4/3) + 4/3, (-1 + 4/3) + 4/3, (1 - x + 4/3) +
4/3}, {x, -1, 3, 1}], Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{(x + 4/3) + 4/3, (0 + 4/3) + 4/3, (0 - x + 4/3) + 4/
3}, {x, -1, 3, 1}], Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{(x + 4/3) + 4/3, (1 + 4/3) + 4/3, (-1 - x + 4/3) +
4/3}, {x, -1, 3, 1}], Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{(x + 4/3) + 4/3, (2 + 4/3) + 4/3, (-2 - x + 4/3) +
4/3}, {x, -1, 3, 1}], Mod[Total[#], 2] == 0 &]},
{RGBColor[1, 0, 0, .5],
Sphere[#, 0.2] & /@
Select[Table[{(x + 4/3) + 4/3, (3 + 4/3) + 4/3, (-3 - x + 4/3) +
4/3}, {x, -1, 3, 1}], Mod[Total[#], 2] == 0 &]},

(* the first layer of N atom *)

{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{x + 1/2, -1 + 1/2, 1 - x + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{x + 1/2, 0 + 1/2, 0 - x + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{x + 1/2, 1 + 1/2, -1 - x + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{x + 1/2, 2 + 1/2, -2 - x + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{x + 1/2, 3 + 1/2, -3 - x + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},

(* the second layer of N atom *)

{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{x + 1/2, 0 + 1/2, 2 - x + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{x + 1/2, 1 + 1/2, 1 - x + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{x + 1/2, 2 + 1/2, 0 - x + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{x + 1/2, 3 + 1/2, -1 - x + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{x + 1/2, 4 + 1/2, -2 - x + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},

(* the third layer of N atom *)

{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{(x + 4/3) + 1/2, (-1 + 4/3) + 1/2, (1 - x + 4/3) +
1/2}, {x, -1, 3, 1}], Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{(x + 4/3) + 1/2, (0 + 4/3) + 1/2, (0 - x + 4/3) + 1/
2}, {x, -1, 3, 1}], Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{(x + 4/3) + 1/2, (1 + 4/3) + 1/2, (-1 - x + 4/3) +
1/2}, {x, -1, 3, 1}], Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{(x + 4/3) + 1/2, (2 + 4/3) + 1/2, (-2 - x + 4/3) +
1/2}, {x, -1, 3, 1}], Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{(x + 4/3) + 1/2, (3 + 4/3) + 1/2, (-3 - x + 4/3) +
1/2}, {x, -1, 3, 1}], Mod[Total[#], 2] == 1.5 &]},

(* the fourth layer of N atom *)

{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{(x + 4/3) + 1/2, (0 + 4/3) + 1/2, (2 - x + 4/3) + 1/
2}, {x, -1, 3, 1}], Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{(x + 4/3) + 1/2, (1 + 4/3) + 1/2, (1 - x + 4/3) + 1/
2}, {x, -1, 3, 1}], Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[
Table[{(x + 4/3) + 1/2, (2 + 4/3) + 1/2, (0 - x + 4/3) + 1/
2}, {x, -1, 3, 1}], Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{(x + 4/3) + 1/2, (3 + 4/3) + 1/2, (-1 - x + 4/3) +
1/2}, {x, -1, 3, 1}], Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{(x + 4/3) + 1/2, (4 + 4/3) + 1/2, (-2 - x + 4/3) +
1/2}, {x, -1, 3, 1}], Mod[Total[#], 2] == 1.5 &]},

(* the fifth layer of N atom *)

{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{((x + 4/3) + 4/3) + 1/2, ((-1 + 4/3) + 4/3) + 1/
2, ((1 - x + 4/3) + 4/3) + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{((x + 4/3) + 4/3) + 1/2, ((0 + 4/3) + 4/3) + 1/
2, ((0 - x + 4/3) + 4/3) + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[
Table[{((x + 4/3) + 4/3) + 1/2, ((1 + 4/3) + 4/3) + 1/
2, ((-1 - x + 4/3) + 4/3) + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{((x + 4/3) + 4/3) + 1/2, ((2 + 4/3) + 4/3) + 1/
2, ((-2 - x + 4/3) + 4/3) + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
{RGBColor[1, 5, 4, .5],
Sphere[#, 0.1] & /@
Select[Table[{((x + 4/3) + 4/3) + 1/2, ((3 + 4/3) + 4/3) + 1/
2, ((-3 - x + 4/3) + 4/3) + 1/2}, {x, -1, 3, 1}],
Mod[Total[#], 2] == 1.5 &]},
 
that was too long
so here is rest part of it
just combine together!

Thick,

(*bonding between the first Ga atom layer and the first N atom in [
0001] direction*)

{RGBColor[0, 1, 0],
Line[Table[{{x, -1, 1 - x}, {x + 1/2, -1 + 1/2,
1 - x + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x, 0, 0 - x}, {x + 1/2, 0 + 1/2,
0 - x + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x, 1, -1 - x}, {x + 1/2,
1 + 1/2, -1 - x + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x, 2, -2 - x}, {x + 1/2,
2 + 1/2, -2 - x + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x, 3, -3 - x}, {x + 1/2,
3 + 1/2, -3 - x + 1/2}}, {x, -1, 3, 1}]]},

(*bonding between the first Ga atom layer and the first N atom in [
0001] direction*)

{RGBColor[0, 1, 0],
Line[Table[{{x, 0, 2 - x}, {x + 1/2, -1 + 1/2,
1 - x + 1/2}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x, 0, 2 - x}, {(x + 1/2) - 1, (-1 + 1/2) + 1,
1 - x + 1/2}}, {x, 0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x, 0,
2 - x}, {(x + 1/2) - 1, -1 + 1/2, (1 - x + 1/2) + 1}}, {x, 0,
3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x, 1, 1 - x}, {x + 1/2, 0 + 1/2,
0 - x + 1/2}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x, 1, 1 - x}, {(x + 1/2) - 1, (0 + 1/2) + 1,
0 - x + 1/2}}, {x, 0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x, 1, 1 - x}, {(x + 1/2) - 1,
0 + 1/2, (0 - x + 1/2) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x, 2, 0 - x}, {x + 1/2,
1 + 1/2, -1 - x + 1/2}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x, 2,
0 - x}, {(x + 1/2) - 1, (1 + 1/2) + 1, -1 - x + 1/2}}, {x, 0,
3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x, 2, 0 - x}, {(x + 1/2) - 1,
1 + 1/2, (-1 - x + 1/2) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x, 3, -1 - x}, {x + 1/2,
2 + 1/2, -2 - x + 1/2}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x,
3, -1 - x}, {(x + 1/2) - 1, (2 + 1/2) + 1, -2 - x + 1/2}}, {x,
0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x, 3, -1 - x}, {(x + 1/2) - 1,
2 + 1/2, (-2 - x + 1/2) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x, 4, -2 - x}, {x + 1/2,
3 + 1/2, -3 - x + 1/2}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x, 4, -2 - x}, {(x + 1/2) - 1,
3 + 1/2, (-3 - x + 1/2) + 1}}, {x, 0, 3, 1}]]},

(*bonding between the second Ga atom layer and the second N atom in \
[0001] direction*)

{RGBColor[0, 1, 0],
Line[Table[{{x, 0, 2 - x}, {x + 1/2, 0 + 1/2,
2 - x + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x, 1, 1 - x}, {x + 1/2, 1 + 1/2,
1 - x + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x, 2, 0 - x}, {x + 1/2, 2 + 1/2,
0 - x + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x, 3, -1 - x}, {x + 1/2,
3 + 1/2, -1 - x + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x, 4, -2 - x}, {x + 1/2,
4 + 1/2, -2 - x + 1/2}}, {x, -1, 3, 1}]]},

(*bonding between the second N atom layer and the third Ga atom \
layer in [0001] direction*)

{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 0 + 1/2, 2 - x + 1/2}, {x + 4/3, -1 + 4/3,
1 - x + 4/3}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 0 + 1/2,
2 - x + 1/2}, {x + 4/3 - 1, (-1 + 4/3) +
1, (1 - x + 4/3)}}, {x, 0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 0 + 1/2,
2 - x + 1/2}, {x + 4/3 - 1, -1 + 4/3, (1 - x + 4/3) + 1}}, {x,
0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 1 + 1/2, 1 - x + 1/2}, {x + 4/3, 0 + 4/3,
0 - x + 4/3}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 1 + 1/2,
1 - x + 1/2}, {x + 4/3 - 1, (0 + 4/3) + 1, (0 - x + 4/3)}}, {x,
0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 1 + 1/2, 1 - x + 1/2}, {x + 4/3 - 1,
0 + 4/3, (0 - x + 4/3) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 2 + 1/2, 0 - x + 1/2}, {x + 4/3,
1 + 4/3, -1 - x + 4/3}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 2 + 1/2,
0 - x + 1/2}, {x + 4/3 - 1, (1 + 4/3) +
1, (-1 - x + 4/3)}}, {x, 0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 2 + 1/2, 0 - x + 1/2}, {x + 4/3 - 1,
1 + 4/3, (-1 - x + 4/3) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 3 + 1/2, -1 - x + 1/2}, {x + 4/3,
2 + 4/3, -2 - x + 4/3}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2,
3 + 1/2, -1 - x + 1/2}, {x + 4/3 - 1, (2 + 4/3) +
1, (-2 - x + 4/3)}}, {x, 0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 3 + 1/2, -1 - x + 1/2}, {x + 4/3 - 1,
2 + 4/3, (-2 - x + 4/3) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 4 + 1/2, -2 - x + 1/2}, {x + 4/3,
3 + 4/3, -3 - x + 4/3}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 1/2, 4 + 1/2, -2 - x + 1/2}, {x + 4/3 - 1,
3 + 4/3, (-3 - x + 4/3) + 1}}, {x, 0, 3, 1}]]},

(*bonding between the third Ga atom layer and the third N atom \
layer in [0001] direction*)

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, -1 + 4/3,
1 - x + 4/3}, {(x + 4/3) + 1/2, (-1 + 4/3) + 1/
2, (1 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 0 + 4/3,
0 - x + 4/3}, {(x + 4/3) + 1/2, (0 + 4/3) + 1/
2, (0 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3,
1 + 4/3, -1 - x + 4/3}, {(x + 4/3) + 1/2, (1 + 4/3) + 1/
2, (-1 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3,
2 + 4/3, -2 - x + 4/3}, {(x + 4/3) + 1/2, (2 + 4/3) + 1/
2, (-2 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3,
3 + 4/3, -3 - x + 4/3}, {(x + 4/3) + 1/2, (3 + 4/3) + 1/
2, (-3 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

(*bonding between the fourth Ga atom layer and the third N atom \
layer in [0001] direction*)

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 0 + 4/3,
2 - x + 4/3}, {(x + 4/3) + 1/2, (-1 + 4/3) + 1/
2, (1 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 0 + 4/3,
2 - x + 4/3}, {((x + 4/3) + 1/2) - 1, ((-1 + 4/3) + 1/2) +
1, (1 - x + 4/3) + 1/2}}, {x, 0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 0 + 4/3,
2 - x + 4/3}, {((x + 4/3) + 1/2) - 1, (-1 + 4/3) + 1/
2, ((1 - x + 4/3) + 1/2) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 1 + 4/3,
1 - x + 4/3}, {(x + 4/3) + 1/2, (0 + 4/3) + 1/
2, (0 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 1 + 4/3,
1 - x + 4/3}, {((x + 4/3) + 1/2) - 1, ((0 + 4/3) + 1/2) +
1, (0 - x + 4/3) + 1/2}}, {x, 0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 1 + 4/3,
1 - x + 4/3}, {((x + 4/3) + 1/2) - 1, (0 + 4/3) + 1/
2, ((0 - x + 4/3) + 1/2) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 2 + 4/3,
0 - x + 4/3}, {(x + 4/3) + 1/2, (1 + 4/3) + 1/
2, (-1 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 2 + 4/3,
0 - x + 4/3}, {((x + 4/3) + 1/2) - 1, ((1 + 4/3) + 1/2) +
1, (-1 - x + 4/3) + 1/2}}, {x, 0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 2 + 4/3,
0 - x + 4/3}, {((x + 4/3) + 1/2) - 1, (1 + 4/3) + 1/
2, ((-1 - x + 4/3) + 1/2) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3,
3 + 4/3, -1 - x + 4/3}, {(x + 4/3) + 1/2, (2 + 4/3) + 1/
2, (-2 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3,
3 + 4/3, -1 - x + 4/3}, {((x + 4/3) + 1/2) -
1, ((2 + 4/3) + 1/2) + 1, (-2 - x + 4/3) + 1/2}}, {x, 0, 3,
1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3,
3 + 4/3, -1 - x + 4/3}, {((x + 4/3) + 1/2) - 1, (2 + 4/3) + 1/
2, ((-2 - x + 4/3) + 1/2) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3,
4 + 4/3, -2 - x + 4/3}, {(x + 4/3) + 1/2, (3 + 4/3) + 1/
2, (-3 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3,
4 + 4/3, -2 - x + 4/3}, {((x + 4/3) + 1/2) - 1, (3 + 4/3) + 1/
2, ((-3 - x + 4/3) + 1/2) + 1}}, {x, 0, 3, 1}]]},

(*bonding between the fourth Ga atom layer and the fourth N atom in \
[0001] direction*)

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 0 + 4/3,
2 - x + 4/3}, {(x + 4/3) + 1/2, (0 + 4/3) + 1/
2, (2 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 1 + 4/3,
1 - x + 4/3}, {(x + 4/3) + 1/2, (1 + 4/3) + 1/
2, (1 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3, 2 + 4/3,
0 - x + 4/3}, {(x + 4/3) + 1/2, (2 + 4/3) + 1/
2, (0 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3,
3 + 4/3, -1 - x + 4/3}, {(x + 4/3) + 1/2, (3 + 4/3) + 1/
2, (-1 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{x + 4/3,
4 + 4/3, -2 - x + 4/3}, {(x + 4/3) + 1/2, (4 + 4/3) + 1/
2, (-2 - x + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

(*bonding between the fourth N atom layer and the fifth Ga atom \
layer in [0001] direction*)

{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (0 + 4/3) + 1/2, (2 - x + 4/3) + 1/
2}, {(x + 4/3) + 4/3, (-1 + 4/3) + 4/3, (1 - x + 4/3) + 4/
3}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (0 + 4/3) + 1/2, (2 - x + 4/3) + 1/
2}, {((x + 4/3) + 4/3) - 1, ((-1 + 4/3) + 4/3) +
1, (1 - x + 4/3) + 4/3}}, {x, 0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (0 + 4/3) + 1/2, (2 - x + 4/3) + 1/
2}, {((x + 4/3) + 4/3) - 1, (-1 + 4/3) + 4/
3, ((1 - x + 4/3) + 4/3) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (1 + 4/3) + 1/2, (1 - x + 4/3) + 1/
2}, {(x + 4/3) + 4/3, (0 + 4/3) + 4/3, (0 - x + 4/3) + 4/
3}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (1 + 4/3) + 1/2, (1 - x + 4/3) + 1/
2}, {((x + 4/3) + 4/3) - 1, ((0 + 4/3) + 4/3) +
1, (0 - x + 4/3) + 4/3}}, {x, 0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (1 + 4/3) + 1/2, (1 - x + 4/3) + 1/
2}, {((x + 4/3) + 4/3) - 1, (0 + 4/3) + 4/
3, ((0 - x + 4/3) + 4/3) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (2 + 4/3) + 1/2, (0 - x + 4/3) + 1/
2}, {(x + 4/3) + 4/3, (1 + 4/3) + 4/3, (-1 - x + 4/3) + 4/
3}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (2 + 4/3) + 1/2, (0 - x + 4/3) + 1/
2}, {((x + 4/3) + 4/3) - 1, ((1 + 4/3) + 4/3) +
1, (-1 - x + 4/3) + 4/3}}, {x, 0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (2 + 4/3) + 1/2, (0 - x + 4/3) + 1/
2}, {((x + 4/3) + 4/3) - 1, (1 + 4/3) + 4/
3, ((-1 - x + 4/3) + 4/3) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (3 + 4/3) + 1/2, (-1 - x + 4/3) + 1/
2}, {(x + 4/3) + 4/3, (2 + 4/3) + 4/3, (-2 - x + 4/3) + 4/
3}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (3 + 4/3) + 1/2, (-1 - x + 4/3) + 1/
2}, {((x + 4/3) + 4/3) - 1, ((2 + 4/3) + 4/3) +
1, (-2 - x + 4/3) + 4/3}}, {x, 0, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (3 + 4/3) + 1/2, (-1 - x + 4/3) + 1/
2}, {((x + 4/3) + 4/3) - 1, (2 + 4/3) + 4/
3, ((-2 - x + 4/3) + 4/3) + 1}}, {x, 0, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (4 + 4/3) + 1/2, (-2 - x + 4/3) + 1/
2}, {(x + 4/3) + 4/3, (3 + 4/3) + 4/3, (-3 - x + 4/3) + 4/
3}}, {x, -1, 3, 1}]]},
{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 1/2, (4 + 4/3) + 1/2, (-2 - x + 4/3) + 1/
2}, {((x + 4/3) + 4/3) - 1, (3 + 4/3) + 4/
3, ((-3 - x + 4/3) + 4/3) + 1}}, {x, 0, 3, 1}]]},

(*bonding between the fifth Ga atom layer and the fifth N atom in [
0001] direction*)

{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 4/3, (-1 + 4/3) + 4/3, (1 - x + 4/3) + 4/
3}, {((x + 4/3) + 4/3) + 1/2, ((-1 + 4/3) + 4/3) + 1/
2, ((1 - x + 4/3) + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 4/3, (0 + 4/3) + 4/3, (0 - x + 4/3) + 4/
3}, {((x + 4/3) + 4/3) + 1/2, ((0 + 4/3) + 4/3) + 1/
2, ((0 - x + 4/3) + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 4/3, (1 + 4/3) + 4/3, (-1 - x + 4/3) + 4/
3}, {((x + 4/3) + 4/3) + 1/2, ((1 + 4/3) + 4/3) + 1/
2, ((-1 - x + 4/3) + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 4/3, (2 + 4/3) + 4/3, (-2 - x + 4/3) + 4/
3}, {((x + 4/3) + 4/3) + 1/2, ((2 + 4/3) + 4/3) + 1/
2, ((-2 - x + 4/3) + 4/3) + 1/2}}, {x, -1, 3, 1}]]},

{RGBColor[0, 1, 0],
Line[Table[{{(x + 4/3) + 4/3, (3 + 4/3) + 4/3, (-3 - x + 4/3) + 4/
3}, {((x + 4/3) + 4/3) + 1/2, ((3 + 4/3) + 4/3) + 1/
2, ((-3 - x + 4/3) + 4/3) + 1/2}}, {x, -1, 3, 1}]]}

}, ImageSize -> 600, Boxed -> False]
 

Similar threads

Mathematica Finding Minimum Value with Mathematica

  • aredy29
  • · Replies 5 ·
  • MATLAB, Maple, Mathematica, LaTeX
Replies
5

Which Z Value Should Be Used for Camera Motion?

  • wonder1
  • · Replies 6 ·
  • Calculus
Replies
6

Undergrad Counting U Test for Mann-Whitney Test & Finding Z Value

  • Drudge
  • · Replies 9 ·
  • Set Theory, Logic, Probability, Statistics
Replies
9

Graduate Parameterizing Z-Value in Line Integral for Cylinder (Stokes Thm)

  • The Head
  • · Replies 5 ·
  • Calculus
Replies
5

Finding Z Value with Mass Spectra of Protein Fragments

  • higherme
  • · Replies 1 ·
  • Biology and Chemistry Homework Help
Replies
1

Undergrad How to find which z-value to cut at to get the appropriate volume of a sphere

  • Pixel08
  • · Replies 3 ·
  • Calculus
Replies
3

MATLAB Change the value of a variable at each time step in matlab?

  • patric44
  • · Replies 8 ·
  • MATLAB, Maple, Mathematica, LaTeX
Replies
8

Graduate Sums of second order and the value of mathematics

  • verty
  • · Replies 2 ·
  • General Math
Replies
2

Undergrad Linear Interpolation to Find Z Value in Quadrilateral

  • Cummings
  • · Replies 1 ·
  • General Math
Replies
1

MATLAB Efficiently Evaluate z Values in Matlab using Formula - 15+ Data Points

  • Benny
  • · Replies 4 ·
  • MATLAB, Maple, Mathematica, LaTeX
Replies
4