Google Mail Calendar Documents Reader Web more »
Recently Visited Groups | Help | Sign in
Google Groups Home
comp.soft-sys.math.mathematica
+ new post
About this group
Subscribe to this group
This is a Usenet group - learn more
Thikness of edges in a 3D graph
Options
There are currently too many topics in this group that display first. To make this topic appear first, remove this option from another topic.
There was an error processing your request. Please try again.
flag
   3 messages - Collapse all  -  Translate all to Translated (View all originals)
The group you are posting to is a Usenet group. Messages posted to this group will make your email address visible to anyone on the Internet.
Your reply message has not been sent.
Your post was successful
 
From:
To:
Cc:
Follow-up To:
Add Cc | Add Follow-up to | Edit Subject
Subject:
Validation:
For verification purposes please type the characters you see in the picture below or the numbers you hear by clicking the accessibility icon. Listen and type the numbers that you hear
 
cherifrahal  
View profile   Translate to Translated (View Original)
 More options 7 Nov, 11:54
Newsgroups: comp.soft-sys.math.mathematica
From: cherifrahal <cherif.ra...@gmail.com>
Date: Sat, 7 Nov 2009 11:54:41 +0000 (UTC)
Local: Sat 7 Nov 2009 11:54
Subject: Thikness of edges in a 3D graph
Reply | Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author
Hello,
I'm beginner in Mathematica !
I need some help to draw a 3D graph with different edge's thikness
Can someone help me !
I give here an example of my graphs !
Thank's in advance
cherif Rahal
GraphPlot3D[{1 -> 2, 1 -> 4, 1 -> 5, 2 -> 3, 2 -> 6, 3 -> 4, 3 -> 7,
  4 -> 8, 5 -> 6, 5 -> 8, 6 -> 7, 7 -> 8, 5 -> 10, 6 -> 11, 10 -> 11,
  10 -> 12, 11 -> 12, 12 -> 13, 9 -> 13},
 EdgeRenderingFunction -> (Cylinder[{#1}, {0.05}] &),
 VertexCoordinateRules -> {1 -> {-1, 1, 2}, 2 -> {1, 1, 2},
   4 -> {-1, -1, 2}, 3 -> {1, -1, 2}, 5 -> {-2, 2, 0}, 6 -> {2, 2, 0},
    7 -> {2, -2, 0}, 8 -> {-2, -2, 0}, 9 -> {0, 0, 2},
   10 -> {-2, 4, 0}, 11 -> {2, 4, 0}, 12 -> {0, 3, 3},
   13 -> {0, 2.2, 3.5}}]

    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message, you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
David Park  
View profile   Translate to Translated (View Original)
 More options 8 Nov, 12:04
Newsgroups: comp.soft-sys.math.mathematica
From: "David Park" <djmp...@comcast.net>
Date: Sun, 8 Nov 2009 12:04:54 +0000 (UTC)
Local: Sun 8 Nov 2009 12:04
Subject: Re: Thikness of edges in a 3D graph
Reply | Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author
Look up Cylinder and Function in the Documentation Center.

The EdgeRenderingFunction plugs the points defining the two ends of the edge
into Cylinder where the #1 is. The second argument in Cylinder is the radius
(thickness) of the edge. So just increase it. You don't need the extra
brackets.

GraphPlot3D[{1 -> 2, 1 -> 4, 1 -> 5, 2 -> 3, 2 -> 6, 3 -> 4, 3 -> 7,
  4 -> 8, 5 -> 6, 5 -> 8, 6 -> 7, 7 -> 8, 5 -> 10, 6 -> 11, 10 -> 11,
  10 -> 12, 11 -> 12, 12 -> 13, 9 -> 13},
 EdgeRenderingFunction -> (Cylinder[{#1}, 0.15] &),
 VertexCoordinateRules -> {1 -> {-1, 1, 2}, 2 -> {1, 1, 2},
   4 -> {-1, -1, 2}, 3 -> {1, -1, 2}, 5 -> {-2, 2, 0}, 6 -> {2, 2, 0},
    7 -> {2, -2, 0}, 8 -> {-2, -2, 0}, 9 -> {0, 0, 2},
   10 -> {-2, 4, 0}, 11 -> {2, 4, 0}, 12 -> {0, 3, 3},
   13 -> {0, 2.2, 3.5}}]

David Park
djmp...@comcast.net
http://home.comcast.net/~djmpark/  

From: cherifrahal [mailto:cherif.ra...@gmail.com]

Hello,
I'm beginner in Mathematica !
I need some help to draw a 3D graph with different edge's thikness
Can someone help me !
I give here an example of my graphs !
Thank's in advance
cherif Rahal
GraphPlot3D[{1 -> 2, 1 -> 4, 1 -> 5, 2 -> 3, 2 -> 6, 3 -> 4, 3 -> 7,
  4 -> 8, 5 -> 6, 5 -> 8, 6 -> 7, 7 -> 8, 5 -> 10, 6 -> 11, 10 -> 11,
  10 -> 12, 11 -> 12, 12 -> 13, 9 -> 13},
 EdgeRenderingFunction -> (Cylinder[{#1}, {0.05}] &),
 VertexCoordinateRules -> {1 -> {-1, 1, 2}, 2 -> {1, 1, 2},
   4 -> {-1, -1, 2}, 3 -> {1, -1, 2}, 5 -> {-2, 2, 0}, 6 -> {2, 2, 0},
    7 -> {2, -2, 0}, 8 -> {-2, -2, 0}, 9 -> {0, 0, 2},
   10 -> {-2, 4, 0}, 11 -> {2, 4, 0}, 12 -> {0, 3, 3},
   13 -> {0, 2.2, 3.5}}]


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message, you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
cherifrahal  
View profile   Translate to Translated (View Original)
 More options 9 Nov, 10:46
Newsgroups: comp.soft-sys.math.mathematica
From: cherifrahal <cherif.ra...@gmail.com>
Date: Mon, 9 Nov 2009 10:46:41 +0000 (UTC)
Local: Mon 9 Nov 2009 10:46
Subject: Re: Thikness of edges in a 3D graph
Reply | Reply to author | Forward | Print | Individual message | Show original | Report this message | Find messages by this author
On Nov 8, 1:04 pm, "David Park" <djmp...@comcast.net> wrote:

thank you very much for your answer,
but what I need, is different thikness for different edges, for
exemple for the edge 1-> 2 I need the thikness to be 1 and for the
edge 2->3 i need the thikness to be 3 ... etc.
Is it possible to do that with mathematica ?
Thank you in advance

Cherif Rahal


    Reply    Reply to author    Forward  
You must Sign in before you can post messages.
To post a message, you must first join this group.
Please update your nickname on the subscription settings page before posting.
You do not have the permission required to post.
End of messages
« Back to Discussions « Newer topic     Older topic »

Create a group - Google Groups - Google Home - Terms of Service - Privacy Policy
©2009 Google