https://community.wolfram.com RSS Feed for Wolfram Community showing questions tagged with Packages sorted by most viewed. https://community.wolfram.com/groups/-/m/t/1108337 By steps Insert/FilePath, I got a file path: "D:\\Mathematica\\Mathematica Programer II\\MATHPROG\\LOGICPROGRAMMING.M", but Needs["D:\\Mathematica\\Mathematica Programer \ II\\MATHPROG`LOGICPROGRAMMING.m`"] Mathematica always says Needs::cxt: Invalid context specified at position 1 in Needs[D:\Mathematica\Mathematica Programer II\MATHPROG`LOGICPROGRAMMING.m` ]. A context must consist of valid symbol names separated ` In fact I put `, What's wrong? Math Logic 2017-05-26T03:00:05Z https://community.wolfram.com/groups/-/m/t/2141352 Hello all :) CUDA is not working on 12.2. Look at this: What I am supposed to do? I also tried by downloading the CUDA packlets: change nothing. I have an NVIDIA RTX 3090 and the drivers are ok. Thank you foe helping me. Regards to all, Jean-Michel Jean-Michel Collard 2020-12-18T02:04:15Z https://community.wolfram.com/groups/-/m/t/1321057 This is a cautionary tale for those who choose Mathematica as the main tool for their work. It is now clear to me that Wolfram has simply abandoned the [Graphs and Networks](http://reference.wolfram.com/language/guide/GraphsAndNetworks.html) functionality area and I am left high and dry. I have no recourse because Mathematica is closed source so there is only so much a user can do to fix or work around problems. Reporting bugs in this particular area has now clearly proven to be useless. Most simply do not get fixed, no matter how serious they are, or how great a hindrance they are to practical use. No new functionality has been added since version 10.0. My colleagues who use other tools (mostly Python and R packages) are more productive at this point, but I have a handicap with those systems because I made the mistake of investing most of my time into Mathematica, and stayed optimistic about it even in the face of the most obvious warning signs. I am writing this post because those people who have not heavily invested in Mathematica, and in particular this functionality area of Mathematica, are not in a position to see this and may fall in the same trap I did. What if the same thing happens to the functionality area that is critical to *your* work? Wolfram Research, of course, will not tell you that they gave up on `Graph`. Thus, after my experience, I think I owe it to the community to warn you about the situation. ---- Some might ask me what specifically is wrong. I have made many posts on this forum about `Graph`-bugs (you only have to search), and I reported many more to WRI. There is always a last straw—it would be pointless to show it. Those who know me will know that I am not writing this admittedly emotional post out of ill will towards WRI. I have betted on Mathematica more than most, and have been advocating for it throughout the years. I even have a network analysis package with ~250 functions. If I am forced to abandon Mathematica for this type of work, then the countless hours that went into this package will all have been in vain. I admit that I am writing this public post partly out of desperation to try to get WRI to either fix the many serious `Graph`-problems, or otherwise publicly state that `Graph` is now abandoned so those of us who have been using it can stop wasting our time. Szabolcs Horvát 2018-04-16T09:54:42Z https://community.wolfram.com/groups/-/m/t/1715017 Hi, How can i run Min GW in Mac, do I need to rearrange these codes to make it run in Mac? Can anyone please advise? I posted the codes below. Clear["Global`*"]; Needs["CCompilerDriver`GenericCCompiler`"]; $CCompiler = {"Compiler" -> CCompilerDriver`GenericCCompiler`GenericCCompiler, "CompilerInstallation" -> "C:\\MinGW", "CompilerName" -> "gcc.exe"}; CompileOptions = {CompilationTarget -> "C", RuntimeOptions -> {"CatchMachineOverflow" -> False, "CatchMachineUnderflow" -> False, "CatchMachineIntegerOverflow" -> False, "CompareWithTolerance" -> False, "EvaluateSymbolically" -> False, "RuntimeErrorHandler" -> Evaluate, "WarningMessages" -> False}, CompilationOptions -> {"InlineExternalDefinitions" -> True, "InlineCompiledFunctions" -> True, "ExpressionOptimization" -> True}}; Thanks. adrian leong 2019-06-29T10:27:32Z https://community.wolfram.com/groups/-/m/t/1807709 Hello everybody! I wrote a number of notebooks calling R packages. But using up-to-date versions (Mathematica 12 and R 3.6.1), nothing works any more! For instance, it seems the default distribution doesn't exist now: In[2]:= InstallR[] REvaluate["sample(1:100,10)"] During evaluation of In[2]:= InstallR::invldrhome: The specified path to R home directory does not point to a valid directory Out[2]= $Failed I tried to use my own distribution, but it is not recognized! In[4]:= InstallR["RHomeLocation" -> "C:/PROGRA~1/R/R-36~1.1", "RVersion" -> "3.6.1"] During evaluation of In[5]:= InstallR::fail: Failed to install R. The following error was encountered: crash in low-level RLink component or in R runtime Out[5]= $Failed It seems there is an issue with the R.dll file (dll: 3.6.1, expecting 3.5.0). What can I do? Install an older version of R? Which one? Best regards, Claude Claude Mante 2019-10-15T09:19:47Z https://community.wolfram.com/groups/-/m/t/917616 HI -- The neural network package is really cool. I'm learning a lot from experimenting with it. I have noticed one odd thing I can't explain. I have a fairly simple CNN that I train on some images. It trains (although super-slowly) on my CPU, with a more or less reasonable loss getting smaller on each training round. But when I set TargetDevice = "GPU" it instantly reports 0 loss and finishes in just a couple seconds. As one clue, I had an Nvidia 970 with the latest Nvidia drivers and this didn't happen. I just upgraded to a new 1080 (partially for faster network training!), and that is when this started happening. I've attached a Notebook that demonstrates this behavior and has SystemInformation[] in it. (It does use images that aren't included, but I don't think there is anything special about them, they are just a bunch of JPEGs). I'm running Nvidia driver 372.70. If there is a different driver I should be using instead, please let me know. Thanks! David Cardinal 2016-09-01T21:46:08Z https://community.wolfram.com/groups/-/m/t/1669257 I installed gcc but Mathematica (12) cannot seem to find it. I installed gcc two ways: (i) via MinGW and (ii) CodeBlocks. A windows command line check confirms the compilers are installed. I updated my Windows Environments. GetEnvironment[] now shows Path -> ..... C:\\ Program Files (x86)\\ CodeBlocks \\ MinGW \\ bin;C:\\ MinGW \\ \ .... Still Mathematica does not find it. Executing Needs["CCompilerDriver`"] CCompilers[] CCompilers[Full] yields {} {{"Name" -> "Intel Compiler", "Compiler" -> CCompilerDriver`IntelCompiler`IntelCompiler, "CompilerInstallation" -> None, "CompilerName" -> Automatic}, {"Name" -> "Generic C Compiler", "Compiler" -> CCompilerDriver`GenericCCompiler`GenericCCompiler, "CompilerInstallation" -> None, "CompilerName" -> Automatic}} Attempting to Compile using CompilationTarget -> "C" produces the errors - CreateLibrary::nocomp: A C compiler cannot be found on your system. Please consult the documentation to learn how to set up suitable compilers. - Compile::nogen: A library could not be generated from the compiled function. I consulted the documentation, but don't get anywhere. PS: tried compiling using the new FunctionCompile but this produces much slower code than Compile without CompilationTarget -> "C" Thanks, Eric Eric Michielssen 2019-04-25T17:18:09Z https://community.wolfram.com/groups/-/m/t/1161057 Update 1: added examples about side-scrolling and the reason for a time-scale factor. Since making [Flappy Bird in the Wolfram Language][1], I decided to up the ante with a playable demo of a video game classic, Castlevania for the Nintendo Entertainment System. To limit the scope of the project, I only recreated the first stage, but modified it to play like "horde mode" where enemies continuously spawn: ![Gameplay][2] The package can be downloaded from my github account: [CastlevaniaDemo_WolframLanguage][3]. # Controls # I wanted to avoid using keyboard events since they block, i.e. you can't hold the right-arrow key and press another key (to jump) at the same time. Instead, I use an Xbox controller because I'm on a Windows computer and it has the device drivers already installed. It makes connecting the controller as easy as turning in on. If you want to use a different controller, then you may need to re-map some of the [`ControllerState`][4]s. ![enter image description here][5] I tried to mimic the original controls where you can move left and right, as well as crouch or stand using the directional pad. Only two buttons are used: one to jump and one to crack the whip. The crouch doesn't help much in such a simple level, but it's there nonetheless. # Design # ## Side-scrolling ## ---------- A 2-D side-scroller moves the screen as the player advances. This is straightforward to achieve using a dynamic [`PlotRange`][6]. I found the image from a basic Google search, cropped it, and used [`Inset`][7] to place it in a [`Graphics`][8] expression. To put everything in an understandable coordinate system, I adjusted the relative size (4.19) until the image spanned the vertical space from 0 to 1. The single static image `background` is ![Background][9] Side-scrolling is implemented by updating the [`PlotRange`][10] dynamically over an otherwise static graphic: Manipulate[ Graphics[ Inset[background, {0, 0}, Scaled[{0, 0}], 4.19], Frame -> True, PlotRangeClipping -> True, PlotRange -> {{Dynamic[scrollPos], Dynamic[screenWidth + scrollPos]}, {0, 1}} ], {{scrollPos, 0, "Screen Position"}, 0, 3}, {{screenWidth, 1, "Screen Width"}, 1, 2} ] ![Scroll Position][11] The above code is a demonstration, whereas the game updates `scrollPos` as the player moves. There are additional restrictions based on where the player is located, such that the player can walk to the edge of the screen, but the screen stops moving when the player is close. In the following, `csX` is the x-direction on the directional pad. Its value is +1 if held to the right and -1 if held to the left. Attributes[moveRight] = {HoldRest}; moveRight[csX_, fps_] := ( (* face player in direction of movement *) If[!playerFacingRight, playerFacingRight=True]; (* update player sprite and screen position *) With[{p=playerX+(playerXvel/fps)*csX}, If[p < 3.55, playerX=p]]; If[scrollPos < 2.7 && ((scrollPos+screenWidth)/2.4 < playerX), scrollPos+=(scrollSpeed/fps)] ); Attributes[moveLeft] = {HoldRest}; moveLeft[csX_, fps_] := ( (* face player in direction of movement *) If[playerFacingRight, playerFacingRight=False]; (* update player sprite and screen position *) With[{p=playerX+(playerXvel/fps)*csX}, If[0.07 < p, playerX=p]]; If[scrollPos > 0 && (scrollPos+screenWidth/2.3 > playerX), scrollPos-=(scrollSpeed/fps)] ); ## Controlling Update Speed ## ---------- Instead of using a [`ScheduledTask`][12] to update at a fixed frame rate, I opted to let [`Dynamic`][13] update as fast as possible. This is reminiscent of old computer games that were tied to the processor's frequency. To get around this I use a global variable `fps` to slow down the apparent motion. Said differently, the front end updates as fast as possible, but the distance a sprite moves per kernel-state-update is proportional to `fps`. The previous section shows `fps` in the player update: p = playerX + (playerXvel / fps)*csX The player's horizontal-position `playerX` is updated by the fixed horizontal-velocity `playerXvel`, but proportional to `fps`. If `fps` is larger, then the distance traveled per-kernel-update is smaller. For every moving sprite, however, the front end has to communicate more with the kernel. This causes the entire game to slow down proportionally to the number of dynamically updating expressions. I more-or-less get around this detail by linearly adjusting the global `fps` variable proportional to the number of active sprites. The rough idea is that if each sprite takes 2 units of `fps` time to update, then I should take away 2 units for each active enemy. As a toy example of this behavior, look at the following independent example: fps = 10; objList = <||>; createShape[index_Integer] := Module[{pos = RandomReal[{-30, 0}, 2]}, object[index] := ( (* updated object position *) pos += 0.3/fps; (* if object leaves the screen, remove it from the list of objects, otherwise output graphic *) If[pos.pos > 30^2, objList = KeyDrop[objList, index]; object[index] =., {EdgeForm[Directive[Thick]], FaceForm[None], Rectangle[pos, pos + {5, 5}]} ] ); objList = <|objList, index :> object[index]|> ] i = 1; Column[{ Button["Add", createShape[i++]], Graphics[Dynamic[Values[objList]], PlotRange -> {{-30, 30}, {-30, 30}}, Frame -> True, ImageSize -> Medium], Dynamic[Length[objList]] }] ![enter image description here][14] Ignoring that this code produces a front-end memory leak, what you should observe is that the rectangles motion slows down as more are added. Once a few rectangles leave the "world", the remaining rectangles speed up. In my game code where I create enemies, I use a variable `tsf` (time-scale-factor) which is just a local renaming of `fps`. It decreases when an enemy is put in motion i.e. initialized, and increases when the enemy dies or leaves the screen. Below I only show the parts where `tsf` is adjusted. `speedTrigger` is used as a flag to prevent `tsf` from updating more than once. initializeEnemy[index, "ghoulRight"] := ( . . . speedTrigger=True; tsf-=2; . . . enemy[index] := ( If[ !dying (* if exited map *) If[xPos > 3.8, . . . If[speedTrigger, tsf+=2; speedTrigger = False]; . . . ], (* if dead, after death animation, position enemy off screen, update score *) If[speedTrigger, tsf+=2; speedTrigger = False]; . . . ] ) ) ## Sprites before hit boxes ## ---------- It makes more sense to place and size the sprites into the graphics before I create hit boxes. Sprite maps can be [found online][15] for many classic games. I found a character map for the main character sprite and cropped each frame. There are 12 unique frames in total for my chosen character movement, but for smooth animations some frames can be found in multiple sequences: - four frames for walking ![enter image description here][16] - four frames for whipping while standing ![enter image description here][17] - four frames for whipping while crouched ![enter image description here][18] - three frames for character death ![enter image description here][19] The above images have already been adjusted. First, I applied [`RemoveBackground`][20] and [`ImageCrop`][21] to each frame. If you naively stopped here and simply updated the first argument of [`Inset`][22] with these images, then your character would appear glitchy when switching between images. The reason is that the inset images are of different sizes. I needed to "normalize" the images to a common size. The whip frames have the largest extent (see the above images that are selected). The whip hangs below the feet while crouched. It also extends far to the left/right when fully extended. I chose common image size of 105 x 42. I first used [`ImagePad`][23] to pad each image up to the chosen size. Then I created functions for fine-tuning the sprite positions: imageRotateLeft[im_, amount_] := If[amount == 0, im, ImageAssemble[{{ImageTake[im, {1, -1}, {1 + amount, -1}], ImageTake[im, {1, -1}, {1, amount}]}}] ] imageRotateRight[im_, amount_] := If[amount == 0, im, ImageAssemble[{{ImageTake[im, {1, -1}, {-amount, -1}], ImageTake[im, {1, -1}, {1, -1 - amount}]}}] ] I use a combination of [`Manipulate`][24] expressions to align and center each frame. One aligns one frame with another: Manipulate[ left = tt[[1]]; right = tt[[2]]; Framed[ImageCompose[left, imageRotateLeft[right, n]], FrameMargins -> None], {n, 0, 10, 1} ] ![enter image description here][25] The other aligns a frame with its reflection: Manipulate[ left = tt[[m]]; right = ss[[m]]; Framed[ImageCompose[imageRotateRight[left, n], imageRotateLeft[right, n]], FrameMargins -> None], {n, 0, 10, 1}, {m, 1, 4, 1} ] ![Reflection Alignment][26] Having a reflection-aligned set of frames is useful when making hit boxes. That way we only need one hit box for standing and one for crouching, regardless of facing right or left. Moreover, having "one-size-fits-all" for the images, the inset size argument remains fixed. The ghoul enemy proceeds similarly, but is simpler since it is only two animation frames and does not include a moving weapon. ## Character Controls ## ---------- I use a [`Module`][27] to mimic "static" variables for the player character. Module[{playerFacingRight=True, playerCrouched=False, playerX=0.288, playerY=0.282, playerXvel=0.2, scrollSpeed=0.2, im=walkingRight[[1]], playerAnimationCounter=1, playerFrame=1, walkAnimationDelay=25, grav=0.5, jumpVel=0.5, playerYvel=0, jumpCounter=0, previousJumpState=False, whipFrame=1, whipAnimationCounter=1, previousWhipState=False, whipping=False, whipAnimationDelay=8, whipStandLeftBox,whipStandRightBox,whipCrouchedLeftBox,whipCrouchedRightBox, crouchedBox,standingBox,playerBox,whipSoundCheck=True}, Attributes[standWhipUpdate] = {HoldAll}; standWhipUpdate[whipBox_] := ( . . . ) Attributes[crouchWhipUpdate] = {HoldAll}; crouchWhipUpdate[whipBox_] := ( . . . ) Attributes[moveRight] = {HoldRest}; moveRight[csX_, fps_] := ( . . . ) Attributes[moveLeft] = {HoldRest}; moveLeft[csX_, fps_] := ( . . . ) Attributes[character] = {HoldRest}; character[{csX_,csY_,csB_, csB2_}, enemyBox_, whipBox_, fps_, playerDead_] := ( . . . Inset[im, {playerX,playerY}, Scaled[{0.5,0.5}], 0.562] ) ] Within this module I define a number of functions that share the scoped module variables. The main function is `character` that, after processing the current state of the player, returns the `Inset` graphics primitive. The `cs*` inputs are `ControllerState["X3"]`, `ControllerState["Y3"]`, `ControllerState["B1"]`, and `ControllerState["B2"]`, respectively. The other inputs are the hit boxes, time delay, and a predicate flag for whether the player is dead. The `character` function logic is as follows: <ul> <li>Has the character hit an enemy?</li> <ul><li> yes -> you're dead</li> <li>no -> you're not dead</li> </ul> <li>If not dead, then</li> <ul> <li>Check the jump button</li> <li>Check the whip button</li> </ul> <li>Add gravity effect (you fall regardless of whether you're alive)</li> <li>if not dead, </li> <ul> <li>if jumping, </li> <ul> <li>are you whipping?</li> <ul> <li>yes</li> <li>no</li> </ul> </ul> <li>else you're walking</li> <ul> <li>are you whipping?</li> <ul> <li>yes</li> <li>no -> update normal walking controls</li> </ul> </ul> </ul> <li>else you're dead -> update death animation <li>output Inset primitive with updated position and sprite image</li> </ul> </ul> For example, while on the ground and not whipping, I use a [`Which`][28] expression to decide the update: Which[ (* walking to the right *) csX==1 && (csY==0 || csY==1), moveRight[csX, fps]; playerCrouched=False; (* animate character sprite *) playerAnimationCounter += 1; If[Mod[playerAnimationCounter,walkAnimationDelay]==0, playerAnimationCounter=1; im=walkingRight[[If[playerFrame==4,playerFrame=1,++playerFrame]]] ], (* walking to the left *) csX==-1 && (csY==0 || csY==1), moveLeft[csX, fps]; playerCrouched=False; (* animate character sprite *) playerAnimationCounter += 1; If[Mod[playerAnimationCounter,walkAnimationDelay]==0, playerAnimationCounter=1; im=walkingLeft[[If[playerFrame==4,playerFrame=1,++playerFrame]]] ], (* crouched to the right *) csX==1 && csY==-1, If[!playerFacingRight, playerFacingRight=True]; playerCrouched=True; playerAnimationCounter=9; im=crouchRight, (* crouched to the left *) csX==-1 && csY==-1, If[playerFacingRight, playerFacingRight=False]; playerCrouched=True; playerAnimationCounter=9; im=crouchLeft, (* crouch down *) csX==0 && csY==-1, If[!playerCrouched, playerCrouched=True; im = If[playerFacingRight, crouchRight, crouchLeft] ], (* stand up *) csX==0 && csY==1, playerFrame=1; If[playerCrouched, playerCrouched=False; im = If[playerFacingRight, walkingRight, walkingLeft][[playerFrame]] ] ] You'll see that the animation of the character involves a delayed update. So not only am I slowing the apparent motion with the `fps` variable, I also slow the apparent animation by using a `playerAnimationCounter` with a fixed `walkAnimationDelay`. I did include a double jump, but it is also somewhat irrelevant for the simplicity of the level. (* check state of jump button *) Switch[{previousJumpState,csB}, {False,True}, If[jumpCounter<2,jumpCounter+=1;playerYvel=(jumpVel/fps);previousJumpState=True], {True,False}, previousJumpState=False; ]; ## Enemy Controls ## ---------- I use a [`Module`][29] to mimic "static" variables for the enemies as well. Attributes[createEnemy] = {HoldRest}; createEnemy[index_Integer, whipBox_, enemyBox_, tsf_, score_, enemyReady_] := Module[ {xPos, yPos, xVel, yVel, im, speedTrigger=False, dying=False, size, enemyAnimationCounter=1, enemyFrame=1, enemyAnimationDelay=25}, enemyBox = {{0,0},{0,0}}; initializeEnemy[index, "ghoulRight"] := ( . . . ) initializeEnemy[index, "ghoulLeft"] := ( . . . ) ] Within this module I define a number of functions that share the scoped module variables. The main function is `initializeEnemy` that itself defines another function `enemy`. It seems complicated, but this type of scoping helps avoid memory leaks and treats each enemy as an independent object. The `enemy` function processes the current state of the enemy and returns an `Inset` graphics primitive. Adding a new type of enemy is straightforward; create a new `initializeEnemy` code block with an overloaded patter e.g. `initializeEnemy[index, "medusaRight"]`. The ghoul logic is much simpler: <ul> <li>is the enemy dead?</li> <ul> <li>no</li> <ul> <li>update position</li> <li>have you hit the whip box? yes -> set dead flag</li> <li>have you left the screen? yes -> move off screen and set ready flag</li> </ul> <li>yes -> do death animation and reset</li> </ul> <li>output Inset primitive with updated position and sprite image</li> </ul> </ul> For example, the movement logic is much simpler than the character. It only moves left or right. initializeEnemy[index, "ghoulLeft"] := ( . . . enemy[index] := ( If[!dying, (* if alive *) (* update position and enemy hit box *) xPos += xVel/tsf; enemyBox = {{-0.037,-0.075}+{xPos,yPos},{0.029,0.081}+{xPos,yPos}}; . . . ] ) . . . ) ## Hit Box Management ## ---------- The hit boxes follow the [`Rectangle`][30] syntax in that they specify a box by the lower-left and upper-right corners only. All hit boxes are un-rotated rectangles. I check whether the hit boxes are left/right or above/below of each other. If they are not, then they must be overlapping. impactQ = Compile[{{box1,_Real,2},{box2,_Real,2}}, (* if one hitbox is on the left side of the other *) If[box1[[2,1]] < box2[[1,1]] || box1[[1,1]] > box2[[2,1]], Return[False]]; (* if one hitbox is above the other *) If[box1[[2,2]] < box2[[1,2]] || box1[[1,2]] > box2[[2,2]], Return[False]]; True ]; The enemies and player's hit boxes are given as relative distances from their centers. For example, (* define character hit boxes *) whipStandLeftBox = {{-0.2`,0.02`},{-0.06`,0.07`}}; whipStandRightBox = {{0.06`,0.02`},{0.2`,0.07`}}; whipCrouchedLeftBox = {{-0.204`,-0.02`},{-0.052`,0.034`}}; whipCrouchedRightBox = {{0.052`,-0.02`},{0.204`,0.034`}}; crouchedBox = {{-0.02`,-0.06`},{0.02`,0.038`}}; standingBox = {{-0.02`,-0.06`},{0.02`,0.086`}}; playerBox = standingBox + {{playerX,playerY},{playerX,playerY}}; I determined the hit boxes using a Manipulate: Manipulate[ playerX = 0.288; playerY = 0.282; im = ImageReflect[Import["whip3.png"], Right]; Graphics[ {Inset[im, {playerX, playerY}, Scaled[{0.5, 0.5}], 0.562], FaceForm[None], EdgeForm[Directive[Red, Thick]], Dynamic[ Rectangle[{playerX + left, playerY + bottom}, {playerX + right, playerY + top}] ] }, Frame -> False, ImageSize -> Medium, PlotRange -> {{0, 1}, {0, 0.5}} ] , {{left, -0.2}, -0.5, 0.5, LabeledSlider}, {{bottom, -0.2}, -0.5, 0.5, LabeledSlider}, {{right, 0.2}, -0.5, 0.5, LabeledSlider}, {{top, 0.2}, -0.5, 0.5, LabeledSlider} ] ![enter image description here][31] The whip is more complicated. The whip's hit box is only active when the whip is fully extended, and its position depends on which direction the player is facing. For example, while in the air movement is allowed. Note in the following that `whipframe` #3 is when the whip box is active. Otherwise, within the `standWhipUpdate` function the whip box is moved off screen so it doesn't hit anything. (* while in the air *) playerFrame=1; playerCrouched=False; Which[ csX==1, moveRight[csX, fps], csX==-1, moveLeft[csX, fps] ]; If[whipping, (* if whipping, player is in standing position *) standWhipUpdate[whipBox]; (* whipping in the air is unique as movement is allowed; hit boxes need to update with the player's movement *) playerBox = standingBox; If[whipFrame==3, whipBox = If[playerFacingRight, whipStandRightBox, whipStandLeftBox] + {{playerX,playerY},{playerX,playerY}}], (* if not whipping, the legs tuck midway through the jump *) If[-(jumpVel/fps)/1.5 < playerYvel < (jumpVel/fps)/1.5, playerBox = crouchedBox; im = If[playerFacingRight, crouchRight, crouchLeft], playerBox = standingBox; im = If[playerFacingRight, walkingRight, walkingLeft][[playerFrame]]; ]; ] The hit boxes are passed around between the functions. The player only cares about the enemy hit boxes: If[ AnyTrue[{enemyBox[1],enemyBox[2],enemyBox[3],enemyBox[4],enemyBox[5], enemyBox[6],enemyBox[7],enemyBox[8],enemyBox[9],enemyBox[10]}, impactQ[playerBox,#]& ], playerDead = True; playerCrouched=True; playerBox = {{1,1},{1,1}}; playerFrame=1; im = If[playerFacingRight, playerDeathRight, playerDeathLeft][[playerFrame]]; playerAnimationCounter=1; ]; While the enemies only care about the whip hit box: If[impactQ[whipBox,enemyBox], dying = True; EmitSound[hitSound]; score++; enemyBox = {{0,0},{0,0}}; size = 0.035; enemyFrame=1; im = enemyDeath[[enemyFrame]]; enemyAnimationCounter=1; ]; ## Final bells and whistles ## ---------- The final steps include putting all the code into a larger [`DynamicModule`][32]. I added a static pause screen that also displays the controls as a [`PaneSelector`][33]. You can pause the game theoretically at any time, however the other dynamic updates can sometimes block the button. It works better by pressing and holding it until the screen appears, or by holding a direction on the directional pad and then press "start". The "restart" button, that is only active after you die, has the same issue. I haven't figured out how to fix this. When you restart after dying, you start in a crouched whipping position and your score is reset. I also added sound effects for the whip and when you hit an enemy. I added the option for background music as an available MIDI file from the ([Video Game Music Headquarters][34]), since the song "Vampire Killer" is so iconic, but I did not loop it. The enemies are generated based on a [`RandomVariate`][35] taken from a [`NormalDistribution`][36] with mean 100 'cycles' and a wide variance. playLevel[] := Deploy@DynamicModule[{whipBox={{-10,-10},{-5,-5}}, fps=50, enemyBox, playerDead=False, score=0, enemyReady, previousButtonState=False, pressed=False, enemyCounter=1, enemyVariate=RandomVariate[NormalDistribution[100,30]]}, (* start background music *) (*EmitSound[music];*) (* use PaneSelector to toggle between pause screen and active game *) PaneSelector[ { True -> Column[{ Graphics[ { Inset[background, {0,0}, Scaled[{0,0}], 4.19], Dynamic[Inset[Style[score,Red,Bold,27], {scrollPos+screenWidth-0.1,0.9}]], Dynamic[ If[playerDead, If[ControllerState["B7"], playerDead=False; score=0; character[{1,-1,False,True}, enemyBox, whipBox, fps, playerDead] ]; Inset[Panel[Style[" Play again? \nPress Restart Button.",Red,Bold,27],Background->Black], {scrollPos+screenWidth*0.5,0.5}], {} ] ], Dynamic[{ If[(enemyCounter += 1) > enemyVariate, enemyCounter=1; enemyVariate=RandomVariate[NormalDistribution[100,30]]; initializeEnemy[ First[Pick[{1,2,3,4,5,6,7,8,9,10}, enemyReady /@ {1,2,3,4,5,6,7,8,9,10}], {}], RandomChoice[{"ghoulLeft","ghoulRight"}] ] ]; enemy[1],enemy[2],enemy[3],enemy[4],enemy[5], enemy[6],enemy[7],enemy[8],enemy[9],enemy[10], character[ { ControllerState["X3"],ControllerState["Y3"], ControllerState["B1"],ControllerState["B3"] }, enemyBox, whipBox, fps, playerDead ] }] }, Frame -> False, ImageSize -> Large, PlotRange -> {{Dynamic[0+scrollPos],Dynamic[screenWidth+scrollPos, TrackedSymbols:>{scrollPos}]}, {0,1}}, PlotRangePadding -> None, PlotRangeClipping -> True, ImagePadding -> 1 ](*, LabeledSlider[Dynamic[fps],{1,72}]*) }], False -> controls }, Dynamic[ Switch[{previousButtonState,ControllerState["B8"]}, {False,True}, If[pressed,pressed=False,pressed=True]; previousButtonState=True, {True,False}, previousButtonState=False ]; pressed ], ImageSize -> Automatic ](* end PaneSelector *), Initialization :> ( Do[With[{i=i}, createEnemy[i, whipBox, enemyBox[i], fps, score, enemyReady]], {i,1,10}]; enemy[1]=enemy[2]=enemy[3]=enemy[4]=enemy[5]=enemy[6]=enemy[7]=enemy[8]=enemy[9]=enemy[10] = {}; enemyReady[1]=enemyReady[2]=enemyReady[3]=enemyReady[4]=enemyReady[5] = True; enemyReady[6]=enemyReady[7]=enemyReady[8]=enemyReady[9]=enemyReady[10] = True; ) ] [1]: http://community.wolfram.com/groups/-/m/t/1127985 [2]: http://community.wolfram.com//c/portal/getImageAttachment?filename=play.gif&userId=829295 [3]: https://github.com/KMDaily/CastlevaniaDemo_WolframLanguage [4]: http://reference.wolfram.com/language/ref/ControllerState.html [5]: http://community.wolfram.com//c/portal/getImageAttachment?filename=Controls2.png&userId=829295 [6]: http://reference.wolfram.com/language/ref/PlotRange.html [7]: http://reference.wolfram.com/language/ref/Insert.html [8]: http://reference.wolfram.com/language/ref/Graphics.html [9]: http://community.wolfram.com//c/portal/getImageAttachment?filename=LevelMap.png&userId=829295 [10]: http://reference.wolfram.com/language/ref/PlotRange.html [11]: http://community.wolfram.com//c/portal/getImageAttachment?filename=scrollPosition.PNG&userId=829295 [12]: http://reference.wolfram.com/language/ref/ScheduledTask.html [13]: http://reference.wolfram.com/language/ref/Dynamic.html [14]: http://community.wolfram.com//c/portal/getImageAttachment?filename=slowDown.PNG&userId=829295 [15]: https://www.spriters-resource.com/ [16]: http://community.wolfram.com//c/portal/getImageAttachment?filename=characterWalking.PNG&userId=829295 [17]: http://community.wolfram.com//c/portal/getImageAttachment?filename=6947characterSpriteExtent.PNG&userId=829295 [18]: http://community.wolfram.com//c/portal/getImageAttachment?filename=characterCrouchExtent.PNG&userId=829295 [19]: http://community.wolfram.com//c/portal/getImageAttachment?filename=characterDeath.PNG&userId=829295 [20]: http://reference.wolfram.com/language/ref/RemoveBackground.html [21]: http://reference.wolfram.com/language/ref/ImageCrop.html [22]: http://reference.wolfram.com/language/ref/Inset.html [23]: http://reference.wolfram.com/language/ref/ImagePad.html [24]: http://reference.wolfram.com/language/ref/Manipulate.html [25]: http://community.wolfram.com//c/portal/getImageAttachment?filename=imageAlignment.PNG&userId=829295 [26]: http://community.wolfram.com//c/portal/getImageAttachment?filename=3893reflectionAlignment.PNG&userId=829295 [27]: http://reference.wolfram.com/language/ref/Module.html [28]: http://reference.wolfram.com/language/ref/Which.html [29]: http://reference.wolfram.com/language/ref/Module.html [30]: http://reference.wolfram.com/language/ref/Rectangle.html [31]: http://community.wolfram.com//c/portal/getImageAttachment?filename=whipbox.PNG&userId=829295 [32]: http://reference.wolfram.com/language/ref/DynamicModule.html [33]: http://reference.wolfram.com/language/ref/PaneSelector.html [34]: http://www.vgmusic.com [35]: http://reference.wolfram.com/language/ref/RandomVariate.html [36]: http://reference.wolfram.com/language/ref/NormalDistribution.html Kevin Daily 2017-08-09T21:18:36Z https://community.wolfram.com/groups/-/m/t/1179687 I was wondering what criteria is/was used to determine what benchmarks to include when running a benchmark report on a particular machine. Specifically, running: Needs["Benchmarking`"] BenchmarkReport[] After running this on my work machine, I noticed the top benchmark was an Intel Core i7-3770 CPU @ 3.40 GHz (8 cores) running 64-bit Linux. Surely there are better (i.e. higher WolframMark "score") architectures out there to compare, right? After briefly searching the web and other forums for other people using the benchmarking package, I noticed the same benchmarks for comparison on other posted reports. Have the CPU benchmarks not been updated to current technology? Perhaps if I had a better architecture I might see my results show up above this benchmark? Has anyone done this? Jacob Lapenna 2017-09-08T17:40:57Z https://community.wolfram.com/groups/-/m/t/861654 For years now I have occasionally made use of packages. I have always found that the directions don't work for me, even though I have tried time and again to follow them closely and to try different ways of loading them. I have always had to resort to opening the package and executing it before I could use the package functions in a Mathematica notebook. I am making another try now. The first file is a package. The second file is a notebook that should load the package. It appears that the names of the symbols load into the second script, but they do not function as they should. Any ideas? The following two files should illustrate my problem. (* filename: Development.m *) BeginPackage["Development`"] v::usage = "v[z] converts x+iy to {x, y}." hello::usage = "Says hello." Begin["Private`"] hello = Print["Hello from hello"]; v[z_] := {Re @ z, Im @ z}; End[] EndPackage[] (* filename: testPackage.nb *) SetDirectory[$UserBaseDirectory <> "/Applications"] (* returns "/Users/myusername/Library/Mathematica/Applications" *) FileNames[] (* returns {Development.m} *) << Development` hello (* returns "hello", which is a failure *) v[2 + 3 I] (* returns "v[2+3I]" which is a failure *) ?"Global`*" (* returns panel with hello and v, but no variables are listed *) Gary Palmer 2016-05-25T03:19:08Z https://community.wolfram.com/groups/-/m/t/1425074 Dear community members, I just started reading Roman Maeder's book "Computer Science with Mathematica" and I'd like to do the computations along but unfortunately the page to download the CSM package is no longer available: [http://www.mathconsult.ch/en/showroom/pubs/CSM][1] Does anybody know an alternative way to have access to the Mathematica package? Many thanks in advance. [1]: http://www.mathconsult.ch/en/showroom/pubs/CSM Ruben Garcia Berasategui 2018-08-27T02:35:34Z https://community.wolfram.com/groups/-/m/t/403833 I have read through the documentation and watched the videos. I even poked around to find older material. I think I understand how to set up a package in Workbench. However, all the examples I have seen have a single .m file for the code. I want to make a package/application that has multiple source files. How do I do this? Does each .m file have to have its own BeginPackage[]/EndPackage[] context, or can there be just one .m file that sets the context and the other source files are included as optional arguments to the only BeginPackage[] function call? In the past, packages have been set up with a 'master' package that was called (Get[] or Needs[]) that would load all the sub-packages -- each of those could the loaded individually. How would I go about setting this up? Thanks. George Woodrow III 2014-12-08T13:59:33Z https://community.wolfram.com/groups/-/m/t/474155 Hello, As far as I understand, psfrag is no longer working with Mathematica 10. Does anyone have a solution for this problem or knows whether there will be a solution in the near future? Or is there an alternative? What I want to do is export eps files from Mathematica and include them into Latex with nice Labels. a b 2015-04-05T14:34:56Z https://community.wolfram.com/groups/-/m/t/1171718 I'm doing the Mathematica trial right now, and I'm having trouble finding information about deployment of the algorithms I create. For example, say I create a new control algorithm for a power supply in Mathematica. How would I then "package up" my algorithm to work on a microcontroller in my actual product? I know that in MATLAB you can compile your code for deployment on other platforms, but it seems that compiling in Mathematica has a different meaning than that. I wouldn't want to have to completely re-write my algorithms just to deploy on my target system. I found [this][1] tutorial that seems to be what I am looking for. Does the execution environment require the Mathematica kernel or is it entirely self contained? Thanks [1]: http://reference.wolfram.com/language/CCodeGenerator/tutorial/Examples.html A S 2017-08-27T18:29:36Z https://community.wolfram.com/groups/-/m/t/93435 Hello all, I've been playing around with OpenCL and I've run into a problem that I can't pin down. When running this n-body simulation, the amount of memory in use gradually increases with every time step (until I run out completely). I've tried using Bytecount[] on every variable that I can think of, and none of them seem to be the culprit. Anyway, the OpenCL code in question is here: [code]__kernel void nbody_kern( float timeStep, float eps, __global float4* position1, __global float4* velocity1, __global float4* acceleration1, __global float4* position2, __global float4* velocity2, __global float4* acceleration2, __local float4* localPosition ) { const float4 dt = (float4)(timeStep,timeStep,timeStep,0.0f); int idxGlobal = get_global_id(0); int idxLocal = get_local_id(0); int globalSize = get_global_size(0); int localSize = get_local_size(0); int blocks = globalSize / localSize; float4 currentPosition = position1[idxGlobal]; float4 currentVelocity = velocity1[idxGlobal]; float4 currentAcceleration = acceleration1[idxGlobal]; float4 newPosition = (float4)(0.0f,0.0f,0.0f,0.0f); float4 newVelocity = (float4)(0.0f,0.0f,0.0f,0.0f); float4 newAcceleration = (float4)(0.0f,0.0f,0.0f,0.0f); for(int currentBlock = 0; currentBlock < blocks; currentBlock++) { localPosition[idxLocal] = position1[currentBlock * localSize + idxLocal]; barrier(CLK_LOCAL_MEM_FENCE); for(int idx = 0; idx < localSize; idx++) { float4 dir = localPosition[idx] - currentPosition; float invRadius = rsqrt(dir.x * dir.x + dir.y * dir.y + dir.z * dir.z + eps); float magnitude = localPosition[idx].w * invRadius * invRadius * invRadius; newAcceleration += magnitude * dir; } barrier(CLK_LOCAL_MEM_FENCE); } // leapfrog integration newPosition = currentPosition + currentVelocity * dt + 0.5f * currentAcceleration * dt * dt; newVelocity = currentVelocity + 0.5f * (currentAcceleration + newAcceleration) * dt; position2[idxGlobal] = newPosition; velocity2[idxGlobal] = newVelocity; acceleration2[idxGlobal] = newAcceleration; }[/code]  and the Mathematica code is here:[mcode]initialVelocity[pt_] := Module[ {y, v0, \[Theta]}, y = Norm[pt[[1 ;; 3]]]/(2 rd); v0 = 4*\[Pi]*\[CapitalSigma]0*rd* y^2 (BesselI[0, y]*BesselK[0, y] - BesselI[1, y]*BesselK[1, y]); \[Theta] = ArcTan[pt[[1]], pt[[2]]]; {-v0 Sin[\[Theta]], v0 Cos[\[Theta]], 0.0, 0.0} + RandomVariate[NormalDistribution[0, .001], 4] ] Needs["OpenCLLink`"]; source = {"D:\\Google Drive\\Mathematica\\nbody.cl"}; stepSimulation = OpenCLFunctionLoad[ source, "nbody_kern", { "Float", "Float", {"Float", _, "Input"}, {"Float", _, "Input"}, {"Float", _, "Input"}, {"Float", _, "Output"}, {"Float", _, "Output"}, {"Float", _, "Output"}, {"Local", "Float"} }, 256, "ShellOutputFunction" -> Print ]; dt = .01; eps = .0001; rd = 1.0; \[CapitalSigma]0 = 0.3; len = 2^14; particles = (RandomVariate[ExponentialDistribution[rd]]*{Cos[#], Sin[#], 0.0, 0.0}) & /@ RandomReal[{0, 2 Pi}, len]; particles[[All, 4]] = 1.0/len; velocity = initialVelocity /@ particles; acceleration = Array[{0.0, 0.0, 0.0, 0.0} &, len]; position1 = OpenCLMemoryLoad[particles, "Float"]; velocity1 = OpenCLMemoryLoad[velocity, "Float"]; acceleration1 = OpenCLMemoryLoad[acceleration, "Float"]; position2 = OpenCLMemoryAllocate["Float", {len, 4}]; velocity2 = OpenCLMemoryAllocate["Float", {len, 4}]; acceleration2 = OpenCLMemoryAllocate["Float", {len, 4}]; pr = 8; memList = {MemoryInUse[]}; Graphics3D[{ PointSize[Small], Point[Dynamic[Refresh[ AppendTo[memList, MemoryInUse[]]; stepSimulation[dt, eps, position1, velocity1, acceleration1, position2, velocity2, acceleration2, 256*4, len]; stepSimulation[dt, eps, position2, velocity2, acceleration2, position1, velocity1, acceleration1, 256*4, len]; OpenCLMemoryGet[position1][[All, 1 ;; 3]], UpdateInterval -> 0]] ]}, PlotRange -> {{-pr, pr}, {-pr, pr}, {-pr/4, pr/4}}, ImageSize -> 1000 ] Dynamic[ListLinePlot[memList]] [/mcode] As far as I can tell, the code does what it's supposed to and I'm generally pleased with the results. This is what I get after a few steps: [img=width: 400px; height: 334px;]http://i.imgur.com/hQFbPZO.png[/img] However, the memory problem limits how long I can run this thing for. This plot shows the amount of memory in use with respect to the number of steps completed in the simulation. [img=width: 360px; height: 209px;]http://i.imgur.com/SGWx0aP.png[/img] The only way I've been able to free up all that memory is by quitting the kernel, which is hardly ideal. I'm guessing that I'm just missing some important aspect of OpenCL programming. If anyone is more familiar with this stuff and has some ideas, I'd be thrilled to hear them. Richard Hennigan 2013-08-09T17:18:48Z https://community.wolfram.com/groups/-/m/t/1657536 I downloaded the package TuGames from http://library.wolfram.com/infocenter/MathSource/5709/ (for Windows) to calculate Shapley Values in cooperative bargaining games. I got it to work earlier today but after closing and opening mathematica again, this simple code would not work. When it worked, all I did was paste the content of the package in C:\Program Files\Wolfram Research\Mathematica\11.0\AddOns\Packages\TuGames\, and I manage to run the code below. However, it doesn't run anymore. Any thoughts on what could be causing the problem? Needs["coop`CooperativeGames`"] Needs["TuGames`"] ExpGame := (T = {1, 2, 3, 4}; Clear[v]; v[{}] = 0; v[{1}] = 0; v[{2}] = 0; v[{3}] = 0; v[{4}] = 0; v[{1, 2}] = 0; v[{1, 3}] = 1/4; v[{1, 4}] = 2/4; v[{2, 3}] = 1/4; v[{2, 4}] = 3/4; v[{3, 4}] = 0; v[{1, 2, 3}] = 1; v[{1, 2, 4}] = 1; v[{1, 3, 4}] = 1; v[{2, 3, 4}] = 1; v[T] = 2) ShapleyValue[ExpGame] This is the error I'd get sometimes. Other times it just crashes. In[30]:= Needs["coop`CooperativeGames`"] Needs["TuGames`"] During evaluation of In[30]:= Get::noopen: Cannot open coop`CooperativeGames`. During evaluation of In[30]:= Needs::nocont: Context coop`CooperativeGames` was not created when Needs was evaluated. Out[30]= $Failed rodrigo montes 2019-04-10T13:28:43Z 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/356717 Sometimes I need to do **vertex enumerations** on Mathematica. There used to be a `VertexEnum.m` package, even though it is very old and lacks of efficiency. However, after upgrading to *Mathematica 10*, this package doesn't work any more. Are there an latest `VertexEnum.m` package working with the latest version of *Mathematica* or any other packages doing the vertex enumeration job? **Update:** I have fixed the bug in package `VertexEnum.m` and now it works in *Mathematica 10*. But the efficiency of this package drives me crazy. I looked into the package and found that package `VertexEnum.m` have a much more efficient `C` implementation named `cddlib`. It has a prebuilt interface to *Mathematica* called `cddmathlink` or `cddmathlink2`. However, it was compiled about 10 years ago, and dose not work on the lasted *OS X 10.9*. So my question is who has latest version of `cddmathlink` or `cddmathlink2` which works in latest *Mathematica* or who can recompile the interface to *Mathematica* for me on *OS X 10.9*. (I have been trying to recompile it by myself for almost a month, but apparently I'm not that material at all.) For more information about `cddlib`, you may find its homepage [here](http://www.inf.ethz.ch/personal/fukudak/cdd_home/). Han Xiao 2014-09-27T05:22:08Z https://community.wolfram.com/groups/-/m/t/295756 I want to be able to load a package that I've uploaded to my Cloud account. I'm not sure how to do it, but the usual way to load a package doesn't seem to work. I see that there is a cloud-related function called ExternalBundle. Is that used to include a package? I can't find any examples of how ExternalBundle is used. Anyone know of one? Ken Levasseur UMass Lowell Ken Levasseur 2014-07-16T01:55:57Z https://community.wolfram.com/groups/-/m/t/385892 Hi folks, I just recently started experimenting with the *Mathematica J/Link* extension, and decided to try and utilize a small custom Java class within *Mathematica*. The class is simple and runs perfectly well within Eclipse, but when I tried to follow the instructions for importing a Java class with J/Link at [http://reference.wolfram.com/language/JLink/tutorial/CallingJavaFromTheWolframLanguage.html][1], I found that I kept getting the error: **"A Java exception occurred: "java.lang.UnsupportedClassVersionError: \ MyClass : Unsupported major.minor version 52.0"** The above error was the result of the LoadJavaClass[] function. The simple code I had used up to this point was as follows: Needs["JLink`"] InstallJava[] AddToClassPath["/My/Project/Class/Path/"] LoadJavaClass["MyClass"] With */My/Project/Class/Path/* as the directory path to the class and *MyClass* as the .class file itself, respectively. I'm currently running java version "1.8.0_25", Mathematica 10.0.1.0, and Eclipse 4.4.1, if any of that makes a difference. Thank you to anyone who has a few minutes to help explain to me what I'm doing wrong and hopefully how to go about doing it correctly. -Wren [1]: http://reference.wolfram.com/language/JLink/tutorial/CallingJavaFromTheWolframLanguage.html Wren Rudolph 2014-11-08T04:27:29Z