User Portlet User Portlet

Discussions
Something I am doing wrong, since I still have numbers repeated at the beginning of each tuple, please take a look, thanks in advance. Here is my code mere[n_Integer] := Module[{perm, squared, novo, rec}, perm =...
Try this x=32\[Degree] y=30\[Degree] valx=Table[{i x,100},{i,100}] valy=Table[{i y,40},{i,100}] comb=Riffle[valx,valy] Graphics[Line[AnglePath[comb]]] And the picture obtained is ![image final][1] Enjoy it...
Hello everyone, I decided long ago to solve the exercise to propose on page rosetta code, [here is the link][1], the way I solved it was this (see attached file) , ![My code][2] I think there is a shorter way to do this but still can not...
Thank you very much for your help Sanders, that's exactly what I was looking for, I think this will be very helpful to several acquaintances, besides this as more people see it get better, but I sincerely not believe that there is much room for...
Hello, the definition of your function is wrong, because missing commas , I'll share it with corrections , plus a picture so you can see that actually works a[q_ , s1_, s2_] := ((1 - q + s1*(1 + q*s2))/(1 + s2)) D[a[q, s1, s2], s1] ...
I think this can help you. I did it to show you what number is the one with more divisors, which as really effectively is 24, you can improve it, cheer up. exa = {#, Length[Divisors[#]]} & /@Range[2, 24] TableForm[Sort[exa, #1[[2]] >...
Hello, first of all, I want to thank Frank and Steven Christensen for his comments and suggestions on how to try to address this issue. I commented that I have reviewed related to origami in Mathematica are very good examples, but I still have not...
Many thanks @Hans Milton and @ David Reiss with your help I can solve my problem
Thank you very much for your help @Marco Thiel and @Mikael Forsgren, that's exactly where needed, greetings Luis
Please Delete this part