## 60 Reputation

0 years, 171 days

## Kind help if anyone to convert the c++...

Maple
```#include<iostream>
#include<vector>
#include<cmath>
#define NODE 8

using namespace std;
int graph[NODE][NODE] = {
{0,1,1,0,0,0,0,0},
{1,0,1,1,1,0,0,0},
{1,1,0,1,0,1,0,0},
{0,1,1,0,0,0,0,0},
{0,1,0,0,0,1,1,1},
{0,0,1,0,1,0,1,1},
{0,0,0,0,1,1,0,0},
{0,0,0,0,1,1,0,0}
};
int tempGraph[NODE][NODE];
int findStartVert() {
for(int i = 0; i<NODE; i++) {
int deg = 0;
for(int j = 0; j<NODE; j++) {
if(tempGraph[i][j])
deg++; //increase degree, when connected edge found
}
if(deg % 2 != 0) //when degree of vertices are odd
return i; //i is node with odd degree
}
return 0; //when all vertices have even degree, start from 0
}
int dfs(int prev, int start, bool visited[]){
int count = 1;
visited[start] = true;
for(int u = 0; u<NODE; u++){
if(prev != u){
if(!visited[u]){
if(tempGraph[start][u]){
count += dfs(start, u, visited);
}
}
}
}
return count;
}
bool isBridge(int u, int v) {
int deg = 0;
for(int i = 0; i<NODE; i++)
if(tempGraph[v][i])
deg++;
if(deg>1) {
return false; //the edge is not forming bridge
}
return true; //edge forming a bridge
}
int edgeCount() {
int count = 0;
for(int i = 0; i<NODE; i++)
for(int j = i; j<NODE; j++)
if(tempGraph[i][j])
count++;
return count;
}
void fleuryAlgorithm(int start) {
static int edge = edgeCount();
static int v_count = NODE;
for(int v = 0; v<NODE; v++) {
if(tempGraph[start][v]) {
bool visited[NODE] = {false};
if(isBridge(start, v)){
v_count--;
}
int cnt = dfs(start, v, visited);
if(abs(v_count-cnt) <= 2){
cout << start << "--" << v << " ";
if(isBridge(v, start)){
v_count--;
}
tempGraph[start][v] = tempGraph[v][start] = 0; //remove edge from graph
edge--;
fleuryAlgorithm(v);
}
}
}
}
int main() {
for(int i = 0; i<NODE; i++) //copy main graph to tempGraph
for(int j = 0; j<NODE; j++)
tempGraph[i][j] = graph[i][j];
cout << "Euler Path Or Circuit: ";
fleuryAlgorithm(findStartVert());
}```

Kind help

## Kind help to enumerate permutation with ...

Maple

Below is python code found in the internet kind help to convert to maple but only thing instead on the input to be string I want it to be a set of integers or array of integers

Kind help

`# Python program to print all permutations with repetition `

`# of characters `

` `

`def` `toString(``List``): `

`    ``return` `''.join(``List``) `

` `

`# The main function that recursively prints all repeated `

`# permutations of the given string. It uses data[] to store `

`# all permutations one by one `

`def` `allLexicographicRecur (string, data, last, index): `

`    ``length ``=` `len``(string) `

` `

`    ``# One by one fix all characters at the given index and `

`    ``# recur for the subsequent indexes `

`    ``for` `i ``in` `xrange``(length): `

` `

`        ``# Fix the ith character at index and if this is not `

`        ``# the last index then recursively call for higher `

`        ``# indexes `

`        ``data[index] ``=` `string[i] `

` `

`        ``# If this is the last index then print the string `

`        ``# stored in data[] `

`        ``if` `index``=``=``last: `

`            ``print` `toString(data) `

`        ``else``: `

`            ``allLexicographicRecur(string, data, last, index``+``1``) `

` `

`# This function sorts input string, allocate memory for data `

`# (needed for allLexicographicRecur()) and calls `

`# allLexicographicRecur() for printing all permutations `

`def` `allLexicographic(string): `

`    ``length ``=` `len``(string) `

` `

`    ``# Create a temp array that will be used by `

`    ``# allLexicographicRecur() `

`    ``data ``=` `[""] ``*` `(length``+``1``) `

` `

`    ``# Sort the input string so that we get all output strings in `

`    ``# lexicographically sorted order `

`    ``string ``=` `sorted``(string) `

` `

`    ``# Now print all permutaions `

`    ``allLexicographicRecur(string, data, length``-``1``, ``0``) `

` `

`# Driver program to test the above functions `

`string ``=` `"ABC"`

`print` `"All permutations with repetition of "` `+` `string ``+` `" are:"`

`allLexicographic(string) `

## Need help to help DrawGraph in better en...

Maple

restart;
with(GraphTheory);
with(SpecialGraphs);
with(StringTools);
GT := GraphTheory;
G := GT:-SpecialGraphs:-GridGraph(3, 3);
H := GT:-SpecialGraphs:-GridGraph(3, 2);
GH := CartesianProduct(G, H);
V := Vertices(GH);
P := [];
flag := 0
f := proc(K::string) local L; global P; L := Split(K, ":"); P := [op(P), cat("(", L[1], ",", L[2], ")")]; end proc
if flag = 0 then
for i to NumberOfVertices(GH) do f(V[i]); end do;
end if
GH := RelabelVertices(GH, P)
DrawGraph(GH, stylesheet = "legacy")

I need the graph with those exact relabed vertices type i have done

Now the problem i want my graph a little better in output  i want my vertices a better visible the edges as they more not a issue atleast want the verices a little more visbile and distictive  kind help i apologize for the distubance kind help

the below is output i get i want it more better

## Help to draw a graph theory graph exactl...

Maple

G := GridGraph(3, 3);
DrawGraph(G);

Now in place  of (1,3) i want label 1 , in place  of (2,3) i want label 2, in place  of (3,3) i want label 3, in place  of (1,2) i want label 4, in place  of (2,2) i want label 5,in place  of (3,2) i want label 6,in place  of (1,1) i want label 7,in place  of (2,1) i want label 8,in place  of (3,1) i want label 9

And i want the graph to straight like the above and the edges should be correct and strainght kind help

Similary for below

G := GridGraph(2, 3);

DrawGraph(G);

Now in place  of (1,3) i want label 1 , in place  of (2,3) i want label 2, in place  of (1,2) i want label 3, in place  of (2,2) i want label 4, in place  of (1,1) i want label 5, in place  of (2,1) i want label 6

And i want the graph to straight like the above and the edges should be correct and strainght kind help

Kind help in such vertex labeled graph outputs and graphs should be strainght with edges and presented

If i can get both in legacy mode the above all in the above form in the legacy mode it will be more good as i want the color etc like that in my output exactly

kind help  i apologize for the disturbance kind help please

Vertices should not have have any of the (1,1),(2,1) etc in the output it should be labeled with the vertex labels as told in that order

And the edges straingth and good.

kind help  i apologize for the disturbance kind help please

## Longest distance in a graph via maple co...

Maple

Here in the above graph we are trying to find the longest distance between two vertices For example now say we consider vertices v_2 and v_4 in the above graph

P_1 , P_2 ,P_3 are different possible path length in the above graph between v_2 and v_4  and it can be seen now the longest distance is 3 as it is the greatest among all lengths between v_2 and v_4

AllPathshortest only does the shortest path

can anyone help in the in general  finding the longest path between two vertices a graph if i give the

graph and the two vertices it should longest distance

here between v_2 and v_4 longest or greatest distance is 3 which should  greatest length of the several different paths between v_ 2 and v_4 itself

it should display that value.

kind help if anyone can

 1 2 3 Page 1 of 3
﻿