Otdfbt

Riley's, assemble!

Accidentally renamed tar.gz file to a non tar.gz file, will my file be messed up

Old black and white movie: glowing black rocks slowly turn you into stone upon touch

What is the purpose of building foundations?

What is the right way to float a home lab?

PhD student with mental health issues and bad performance

Credit card offering 0.5 miles for every cent rounded up. Too good to be true?

Incremental Ranges!

Short story written from alien perspective with this line: "It's too bright to look at, so they don't"

Accidentally cashed a check twice

Can a magnetic field of an object be stronger than its gravity?

Building a road to escape Earth's gravity by making a pyramid on Antartica

Side by side histograms

Word for a small burst of laughter that can't be held back

Why do guitarists wave their guitars?

California: "For quality assurance, this phone call is being recorded"

What is the history of the check mark / tick mark?

How to connect an offset point symbol to its original position in QGIS?

Initialize an std::array algorithmically at compile time

Avoiding cliches when writing gods

How certain is a caster of when their spell will end?

Did Darth Vader wear the same suit for 20+ years?

Do adult Russians normally hand-write Cyrillic as cursive or as block letters?

Bent spoke design wheels — feasible?

Is there a way to generate a mapping graph like this?

Layout a second graph of the same nodes in the same way(Efficiently) Generating graphs with vertex degree 3 for all verticesHow to generate and draw simple bipartite graphs?Graph generation given number of edges and nodesCan I solve this graph theory problem with Mathematica?How to generate a random flow graph?More efficient way to generate lattice graph with edges between visible vertices?Is there a way to efficiently generate a large “incomplete” k-partite graphsGenerate list of traceable and planar graphsIs there a way to generate graphs without vizualization for simulation purposes?

3

1

$begingroup$

I am wondering whether there are any functions in Mathematica that can generate mapping graphs like the one shown below.

graphs-and-networks

share|improve this question

edited May 18 at 16:45

kglr

195k10216439

asked May 18 at 16:33

bakerbaker

885

$endgroup$

add a comment | 

3

1

$begingroup$

I am wondering whether there are any functions in Mathematica that can generate mapping graphs like the one shown below.

graphs-and-networks

share|improve this question

edited May 18 at 16:45

kglr

195k10216439

asked May 18 at 16:33

bakerbaker

885

$endgroup$

add a comment | 

$begingroup$

I am wondering whether there are any functions in Mathematica that can generate mapping graphs like the one shown below.

graphs-and-networks

share|improve this question

edited May 18 at 16:45

kglr

195k10216439

asked May 18 at 16:33

bakerbaker

885

$endgroup$

share|improve this question

edited May 18 at 16:45

kglr

195k10216439

asked May 18 at 16:33

bakerbaker

885

share|improve this question

edited May 18 at 16:45

kglr

195k10216439

asked May 18 at 16:33

bakerbaker

885

edited May 18 at 16:45

kglr

195k10216439

edited May 18 at 16:45

kglr

195k10216439

asked May 18 at 16:33

bakerbaker

885

asked May 18 at 16:33

bakerbaker

885

1 Answer
1

active

oldest

votes

8

$begingroup$

 Graph["A", "B", "C", 1, 2, 3, "A" -> 1, "A" -> 2, "B" -> 3, "C" -> 1, 
 VertexLabels -> Placed["Name", Center], 
 VertexSize -> Large, 
 VertexStyle -> ColorData[97][1], 
 VertexShapeFunction -> "Square", 
 PerformanceGoal -> "Quality",
 VertexLabelStyle -> Directive[White, FontSize -> Large], 
 VertexCoordinates -> Tuples[1, 2, 3, 2, 1]]

share|improve this answer

edited May 18 at 18:07

answered May 18 at 16:59

kglrkglr

195k10216439

$endgroup$

add a comment | 

Your Answer

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f198619%2fis-there-a-way-to-generate-a-mapping-graph-like-this%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

8

$begingroup$

 Graph["A", "B", "C", 1, 2, 3, "A" -> 1, "A" -> 2, "B" -> 3, "C" -> 1, 
 VertexLabels -> Placed["Name", Center], 
 VertexSize -> Large, 
 VertexStyle -> ColorData[97][1], 
 VertexShapeFunction -> "Square", 
 PerformanceGoal -> "Quality",
 VertexLabelStyle -> Directive[White, FontSize -> Large], 
 VertexCoordinates -> Tuples[1, 2, 3, 2, 1]]

share|improve this answer

edited May 18 at 18:07

answered May 18 at 16:59

kglrkglr

195k10216439

$endgroup$

add a comment | 

8

$begingroup$

 Graph["A", "B", "C", 1, 2, 3, "A" -> 1, "A" -> 2, "B" -> 3, "C" -> 1, 
 VertexLabels -> Placed["Name", Center], 
 VertexSize -> Large, 
 VertexStyle -> ColorData[97][1], 
 VertexShapeFunction -> "Square", 
 PerformanceGoal -> "Quality",
 VertexLabelStyle -> Directive[White, FontSize -> Large], 
 VertexCoordinates -> Tuples[1, 2, 3, 2, 1]]

share|improve this answer

edited May 18 at 18:07

answered May 18 at 16:59

kglrkglr

195k10216439

$endgroup$

add a comment | 

$begingroup$

 Graph["A", "B", "C", 1, 2, 3, "A" -> 1, "A" -> 2, "B" -> 3, "C" -> 1, 
 VertexLabels -> Placed["Name", Center], 
 VertexSize -> Large, 
 VertexStyle -> ColorData[97][1], 
 VertexShapeFunction -> "Square", 
 PerformanceGoal -> "Quality",
 VertexLabelStyle -> Directive[White, FontSize -> Large], 
 VertexCoordinates -> Tuples[1, 2, 3, 2, 1]]

share|improve this answer

edited May 18 at 18:07

answered May 18 at 16:59

kglrkglr

195k10216439

$endgroup$

 Graph["A", "B", "C", 1, 2, 3, "A" -> 1, "A" -> 2, "B" -> 3, "C" -> 1, 
 VertexLabels -> Placed["Name", Center], 
 VertexSize -> Large, 
 VertexStyle -> ColorData[97][1], 
 VertexShapeFunction -> "Square", 
 PerformanceGoal -> "Quality",
 VertexLabelStyle -> Directive[White, FontSize -> Large], 
 VertexCoordinates -> Tuples[1, 2, 3, 2, 1]]

share|improve this answer

edited May 18 at 18:07

answered May 18 at 16:59

kglrkglr

195k10216439

answered May 18 at 16:59

kglrkglr

195k10216439

answered May 18 at 16:59

kglrkglr

195k10216439