0
$\begingroup$

Question 1 I have a cube in which I have to represent the corner of the cube with some text. But I am finding difficulty in placing, I don't want It to be exactly on the corner, I just place in a similar fashion I have placed text for 1D plot and 2D plot, so that It should come aesthetically good. how to carry out this? or is there any better way. Question 2 And I wanted to make a single plot which contains all three figures f[1],f[2],f[3]. Since the dimensions are the same It will create a problem.

ClearAll["Global`*"];
f[1] = Graphics[{Thickness[0.007], Black, Line[{{0, 0}, {1, 0}}], 
   Disk[{0, 0}, 0.05], 
   Text[Style[
     "\!\(\*SubscriptBox[\(\[Psi]\), \(1\)]\),(\!\(\*SubscriptBox[\(K\
\), \(t, 1\)]\)\[Rule]0)", 15], {0, 0.1}], Disk[{1, 0}, 0.05], 
   Text[Style[
     "\!\(\*SubscriptBox[\(\[Psi]\), \(2\)]\),(\!\(\*SubscriptBox[\(K\
\), \(t, 1\)]\)\[Rule]\[Infinity])", 15], {1, 0.1}]}]

p[2] = Graphics[{Thickness[0.007], Black, Line[{{0, 0}, {1, 0}}], 
    Text[Style[
      "\!\(\*SubscriptBox[\(\[Psi]\), \
\(1\)]\),(\!\(\*SubscriptBox[\(K\), \(t, \
1\)]\)\[Rule]0,\!\(\*SubscriptBox[\(K\), \(t, 2\)]\)\[Rule]0)", 
      15], {0, -0.1}], Disk[{0, 0}, 0.05], Disk[{1, 0}, 0.05]}];
p[3] = Graphics[{Thickness[0.007], Black, Line[{{0, 1}, {1, 1}}], 
    Disk[{1, 1}, 0.05], Disk[{1, 0}, 0.05], 
    Text[Style[
      "\!\(\*SubscriptBox[\(\[Psi]\), \
\(2\)]\),(\!\(\*SubscriptBox[\(K\), \(t, \
1\)]\)\[Rule]\[Infinity],\!\(\*SubscriptBox[\(K\), \(t, \
2\)]\)\[Rule]0)", 15], {1, -0.1}]}];
p[4] = Graphics[{Thickness[0.007], Black, Line[{{0, 0}, {0, 1}}], 
    Disk[{0, 1}, 0.05], Disk[{1, 0}, 0.05], 
    Text[Style[
      "\!\(\*SubscriptBox[\(\[Psi]\), \
\(4\)]\),(\!\(\*SubscriptBox[\(K\), \(t, \
1\)]\)\[Rule]\[Infinity],\!\(\*SubscriptBox[\(K\), \(t, 2\)]\)\[Rule]\
\[Infinity])", 15], {1, 1.1}]}];
p[5] = Graphics[{Thickness[0.007], Black, Line[{{1, 0}, {1, 1}}], 
    Disk[{1, 0}, 0.05], Disk[{1, 0}, 0.05], 
    Text[Style[
      "\!\(\*SubscriptBox[\(\[Psi]\), \
\(3\)]\),(\!\(\*SubscriptBox[\(K\), \(t, \
1\)]\)\[Rule]0,\!\(\*SubscriptBox[\(K\), \(t, \
2\)]\)\[Rule]\[Infinity])", 15], {0, 1.1}]}];
f[2] = Show[Table[p[i], {i, 2, 5}], PlotRange -> All]

p[6] = Graphics3D[{Thickness[0.007], Black, 
    Line[{{0, 0, 0}, {1, 0, 0}}], Sphere[{0, 0, 0}, 0.05], 
    Sphere[{1, 0, 0}, 0.05], 
    Text[Style[
      "\!\(\*SubscriptBox[\(\[Psi]\), \
\(1\)]\),(\!\(\*SubscriptBox[\(K\), \(t, \
1\)]\)\[Rule]0,\!\(\*SubscriptBox[\(K\), \(t, \
2\)]\)\[Rule]0,\!\(\*SubscriptBox[\(K\), \(t, 3\)]\)\[Rule]0)", 
      15], {0, 0.1, 0.1}]}];
p[7] = Graphics3D[{Thickness[0.007], Black, 
    Line[{{1, 0, 0}, {1, 1, 0}}], Sphere[{1, 0, 0}, 0.05], 
    Sphere[{1, 1, 0}, 0.05]}];
p[8] = Graphics3D[{Thickness[0.007], Black, 
    Line[{{0, 1, 0}, {1, 1, 0}}], Sphere[{0, 1, 0}, 0.05], 
    Sphere[{1, 1, 0}, 0.05]}];
p[9] = Graphics3D[{Thickness[0.007], Black, 
    Line[{{0, 0, 0}, {0, 1, 0}}], Sphere[{0, 0, 0}, 0.05], 
    Sphere[{0, 1, 0}, 0.05]}];

p[10] = Graphics3D[{Thickness[0.007], Black, 
    Line[{{0, 0, 1}, {1, 0, 1}}], Sphere[{0, 0, 1}, 0.05], 
    Sphere[{1, 0, 1}, 0.05]}];
p[11] = Graphics3D[{Thickness[0.007], Black, 
    Line[{{1, 0, 1}, {1, 1, 1}}], Sphere[{1, 0, 1}, 0.05], 
    Sphere[{1, 1, 1}, 0.05]}];
p[12] = Graphics3D[{Thickness[0.007], Black, 
    Line[{{0, 1, 1}, {1, 1, 1}}], Sphere[{0, 0, 1}, 0.05], 
    Sphere[{1, 1, 1}, 0.05]}];
p[13] = Graphics3D[{Thickness[0.007], Black, 
    Line[{{0, 0, 1}, {0, 1, 1}}], Sphere[{0, 0, 1}, 0.05], 
    Sphere[{0, 1, 1}, 0.05]}];

p[14] = Graphics3D[{Thickness[0.007], Black, 
    Line[{{0, 0, 0}, {0, 0, 1}}], Sphere[{0, 0, 0}, 0.05], 
    Sphere[{0, 0, 1}, 0.05]}];
p[15] = Graphics3D[{Thickness[0.007], Black, 
    Line[{{1, 0, 0}, {1, 0, 1}}], Sphere[{1, 0, 0}, 0.05], 
    Sphere[{1, 0, 1}, 0.05]}];
p[16] = Graphics3D[{Thickness[0.007], Black, 
    Line[{{1, 1, 0}, {1, 1, 1}}], Sphere[{1, 1, 0}, 0.05], 
    Sphere[{1, 1, 1}, 0.05]}];
p[17] = Graphics3D[{Thickness[0.007], Black, 
    Line[{{0, 1, 0}, {0, 1, 1}}], Sphere[{0, 1, 0}, 0.05], 
    Sphere[{0, 1, 1}, 0.05]}];

f[3] = Show[Table[p[i], {i, 6, 17}], PlotRange -> All, Boxed -> False]
$\endgroup$
  • 1
    $\begingroup$ As much as I see, programmatically you succeeded to make the text label. The only thing you ask concerns aesthetics, right? If so, I propose that (a) you might try to place the label at another corner. It will look better if it is the bottom corner most close to the observer. Place it in a way that the observer sees it slightly below the cube. (b) make it shorter. For example, Kt1,Kt2,Kt3->0 may be listed using comma. Try this. $\endgroup$ – Alexei Boulbitch Feb 14 at 9:06

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.