# Tag Info

28

As an Eterprise CDF user, I can say I have really tried, and my current opinion is that creating a standalone GUI program with the Wolfram Language is not an easy/commercial/deliverable task at the moment. Here are my points: All the interface controls are very limited. You will have a lot of difficulty to do basic things like make Tab jump between fields, ...

10

My experience is that while Mathematica does present some headaches with creating consistent layouts the limitations in creating a professional looking app are limited by your ability to do graphic design. For example most reading this could create a web page. But how many could create a cool looking web page? So there are two aspect: underlying code and ...

6

University of Southern Maine has some Mathematica based courses: Engineering Tools: Mathematica (notebooks) Circuits I: Steady-State Analysis (notebooks) Digital Signal Processing (notebooks) Digital Image Processing (notebooks)

4

Use With: Table[With[{v = varx[[i]]}, D[#1, v] &], {i, 3}]` (* {D[#1, x1] & , D[#1, x2] & , D[#1, x3] & } *) See the section "Scope" of the documentation page for With. Note that Function (&) has the attribute HoldAll, so that the value of varx[[i]] needs to be inserted into the function. The above gives a list of operators. An ...

3

There's a second year mathematics and a computation physics course taught by Paul Abbott at the University of Western Australia that uses Mathematica for all of the lectures, workshops and assessments. The maths course uses a customised stylesheet and the assessment notebooks have automated FTP uploading to the assignment dropbox. However, most of the ...

2

You could just do this: if a graph is undirected: Total[UpperTriangularize[WeightedAdjacencyMatrix[g]], 2] if a graph is directed: Total[WeightedAdjacencyMatrix[g], 2] or by PropertyValue Total[PropertyValue[g, EdgeWeight]]

1

You can use Slot (#) but the pure function (&) should be at a different position, i.e. varx = {x1, x2, x3}; Table[List[#1, varx[[i]]], {i, 3}] & @@@ {{f, g}, {h, i}} {{{f, x1}, {f, x2}, {f, x3}}, {{h, x1}, {h, x2}, {h, x3}}}

1

I wrote a small function once to build block-wise diagonal matrices. The zero matrix is just 0 and identity is 1. You could use it in this case like this: diagonalize[list_] := ArrayFlatten@(DiagonalMatrix[Array[x, Length@list]] /. Table[x[i] -> list[[i]], {i, Length@list}]); diagonalize[{EK1, 0}] + diagonalize[{0, EK2}] // MatrixForm Oh, this is ...

1

You can use ArrayPad: ArrayPad[EK2, {1, 0}] + ArrayPad[EK1, {0, 1}] and general approach (Edit: overlap specification added): n = {3, 3}; arrays = Array[#, n] & /@ {a, b, c, d, e}; (*arrays to work with*) app[a1_, a2_, overlap_: 1] := With[{dim = Dimensions@a1}, ArrayPad[a1, {0, n[[1]] - overlap}] + ...

Only top voted, non community-wiki answers of a minimum length are eligible