3D Layer Graphs (Zooming) 2

xxxxxxxxxx

 

1

import warnings

2

warnings.filterwarnings("ignore",category=DeprecationWarning)

3

def col(): 

4

    c1,c2,c3=random(),.3,random()

5

    return sage.plot.colors.float_to_html(c1,c2,c3)

6

def graph_pe(g,n):

7

    PG=Graphics(); k=randint(10,50)/100

8

    vg=g.get_pos(); vgp=list(vg.values())

9

    eg=g.edges(); nv=len(vg); ne=len(eg);

10

    x0=mean([vgp[i][0] for i in range(nv)])

11

    y0=mean([vgp[i][1] for i in range(nv)])

12

    cp=[[vgp[i][0]-x0,vgp[i][1]-y0] for i in range(nv)]

13

    l=[[list(vg[eg[i][0]]),list(vg[eg[i][1]])] 

14

       for i in range(ne)]

15

    cl=[[[x-x0,y-y0] for [x,y] in l[i]] 

16

        for i in range(ne)]

17

    cp3d=[[[(1+k*j)*x,(1+k*j)*y,j] 

18

           for j in range(n)] for [x,y] in cp]

19

    cl3d=[[[(1+k*j)*x,(1+k*j)*y,j] for [x,y] in cl[i]] 

20

          for j in range(n) for i in range(ne)]

21

    for i in range(nv): 

22

        PG+=line3d(cp3d[i],color=col())

23

    for i in range(n*ne): 

24

        PG+=line3d(cl3d[i],color=col())

25

    PG.show(frame=False)

26

graph_pe(graphs.CubeGraph(7),5)

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages