https://community.wolfram.com RSS Feed for Wolfram Community showing questions tagged with Packages with no replies sorted by most viewed. https://community.wolfram.com/groups/-/m/t/516854 Hello, I am trying to use the HadoopLink package for the first time, and running into a few challenges. I am hoping someone out there is using this successfully, and might have some tips for a smooth installation in the current version of mathematica (10.2 at the time of writing this). I have downloaded the open-source project and I am following along with [HadoopLink installation instructions on GitHub][1]. I have unpacked the .zip and placed the HadoopLink folder (and only that folder, not the entire unpacked project) into my $User/Libarary/Mathematica/Applications folder, and loaded the package using: << HadoopLink` But when I proceed to the next step, and execute this code... link = OpenHadoopLink[ "fs.default.name" -> "hdfs://hadoopheadlx.wolfram.com:8020", "mapred.job.tracker" -> "hadoopheadlx.wolfram.com:8021"]; DFSFileNames[link] Mathematica output spews a bunch of Java exceptions (attached). Anybody have more detailed instructions on setting up HadoopLink? Maybe I should have put the entire project folder into the /Applications folder instead. I will try that now... [1]: https://github.com/shadanan/HadoopLink Caitlin Ramsey 2015-06-22T15:09:06Z https://community.wolfram.com/groups/-/m/t/1078649 I want to use standard engineering notation, so I use Symbolize[] to define a symbol q'' (q double prime) for the heat flux (heat transfer rate per unit area) as a composite of the letter q and double prime (actually two aliased single quotes: [Esc]'[Esc] [Esc]'[Esc]). I also want to use subscripts to denote the heat flux at different locations, e.g., the heat flux through a liquid film is represented by \!\(\*SubsuperscriptBox[\(q\), \(film\), \(\[Prime]\[Prime]\)]\) My example code is appended below. The problem arises when I rerun the notebook using either Shift-Enter or Evaluate Notebook. The first time I run the code, I get the expected answer \!\(\*SubsuperscriptBox[\(q\), \(film\), \(\[Prime]\[Prime]\)]\))^2 If I run the code a second time, I get the same result again (as expected). A third time, same result. However, if I run the code a fourth time, Mathematica seems to ignore the Remove[], and I get the unexpected result: f[\!\(\*SubsuperscriptBox[\(q\), \(film\), \(\[Prime]\[Prime]\)]\)]=625 The problem disappears if I append Quit[] as the final statement. I'm running Mathematica 11.1.1.0. Questions: 1. Why does Mathematica ignore Remove[]. 2. Why does it wait until the fourth time through the code to do so? 3. Why is Quit[] required to get the correct behavior? I'm not completely sure if this is a problem with Notation, with Remove, or some interaction of the two. Thanks. Example code: Remove["Global`*"] Needs["Notation`"]; Symbolize[ ParsedBoxWrapper[ SuperscriptBox["q", "\[Prime]\[Prime]"]]]; Symbolize[ ParsedBoxWrapper[ SubsuperscriptBox["q", "_", "\[Prime]\[Prime]"]]]; f[\[Xi]_] := \[Xi]^2 f[ \!\(\*SubsuperscriptBox[\(q\), \(film\), \(\[Prime]\[Prime]\)]\)] \!\( \*SubsuperscriptBox[\(q\), \(film\), \(\[Prime]\[Prime]\)] = 25. \) Glenn Carlson 2017-05-01T12:14:52Z https://community.wolfram.com/groups/-/m/t/1818557 I can connect to an external MQTT broker with the MQTTLink` library. Here below an example using the Mosquito.org testing service: Get@"MQTTLink`" imAclientForExternal = CreateClient[]; ConnectClient[imAclientForExternal, "test.mosquitto.org:1883"]; TopicSubscribe[imAclientForExternal, "wolframTest", "MessageReceivedFunction" :> (Print[ ByteArrayToString[#3["Data"]]] &)]; TopicPublish[imAclientForExternal, "wolframTest" -> "my personal message"]; TopicUnsubscribe[imAclientForExternal, "wolframTest"] But since this is not a documented library, I was wondering if it is possible, and how, to do exactly the same with the Channel framework. Pedro Fonseca 2019-11-03T17:33:20Z https://community.wolfram.com/groups/-/m/t/830659 Hi All, I find this ['MCMC' package][1] that can perform Markov Chain Monte Carlo simulations. However, I found this package doesn't use much of the built-in stochastic process functions. Also, due to my very limited knowledge of stochastic processes, I'd like to get better understanding of MCMC via a more Mathematica way. As such, I'm wondering if such MCMC simulation can be performed with higher-level built-in stochastic functions (e.g. `RandomFunction`, `HiddenMarkovProcess`)? Note: Cross-posted at [StackExchange][2]. [1]: https://github.com/joshburkart/mathematica-mcmc [2]: http://mathematica.stackexchange.com/questions/111224/how-to-implement-markov-chain-monte-carlo-with-built-in-functions?noredirect=1#comment301914_111224 Ting Sun 2016-03-27T23:36:50Z https://community.wolfram.com/groups/-/m/t/1742031 I will like some help completing this compilation . It runs fine in Visual Studio 2017 and the solution projet is available at Github [here][1] My Mathematic code has a problem identifying one of the header files php.c . I went to the documentation ut can not figure how to include the file here since not sure where is in the VS2017 directory. Here is the code in Mathematica Needs["CCompilerDriver`"] CCompilers[] hello = CreateExecutable[" // MC777Scattering.cpp : This file contains the 'main' function. \ Program execution begins and ends there. // /******************************************** * Original work from Biomedical Optics Series Steven L. Jacques, Scott A. Prahl * mc321.c , in ANSI Standard C programing language * * Monte Carlo simulation yielding spherical, cylindrical, and \ planar * responses to an isotropic point source in an infinite \ homogeneous * medium with no boundaries. This program is a minimal Monte \ Carlo * program scoring photon distributions in spherical, cylindrical, * and planar shells. * * by Steven L. Jacques based on prior collaborative work * with Lihong Wang, Scott Prahl, and Marleen Keijzer. * partially funded by the NIH (R29-HL45045, 1991-1997) and * the DOE (DE-FG05-91ER617226, DE-FG03-95ER61971, 1991-1999). * * A published report illustrates use of the program: * S. L. Jacques: \"Light distributions from point, line, and \ plane * sources for photochemical reactions and fluorescence in turbid * biological tissues,\" Photochem. Photobiol. 67:23-32, 1998. * * Trivial fixes to remove warnings SAP, 11/2017 * Theodore Info: * The problem with the code was the fopen function. This function \ is deprecated * and has been replace with the fopen_s function whose parameters \ are as follows * fopen_s(<pointer to a file stream e.g FILE* >, <filename>, \ <options e.g w, r>) * Modified by Abohweyere Oghenefejiro Theodore of Durham College \ Canada * Modified by Jose E. Calderon University of Puerto Rico for a \ solution in VS C++ 2017 **********/ #include <math.h> #include <stdio.h> #include \"pch.h\" #include <iostream> #define PI 3.1415926 #define LIGHTSPEED 2.997925E10 /* in vacuo speed of light [cm/s] */ #define ALIVE 1 /* if photon not yet terminated */ #define DEAD 0 /* if photon is to be terminated */ #define THRESHOLD 0.01 /* used in roulette */ #define CHANCE 0.1 /* used in roulette */ #define COS90D 1.0E-6 /* If cos(theta) <= COS90D, theta >= PI/2 - 1e-6 rad. */ #define ONE_MINUS_COSZERO 1.0E-12 /* If 1-cos(theta) <= ONE_MINUS_COSZERO, fabs(theta) <= 1e-6 rad. \ */ /* If 1+cos(theta) <= ONE_MINUS_COSZERO, fabs(PI-theta) <= 1e-6 \ rad. */ #define SIGN(x) ((x)>=0 ? 1:-1) #define InitRandomGen (double) RandomGen(0, 1, NULL) /* Initializes the seed for the random number generator. */ #define RandomNum (double) RandomGen(1, 0, NULL) /* Calls for a random number from the randum number generator. */ /* DECLARE FUNCTION */ double RandomGen(char Type, long Seed, long *Status); /* Random number generator */ int main() { /* Propagation parameters */ register double x, y, z; /* photon position */ register double ux, uy, uz; /* photon trajectory as cosines */ register double uxx, uyy, uzz; /* temporary values used during \ SPIN */ register double s; /* step sizes. s = -log(RND)/mus [cm] */ register double costheta; /* cos(theta) */ register double sintheta; /* sin(theta) */ register double cospsi; /* cos(psi) */ register double sinpsi; /* sin(psi) */ register double psi; /* azimuthal angle */ register double i_photon; /* current photon */ register double W; /* photon weight */ register double absorb; /* weighted deposited in a step due to \ absorption */ register short photon_status; /* flag = ALIVE=1 or DEAD=0 */ /* other variables */ register double Csph[1001]; /* spherical photon concentration \ CC[ir=0..100] */ register double Ccyl[1001]; /* cylindrical photon concentration \ CC[ir=0..100] */ register double Cpla[1001]; /* planar photon concentration \ CC[ir=0..100] */ register double Fsph; /* fluence in spherical shell */ register double Fcyl; /* fluence in cylindrical shell */ register double Fpla; /* fluence in planar shell */ register double mua; /* absorption coefficient [cm^-1] */ register double mus; /* scattering coefficient [cm^-1] */ register double g; /* anisotropy [-] */ register double albedo; /* albedo of tissue */ register double nt; /* tissue index of refraction */ register double Nphotons; /* number of photons in simulation */ register short NR; /* number of radial positions */ register double radial_size; /* maximum radial size */ register double r; /* radial position */ register double dr; /* radial bin size */ register short ir; /* index to radial position */ register double shellvolume; /* volume of shell at radial \ position r */ /* dummy variables */ register double rnd; /* assigned random value 0-1 */ register double temp; /* dummy variables */ FILE* target; /* point to output file */ /**** INPUT Input the optical properties Input the bin and array sizes Input the number of photons *****/ mua = 1.0; /* cm^-1 */ mus = 0.1; /* cm^-1 */ g = 0.090; nt = 1.33; Nphotons = 100000000; /* set number of photons in simulation */ radial_size = 6.0; /* cm, total range over which bins extend */ NR = 1000; /* set number of bins. */ /* IF NR IS ALTERED, THEN USER MUST ALSO ALTER THE ARRAY \ DECLARATION TO A SIZE = NR + 1. */ dr = radial_size / NR; /* cm */ albedo = mus / (mus + mua); /**** INITIALIZATIONS *****/ i_photon = 0; InitRandomGen; for (ir = 0; ir <= NR; ir++) { Csph[ir] = 0; Ccyl[ir] = 0; Cpla[ir] = 0; } /**** RUN Launch N photons, initializing each one before progation. *****/ do { /**** LAUNCH Initialize photon position and trajectory. Implements an isotropic point source. *****/ i_photon += 1; /* increment photon count */ W = 1.0; /* set photon weight to one */ photon_status = ALIVE; /* Launch an ALIVE photon */ x = 0; /* Set photon position to origin. */ y = 0; z = 0; /* Randomly set photon trajectory to yield an isotropic source. */ costheta = 2.0*RandomNum - 1.0; sintheta = sqrt(1.0 - costheta * costheta); /* sintheta is always \ positive */ psi = 2.0*PI*RandomNum; ux = sintheta * cos(psi); uy = sintheta * sin(psi); uz = costheta; /* HOP_DROP_SPIN_CHECK Propagate one photon until it dies as determined by ROULETTE. *******/ do { /**** HOP Take step to new position s = stepsize ux, uy, uz are cosines of current photon trajectory *****/ while ((rnd = RandomNum) <= 0.0); /* yields 0 < rnd <= 1 */ s = -log(rnd) / (mua + mus); /* Step size. Note: log() \ is base e */ x += s * ux; /* Update positions. */ y += s * uy; z += s * uz; /**** DROP Drop photon weight (W) into local bin. *****/ absorb = W * (1 - albedo); /* photon weight absorbed at \ this step */ W -= absorb; /* decrement WEIGHT by amount \ absorbed */ /* spherical */ r = sqrt(x*x + y * y + z * z); /* current spherical radial \ position */ ir = (short)(r / dr); /* ir = index to spatial bin */ if (ir >= NR) ir = NR; /* last bin is for overflow */ Csph[ir] += absorb; /* DROP absorbed weight into bin */ /* cylindrical */ r = sqrt(x*x + y * y); /* current cylindrical radial \ position */ ir = (short)(r / dr); /* ir = index to spatial bin */ if (ir >= NR) ir = NR; /* last bin is for overflow */ Ccyl[ir] += absorb; /* DROP absorbed weight into bin */ /* planar */ r = fabs(z); /* current planar radial position */ ir = (short)(r / dr); /* ir = index to spatial bin */ if (ir >= NR) ir = NR; /* last bin is for overflow */ Cpla[ir] += absorb; /* DROP absorbed weight into bin */ /**** SPIN Scatter photon into new trajectory defined by theta and psi. Theta is specified by cos(theta), which is determined based on the Henyey-Greenstein scattering function. Convert theta and psi into cosines ux, uy, uz. *****/ /* Sample for costheta */ rnd = RandomNum; if (g == 0.0) costheta = 2.0*rnd - 1.0; else { double temp = (1.0 - g * g) / (1.0 - g + 2 * g*rnd); costheta = (1.0 + g * g - temp * temp) / (2.0*g); } sintheta = sqrt(1.0 - costheta * costheta); /* sqrt() is faster \ than sin(). */ /* Sample psi. */ psi = 2.0*PI*RandomNum; cospsi = cos(psi); if (psi < PI) sinpsi = sqrt(1.0 - cospsi * cospsi); /* sqrt() is faster \ than sin(). */ else sinpsi = -sqrt(1.0 - cospsi * cospsi); /* New trajectory. */ if (1 - fabs(uz) <= ONE_MINUS_COSZERO) { /* close to \ perpendicular. */ uxx = sintheta * cospsi; uyy = sintheta * sinpsi; uzz = costheta * SIGN(uz); /* SIGN() is faster than division. \ */ } else { /* usually use this option */ temp = sqrt(1.0 - uz * uz); uxx = sintheta * (ux * uz * cospsi - uy * sinpsi) / temp + ux * \ costheta; uyy = sintheta * (uy * uz * cospsi + ux * sinpsi) / temp + uy * \ costheta; uzz = -sintheta * cospsi * temp + uz * costheta; } /* Update trajectory */ ux = uxx; uy = uyy; uz = uzz; /**** CHECK ROULETTE If photon weight below THRESHOLD, then terminate photon using \ Roulette technique. Photon has CHANCE probability of having its weight increased \ by factor of 1/CHANCE, and 1-CHANCE probability of terminating. *****/ if (W < THRESHOLD) { if (RandomNum <= CHANCE) W /= CHANCE; else photon_status = DEAD; } } /* end STEP_CHECK_HOP_SPIN */ while (photon_status == ALIVE); /* If photon dead, then launch new photon. */ } /* end RUN */ while (i_photon < Nphotons); /**** SAVE Convert data to relative fluence rate [cm^-2] and save to file \ called \"mcmin321.out\". Theodore: Here fopen(<filename>, <options>) has been replaced \ with fopen_s(<pointer to a file stream e.g FILE* >, <filename>, \ <options e.g w, r>) *****/ fopen_s(&target, \"mc321_.out\", \"w\"); /* print header */ fprintf(target, \"number of photons = %f\\n\", Nphotons); fprintf(target, \"bin size = %5.5f [cm] \\n\", dr); fprintf(target, \"last row is overflow. Ignore.\\n\"); /* print column titles */ fprintf(target, \"r [cm] \\t Fsph [1/cm2] \\t Fcyl [1/cm2] \\t \ Fpla [1/cm2]\n\"); /* print data: radial position, fluence rates for 3D, 2D, 1D \ geometries */ for (ir = 0; ir <= NR; ir++) { /* r = sqrt(1.0/3 - (ir+1) + (ir+1)*(ir+1))*dr; */ r = (ir + 0.5)*dr; shellvolume = 4.0*PI*r*r*dr; /* per spherical shell */ Fsph = Csph[ir] / Nphotons / shellvolume / mua; shellvolume = 2.0*PI*r*dr; /* per cm length of cylinder */ Fcyl = Ccyl[ir] / Nphotons / shellvolume / mua; shellvolume = dr; /* per cm2 area of plane */ Fpla = Cpla[ir] / Nphotons / shellvolume / mua; fprintf(target, \"%5.5f \\t %4.3e \\t %4.3e \\t %4.3e \\n\", r, \ Fsph, Fcyl, Fpla); } fclose(target); } /* end of main */ /* SUBROUTINES */ /************************************************************************** * RandomGen * A random number generator that generates uniformly * distributed random numbers between 0 and 1 inclusive. * The algorithm is based on: * W.H. Press, S.A. Teukolsky, W.T. Vetterling, and B.P. * Flannery, \"Numerical Recipes in C,\" Cambridge University * Press, 2nd edition, (1992). * and * D.E. Knuth, \"Seminumerical Algorithms,\" 2nd edition, vol. 2 * of \"The Art of Computer Programming\", Addison-Wesley, \ (1981). * * When Type is 0, sets Seed as the seed. Make sure \ 0<Seed<32000. * When Type is 1, returns a random number. * When Type is 2, gets the status of the generator. * When Type is 3, restores the status of the generator. * * The status of the generator is represented by Status[0..56]. * * Make sure you initialize the seed before you get random * numbers. ****/ #define MBIG 1000000000 #define MSEED 161803398 #define MZ 0 #define FAC 1.0E-9 double RandomGen(char Type, long Seed, long *Status) { static long i1, i2, ma[56]; /* ma[0] is not used. */ long mj, mk; short i, ii; if (Type == 0) { /* set seed. */ mj = MSEED - (Seed < 0 ? -Seed : Seed); mj %= MBIG; ma[55] = mj; mk = 1; for (i = 1; i <= 54; i++) { ii = (21 * i) % 55; ma[ii] = mk; mk = mj - mk; if (mk < MZ) mk += MBIG; mj = ma[ii]; } for (ii = 1; ii <= 4; ii++) for (i = 1; i <= 55; i++) { ma[i] -= ma[1 + (i + 30) % 55]; if (ma[i] < MZ) ma[i] += MBIG; } i1 = 0; i2 = 31; } else if (Type == 1) { /* get a number. */ if (++i1 == 56) i1 = 1; if (++i2 == 56) i2 = 1; mj = ma[i1] - ma[i2]; if (mj < MZ) mj += MBIG; ma[i1] = mj; return (mj * FAC); } else if (Type == 2) { /* get status. */ for (i = 0; i < 55; i++) Status[i] = ma[i + 1]; Status[55] = i1; Status[56] = i2; } else if (Type == 3) { /* restore status. */ for (i = 0; i < 55; i++) ma[i + 1] = Status[i]; i1 = Status[55]; i2 = Status[56]; } else puts(\"Wrong parameter to RandomGen().\"); return (0); } #undef MBIG #undef MSEED #undef MZ #undef FAC } ", "hellomyfirst", Language -> "C++", "Compiler" -> CCompilerDriver`VisualStudioCompiler`VisualStudioCompiler, "CompilerInstallation" -> "C:\\Program Files (x86)\\Microsoft Visual Studio\\2017\\Community", "CompilerName" -> Automatic ] Import["!" <> QuoteFile[hello], "Text"] [1]: https://github.com/jecalderon/MC777Scattering Jose Calderon 2019-07-21T00:20:54Z https://community.wolfram.com/groups/-/m/t/1225366 Dr. Chung recently received a reward from Wolfram for his symbolic package. Does anyone know how to gain access? here is his book: [book][1] defunct link: http://symbcomp.gist.ac.kr/ defunct 2011 sample: http://library.wolfram.com/infocenter/Conferences/8063/ [1]: https://link.springer.com/chapter/10.1007/978-3-662-44199-2_4 Kay Herbert 2017-11-21T04:30:43Z https://community.wolfram.com/groups/-/m/t/886243 Hello, I am trying to transfer the indicator bar to the user interface for my application but I fail to do so. I have 2 problems: 1. When I use ParallelDo loop the indicator bar is not get updated with the calculation. I tried to implant the idea from http://stackoverflow.com/questions/7352461/monitoring-progress-of-a-parallel-computation-in-mathematica , no success. 2. I would like to insert a row to my user interface where I can insert the indicator bar. I got the idea using Monitor and ProgressIndicator couple from -> http://stackoverflow.com/questions/4398214/update-a-progress-bar-in-mathematica Here, what I did so far. Main code Get[FileNameJoin[{NotebookDirectory[EvaluationNotebook[]], "DummyPackage.wl"}]]; Panel[DynamicModule[{np = 1000, nd = 30, Res = 1.0}, Column[{Style["Random", "Function"] , Row[{"Digits ", InputField[Dynamic[nd]]}, Spacer[5]], Row[{"Precision ", InputField[Dynamic[np]]}, Spacer[5]], Button[Style["Calculate", Green, Bold], Res = DummyPackage`myDummyF[nd, np], Method -> "Queued"], Row[{Style["Result ", 12, Red], InputField[Dynamic[Res], FieldSize -> 30, Enabled -> False]}, Spacer[15]] }], Initialization :> ( Get[FileNameJoin[{NotebookDirectory[EvaluationNotebook[]], "DummyPackage.wl"}]];)]] the package BeginPackage["DummyPackage`"] myDummyF[nd_,np_]:=Module[{mat,mat2,aI}, ns=200; mat=SetAccuracy[RandomReal[{-100,100},ns],nd]; mat2=SetAccuracy[RandomReal[{-200,200},ns],nd]; aI=ConstantArray[0,np]; SetSharedVariable[aI,iC]; Time=AbsoluteTiming[ If[nd<=16, Monitor[Do[ If[iC==2,Print["---------------------"]]; If[iC==2,Print["Do Loop"," nd= ",nd," np= ",np]]; aI[[iC]]=SetAccuracy[mat.(mat2/iC^0.5),nd],{iC,np}], ProgressIndicator[Dynamic[iC/np]]], Monitor[ParallelDo[ If[iC==2,Print["---------------------"]]; If[iC==2,Print[" ParallelDo Loop"," nd= ",nd," np= ",np]]; aI[[iC]]=SetAccuracy[mat.(mat2/iC^0.5),nd],{iC,np}],ProgressIndicator[Dynamic[iC/np]]]]]; Print["Do loop time = ",Time[[1]]]; aInum=Apply[Plus,(aI/np)]; Print["Total = ",aInum]; Print["---------------------"]; Return[aInum]] SetAttributes[{myDummyF},{ReadProtected,Protected,Locked}]; EndPackage[]; Here I can't see the bar in the nb. If I don't use a user interface for example : myDummyF[nd_, np_] := Module[{mat, mat2, aI}, ns = 200; mat = SetAccuracy[RandomReal[{-100, 100}, ns], nd]; mat2 = SetAccuracy[RandomReal[{-200, 200}, ns], nd]; aI = ConstantArray[0, np]; SetSharedVariable[aI, iC]; Time = AbsoluteTiming[ If[nd <= 16, Monitor[Do[ If[iC == 2, Print["Do Loop"]]; aI[[iC]] = SetAccuracy[mat.(mat2/iC^0.5), nd], {iC, np}], ProgressIndicator[Dynamic[iC/np]]], Monitor[ParallelDo[ If[iC == 2, Print[" ParallelDo Loop"]]; aI[[iC]] = SetAccuracy[mat.(mat2/iC^0.5), nd], {iC, np}], ProgressIndicator[Dynamic[iC/np]]]]]; Print["Do loop time = ", Time[[1]], ", np = ", np, ", nd = ", nd]; aInum = Apply[Plus, (aI/np)]; Print["Total = ", aInum]; Return[aInum]]; np = 100000; nd = 15; myDummyF[nd, np]; Do Loop version is working but I am not able to make it work for ParallelDo. Thank you. ps: I could not attach .wl format so I saved the package as .m file. Erdem Uguz 2016-07-11T16:46:13Z https://community.wolfram.com/groups/-/m/t/977819 I would like to start a discussion on how to best handle errors in Mathematica. You are writing a package that many people will use. They may use your functions interactively, or they may use them inside larger functions they define. There is an error condition in your function—incorrect input, can't solve the problem, unexpected failure, etc. What should your function do? There is already a great post by Leonid about this here: * http://mathematica.stackexchange.com/a/29323/12 I thought it was time to revisit the topic and share some thoughts about how each of us typically handles errors. To get the discussion started, here are some things to think about: - The error should be communicated in a user-friendly manner to interactive users - There should be an easy way to catch and handle the error programmatically - It should be easy to track down where the error occurred in a large code block (e.g. function `X` should associate its messages with `X`) Typical ways used by builtins: - Issue a message and stay unevaluated (e.g. `Integral`) (not friendly to programmatic error handling) - Return `$Failed`, with or without an accompanying message - Return `Failure[...]` (e.g. `Interpreter`) - `Throw` something (not friendly to interactive users) - Some functions are designed in such a way as to never error out, e.g. most `Q` functions, like `OddQ`, will always return `True` or `False` and just return `False` for input that one might consider inappropriate. There are multiple challenges to implementing each, as well as handling each type of error. Szabolcs Horvát 2016-12-10T17:59:32Z https://community.wolfram.com/groups/-/m/t/1396848 I am trying to give information to the user of the code via popup windows with CreateDialog. It is working fine when I use .nb file, the windows has the information and the plots and after 5seconds pause they close. But when I save .nd file as EnterPrise CDF it is not working, no windows there for I don't know if they would close. I don't know why? Any ideas. Here is a "toy code" what I am trying to do. Get[FileNameJoin[{NotebookDirectory[EvaluationNotebook[]], "Trialpack3.wl"}]] Panel@Framed[DynamicModule[{Heval = 1, Leval = 1}, Grid[{ {Style[" "], SpanFromLeft}, {Style[" Inputs ", 16, Blue], SpanFromLeft}, {Style[" "], SpanFromLeft}, {Row[{Style["H, (m) ", 12, Blue, Editable -> False], InputField[Dynamic[Heval], FieldSize -> {10, 1.5}]}, Spacer[70]], Row[{Style["L, (m) ", 12, Blue, Editable -> False], InputField[Dynamic[Leval], FieldSize -> {10, 1.5}]}, Spacer[45]]}, {Grid[{ {Style[" ", 12, Black, Editable -> False]}, {Button[ Style["Compute", Green, Bold], Res = Trialpack3`MainFunc[Heval, Leval];, Method -> "Queued"]}}], SpanFromLeft}, {Style["", 12, Blue], Style["", 12, Blue]} }], Initialization :> ( Get[FileNameJoin[{NotebookDirectory[EvaluationNotebook[]], "Trialpack3.wl"}]]) ], Background -> Lighter[Gray, .6]] And the package file is BeginPackage["Trialpack3`"]; MainFunc::usage=" "; Begin["`Private`"]; $MaxExtraPrecision=\[Infinity]; MainFunc[H_,L_]:=Module[{}, Quiet[LaunchKernels[]]; DimenScales=CreateDialog[Row[{Style[" Variables \n",18,Black], Row[{Style[" \n H= ",14,Blue],Style[ToString[N[H],TraditionalForm],14,Black],Style[" \n ",14,Red]}], Row[{Style[" \n L= ",14,Blue],Style[ToString[N[L],TraditionalForm],14,Black],Style[" \n ",14,Red]}] }]]; Tplot3DINI=Plot3D[Sin[x*z],{x,0,L},{z,0,H},ImageSize->Medium]; TplotConINI=ContourPlot[Sin[x*z],{x,0,L},{z,0,H},ImageSize->Medium]; T3DplotDialog3D=CreateDialog[Grid[{{Row[{Style[" FIELD \n",15,Red] }]},{Tplot3DINI}}],Background->White]; T3DplotDialogCon=CreateDialog[Grid[{{Row[{Style[" FIELD \n",15,Red] }]},{TplotConINI}}],Background->White]; Pause[5]; NotebookClose[DimenScales]; NotebookClose[T3DplotDialog3D]; NotebookClose[T3DplotDialogCon]; ]; SetAttributes[MainFunc,{HoldAll}]; End[]; EndPackage[]; I saved two version of cdf file; one with the code of the interface visible (GUITrialv1cdf.cdf) and without one (GUITrialv2cdf.cdf). Erdem Uguz 2018-08-03T11:43:07Z https://community.wolfram.com/groups/-/m/t/1008389 I have a difficulty in getting worldwide data usng "FinancialData[*]" of mathematica because most of data are ommitted in spite of its existencs. 1) what is the reason? from which database does "FinancialData[]" get data? How can i get permission about missing data ? 2) if i use buy and use 'finance platform' as additional package, can i solve this missing data problem? 3) How much is the data coverage of Bloomberglink of 'finance platform' ? Can i get time series of world-wide real estate(mortgaged house) price through Bloomberglink ? bongjoon kim 2017-02-05T04:01:25Z https://community.wolfram.com/groups/-/m/t/947678 Hello, I would like to use the Fuzzy Logic in Mathematica. I found the following [page][1] at Wolfram. Is there a possibility to use this in the current Mathematica Version ? thanks Sebastian [1]: http://reference.wolfram.com/applications/fuzzylogic/ Sebastian Lehmann 2016-10-21T10:33:38Z https://community.wolfram.com/groups/-/m/t/880565 Hello In the past I had not problem to link a R distribution (already installed on my mac) to Mathematica (now 10.3.1.0) using RLink. However, after upgrading R to MRO 3.2.4, the InstallR no longer works. The commands I have used are Needs["RLink`"] SetEnvironment[ "DYLD_LIBRARY_PATH" -> "/Library/Frameworks/R.framework/Resources/lib"]; InstallR["RHomeLocation" -> "/Library/Frameworks/R.framework/Resources", "RVersion" -> "3.2.4"]; The error msg is InstallR::fail: Failed to install R. The following error was encountered: Unable to load dynamic libraries >> Any suggestions? Many thanks Ed Eduardo Mendes 2016-07-03T00:47:01Z https://community.wolfram.com/groups/-/m/t/1079114 Anyone know how to fetch the current webMathematica kernel ID number (e.g. {0,1,2,3...} as reported by Resources/Tools/KernelMonitor.jsp) from within my webMathematica code. I can use $ProcessID to get a UNIX PID, but I'd prefer to have the Kernel ID associated with that PID. Also, I'd like to know how to fetch the current tomcat servlet ID from within webMathematica. Any idea how to do this? This is the value logged as '%t' in the log4j logging package used by tomcat (e.g. 'http-bio-8080-exec-4') when running webMathematica transactions. Thanks! Jim Van Riper 2017-05-01T17:25:17Z https://community.wolfram.com/groups/-/m/t/1807614 Hi guys, again another problem with ExcelLink for Mathematica. When I run the first time a MMA macro in ExcelLink it works , but after seams that the link between Excel and MMA kernel is broken. If I go in ExcelLink -> option -> Kernel and try to close the kernel i receive the error Mathematica Link For Excel: Invalid Procedure Call Or Argument My version of MMA is 12 and ExcelLink 3.7 Now on my Excel Sheet i have some RTD call to InteractiveBroker TWS platform and nothing more. Is there something that I can do ? Thanks Massimo Salese 2019-10-15T09:27:17Z https://community.wolfram.com/groups/-/m/t/1030176 Hello guys! I want to install the package "MathLie" in Mathematica 10.0 on Windows 10 to determine Lie symmetries of PDEs. I tried to install this package but it looks like it is not done. Can anybody guide me how to do it and use this package? Usman Afzal 2017-03-13T18:06:15Z https://community.wolfram.com/groups/-/m/t/1309207 I want to solve the Lokta Fisher model, a system of two differential partial equations that represents diffusion of two innovations around a City (Paris). I try with this program, but NDSolveValue don't accept to solve this system of non linear équations. I think that I must remplace DirichetConditions by NeumannValues. But the documentation is not very clear ? Can you help me ? (*Equation reaction diffusion temporelle *) ClearAll["Global`*"] Needs["NDSolve`FEM`"] parisradius = 0.3; parisdiffusionvalue = 150; carto = DiscretizeGraphics[ CountryData["France", {"Polygon", "Mercator"}] /. Polygon[x : {{{_, _} ..} ..}] :> Polygon /@ x]; paris = First@ GeoGridPosition[ GeoPosition[ CityData[Entity["City", {"Paris", "IleDeFrance", "France"}]][ "Coordinates"]], "Mercator"]; bmesh = ToBoundaryMesh[carto, AccuracyGoal -> 1, "IncludePoints" -> CirclePoints[paris, parisradius, 50]]; mesh = ToElementMesh[bmesh, MaxCellMeasure -> 0.05, MeshQualityGoal -> 0]; mesh["Wireframe"]; op1 = \!\( \*SubscriptBox[\(\[PartialD]\), \(t\)]\(u[t, x, y]\)\) + 12/10*u[t, x, y] + 3/1000*u[t, x, y]*2/1000*v[t, x, y] - \!\( \*SubsuperscriptBox[\(\[Del]\), \({x, y}\), \(2\)]\(u[t, x, y]\)\) - 20; op2 = \!\( \*SubscriptBox[\(\[PartialD]\), \(t\)]\(v[t, x, y]\)\) + 12/10*v[t, x, y] + 1/1000*u[t, x, y]*2/1000*v[t, x, y] - \!\( \*SubsuperscriptBox[\(\[Del]\), \({x, y}\), \(2\)]\(v[t, x, y]\)\) - 10; ini = {u[0, x, y] == 100, v[0, x, y] == 90}; ub1 = DirichletCondition[u[t, x, y] == 0, Norm[{x, y} - paris] > .6]; ub2 = DirichletCondition[u[t, x, y] == parisdiffusionvalue, Norm[{x, y} - paris] < .6]; vb1 = DirichletCondition[v[t, x, y] == 0, Norm[{x, y} - paris] > .6]; vb2 = DirichletCondition[v[t, x, y] == parisdiffusionvalue, Norm[{x, y} - paris] < .6]; bce = {ub1, ub2, vb1, vb2}; {usol, vsol} = NDSolveValue[{op1 == 1, op2 == 1, ini, bce}, {u[t, x, y], v[t, x, y]}, {t, 0, 20}, {x, y} \[Element] mesh] usol = usol[[0]] frames = Table[ ContourPlot[usol[t, x, y], {x, y} \[Element] usol["ElementMesh"], PlotRange -> {0, 160}], {t, 0, 20, 2}]; ListAnimate[frames, SaveDefinitions -> True] vsol = vsol[[0]] frames = Table[ ContourPlot[vsol[t, x, y], {x, y} \[Element] vsol["ElementMesh"], PlotRange -> {0, 160}], {t, 0, 20, 2}]; ListAnimate[frames, SaveDefinitions -> True] NDSolveValue::femnonlinear: Nonlinear coefficients are not supported in this version of NDSolve. Set::shape: Lists {usol,vsol} and NDSolveValue[{-20+6/5 u[t,x,y]+(3 u[t,x,y] v[t,x,y])/500000-(u^(0,0,2))[t,x,y]-(u^(0,2,0))[t,x,y]+(u^(1,0,0))[t,x,y]==1,-10+6/5 v[t,x,y]+(u[t,x,y] v[t,x,y])/500000-(v^(0,0,2))[t,x,y]-(v^(0,2,0))[t,x,y]+(v^(1,0,0))[t,x,y]==1,{u[0,x,y]==100,v[0,x,y]==90},{DirichletCondition[u[t,x,y]==0,Sqrt[Power[<<2>>]+Power[<<2>>]]>0.6],DirichletCondition[u[t,x,y]==150,Sqrt[Power[<<2>>]+Power[<<2>>]]<0.6],DirichletCondition[v[t,x,y]==0,Sqrt[Power[<<2>>]+Power[<<2>>]]>0.6],DirichletCondition[v[t,x,y]==150,Sqrt[Power[<<2>>]+Power[<<2>>]]<0.6]}},<<2>>,{x,y}\[Element]ElementMesh[<<1>>]] are not the same shape. André Dauphiné 2018-03-26T09:26:25Z https://community.wolfram.com/groups/-/m/t/1786460 I tried both instructions on my PC Needs["CUDALink`"] CUDAQ[] The last instruction doesn't return anything Does this mean latest Mathematica 12 doesn't support GTX 1070 video card ? I also tried and dowloaded from https://www.wolfram.com/CUDA/CUDAResources.html CUDA Paclet CUDA Toolkit Mathematica 12.0.0 Files and executed bellow ... but no success Needs["CUDALink`"] CUDAResourcesInstall["<path_to_paclet>", Update->True] CUDADriverVersion[] "398.18" In[7]:= CUDAResourcesInformation[] Out[7]= {{"Name" -> "CUDAResources", "Version" -> "12.0.359", "BuildNumber" -> "", "Qualifier" -> "Win64", "WolframVersion" -> "12.0", "SystemID" -> {"Windows-x86-64"}, "ProductName" -> All, "Description" -> "{ToolkitVersion -> v10.1, MinimumDriver -> 290}", "Category" -> "", "Creator" -> "", "Publisher" -> "", "Support" -> "", "Internal" -> False, "Updating" -> Manual, "Location" -> "C:\\Users\\xxx\\AppData\\Roaming\\Mathematica\\Paclets\\\ Repository\\CUDAResources-Win64-12.0.359", "Context" -> {}, "Enabled" -> True, "Loading" -> Manual, "Hash" -> "3357678c60aa79e333fe04fbb5d04dd7"}} Bogd Timo 2019-09-09T18:45:21Z https://community.wolfram.com/groups/-/m/t/381593 I copied a .m package file that I wrote on a Windows machine to my Mac running OSX 10.9. I can see the contents in a text editor and I can load it into a notebook and the functions run correctly. But if I attempt to open the file in the Mathematica editor the file shows up as blank. Has anyone else had this problem and, if so, how can I fix it? I can include the file if it will help. Edit: Additional information I initially transferred the file by mailing it from the Windows machine to the Mac. Today I decided to transfer it again using a thumb drive and this time the file contents show up in the editor so the problem is solved. But if anyone has an idea as to what caused the file to show blank in the editor I would be interested in the answer. Mike Luntz 2014-11-01T00:57:07Z https://community.wolfram.com/groups/-/m/t/1441303 I am puzzled with the fact that OpenDevice Arduino command uploads a driver with limited compatiblility limited to Uno and Yun. Firmata client has upgraded to v. 2 that recognized the 62 pins in Arduino Mega. Why is Mathematica behind? Can I create and load my own package and upload a client C ++ code of FIRMATA to recognized arduino and how will I start to do this? **UPDATE** I am following up on the subject. Surprised that no interest has been pick up her. Windows has published the new UWP sdk with serials communication for Arduino and FIRMATA hasadvanced tov 2 recognizing pins from any MEga board including Megas. But Mathematica still behind and has notupdatedthe FIRMATA library . My problems with this is that not able to have a Aduino Mega or any other board used under the Arduino OpenDevice functions. **UPDATE 2** Is anyone working with devices here? There is no sign that Mathematica plans to update the Arduino function. I am interested on a path to allow to write my own code and upload to Mathematica to read all the pins from the Ard Jose Calderon 2018-09-06T13:09:54Z https://community.wolfram.com/groups/-/m/t/832567 Hi all, I'm pretty new to the Machine Learning package in Mathematica, and so far I like how easy it is to use. However, one thing that I wish it had was more information about how mathematica is treating high-dimensional datasets. In particular, I would like to be able to understand which features are relatively more or less important in the classification model. For example, I have a 34-dimensional dataset of clinical variables for patients who either did or did not respond to cancer treatment. The classifiication label being used is 'CR' for complete response and 'RESISTANT' for resistant to treatment. trainSet = Import["TrainSetCR.mx"]; validationSet = Import["ValidationSetCR.mx"]; I am using `Classify` to train both Logistic Regression and Random Forest classifiers for these data. I can get some high-level information about the classifiers produced using these methods with the `ClassifierInformation` function, but I would like to understand how the classifier is treating each feature. For Logistic Regression, I can use the `Function` property to get the function the classifier is using, but it is hard to understand. CRClassifier = Classify[trainSetCR, Method -> "LogisticRegression"]; ClassifierInformation[CRClassifier] CRClassifierProperties = ClassifierInformation[CRClassifier, "Properties"] ClassifierInformation[CRClassifier, "Function"] ClassifierMeasurements[CRClassifier, validationSet] /@ {"Accuracy", "ConfusionMatrixPlot"} For Random Forest, I cannot find any property that would allow me to understand how each feature is being used to classify the data. CRClassifier = Classify[trainSetCR, Method -> "RandomForest"]; ClassifierInformation[CRClassifier] CRClassifierProperties = ClassifierInformation[CRClassifier, "Properties"] ClassifierMeasurements[CRClassifier, validationSet] /@ {"Accuracy", "ConfusionMatrixPlot"} I really do enjoy using the Machine Learning package in Mathematica because it is easy to configure and try various machine learning techniques. However, I think the package could do a little bit better at allowing users to understand how these models are treating various features. I've attached my dataset and mathematica notebook for any who would like to look at the data. Any suggestions on how I could approach understanding these models in greater depth would be greatly appreciated. Brady Hunt 2016-03-31T15:02:37Z