# User Portlet

Natash A
Discussions
I get the same output even after using GraphPlot[Rule @@@ edges, VertexCoordinates -> Thread[vertices -> crds], EdgeRenderingFunction -> (With[{w = Pick[Rescale[weights], edges, (#2 | Reverse[#2])][[1]]}, {Thickness[.02...
Hi All, I've imported a dxf file generated in AutoCAD into Mathematica, processed it and now the file is exported in dxf format. I am trying to import the same file( exported from Mathematica) into AutoCAD and there is a problem. The file doesn't...
I've the following system of equations for studying information flow in the below graph, $\frac{d \phi}{dt}$ = $-M^TDM$ $\phi$ M is the incidence matrix $\phi$ is a vector with properties [ A B C D E F] [![enter image...
Hi Henrik, Thanks a lot. The dxf export works well. However, I see some discontinuities in the geometry created after importing dxf file.![enter image description here][1] I observe these discontinuities in the output of graphics =...
I've got an image and I want to obtain the centerlines of the image. ([Input image][1]) I could obtain the centerlines using the following commands img = Input_image gray = ImagePad[ImageCrop[ColorConvert[img, "Grayscale"],...
This is a follow-up to my post [here][1] The output of Graphics[BezierCurve /@ cleanLinePoints] gives an image like [this][2]. From the documentation , I understand BezierCurve command fits a cubic spline by default. I would like to relax the...
Thank you very much. I varied the value diffusion constant and check the response. I want to check how the analytical solution differs when there is convection along with diffusion. eqn = D[u[x, t], t] == 100*D[u[x, t], {x, 2}] - 50*D[u[x,...
Hi, I could generate the right figures after upgrading to Mathematica 11.3. I would like to know how to obtain an output of the command, skeleton = Pruning[Pruning@Thinning[bin], 15] in the form of a matrix that stores the pixel...
I am using the commands given [here][1] to convert the following image to a graph of vertices and edges. InputImage = [link][2] SimplifiedImage=Pruning[Thinning[ DeleteSmallComponents[Binarize[Image], 40000]], \[Infinity]] ...