Re: remarks on significance arithmetic implementation [Was: Re: Numerical accuracy/precision - this is a bug or a feature?]
- To: mathgroup at smc.vnet.net
- Subject: [mg120340] Re: remarks on significance arithmetic implementation [Was: Re: Numerical accuracy/precision - this is a bug or a feature?]
- From: Richard Fateman <fateman at eecs.berkeley.edu>
- Date: Tue, 19 Jul 2011 06:58:03 -0400 (EDT)
On 7/18/2011 11:54 AM, Daniel Lichtblau wrote: > > [Caution: This may increase the entropy of the thread, and almost > certainly will increase the ennui.] Yep > > ... snip ... a bunch of things I think we agree upon. > To expand on "properly rounded floats" I will mention that > Mathematica's significance arithmetic, in certain settings, is as > conservative as interval arithmetic. Specifically this works out when > the operations used are addition, multiplication, integer powering, or > division with both operands approximate. Also required is that they > have more significant digits than can be represented by the error > recorder (that is to say, more than 16 or so digits when error is > recorded as a 53-bit-mantissa float). The gist is that precision is > altered downward in a way that will even account for second order > error (and the higher order error terms that exist in computing x/y > where x and y are both approximate bignums). I am unclear on this zeroth, first, second order error categorization. It seems to me that the critical problem, and one that is not addressed by Mathematica, in interval arithmetic, is addressing dependence of operands. Consider the two expressions f[x_]:= (x-1)*(x+1) and g[x_]:=(x^2-1) which are analytically the same function. given the value v=Interval[{-1/2,1/2}] f[v] returns an interval with width 2. g[v] returns an interval with width 1/4. The function g is obviously a lot better than f. Same thing happens for v=0.1`2. f[v] is -0.99`269.. but g[v] is -0.99`3.69... So according to Mathematica, g evaluates to a full decimal digit higher accuracy. A true devotee of interval arithmetic (or of significance arithmetic) would take the function body for f and rearrange it as g, and also would require for comparisons such concepts as possibly-equal, certainly-greater-than etc. And would need to resolve meanings for empty intervals and other such things. Some of these may in fact be in Mathematica's interval arithmetic suite. They seem to be absent in the significance arithmetic world, though there is a transition from one to the other possible. Note that Interval[0.1`2] returns the fairly nonsensical Interval[{0.1,0.10}] but InputForm[%] shows Interval[{0.098046875`1.9914337561691884, 0.101953125`2.008400542026431}], maybe overkill. Interval[{0.98,0.102}] might be OK. There are ways of reducing semi-automatically, the number of repeat occurrences of operands in such expressions, thereby improving the interval widths. This (that is, computing "single use expressions") is the kind of thing that would, I think, be useful and for which computer algebra systems are especially appropriate. That, in combination with some other tricks of interval "reliable" arithmetic would be helpful (and for which I have written some programs, not in Mathematica though). So the real contribution to interval arithmetic (or significance arithmetic) of Mathematica would be if it were able to reformulate some subset of expressions so that they were automatically computed faster and more accurately. (One could argue that boosting the software precision will get the answer accurately, especially if one ignores exponentially longer run-times.) For some discussion in the context of a (different) programming language that is not much like Mathematica, see http://developers.sun.com/sunstudio/products/archive/whitepapers/tech-interval-final.pdf There are other, more expensive techniques. E.g. if p(x) is a polynomial, what is p[Interval[{a,b}]] ? Instead of just interval-alizing the + and * and ^, find the extrema of p between a and b. What is Sin[Interval[...]], etc. > > It would not be hard to extend this to the taking of reciprocals and > hence division of integer by float e.g. x --> 1/x. But as best I can > tell from looking at the code, Mathematica does not do this, so error > tracking in that case is purely first order. Maybe I'm not following here, but computing an interval for 1/x does not seem difficult. > > >> [...] >> My point remains: >> WRI could have a much more direct notion of number, and equality, >> that >> would make it easy to implement my choice of arithmetic or theirs or >> yours. >> They didn't. The default is not completely reliable. People write to >> this newsgroup, periodically, saying Huh? what's going on? I found a >> bug! > > This is, I am afraid, nonsense. Nothing would make it "easy" to > implement significance arithmetic across the spectrum of Mathematica's > numerical engine. To do so efficiently, reliably, maintainably, etc. > is, well, a significant task. Jerry Keiper could do it. Mark Sofroniou > could do it. I do not think I could do it, at least not very well. > And, as the saying goes, "I have me doubts about thee". OK, I did not mean it would be easy to reproduce what Jerry Keiper did, but after all, he did do it using ordinary arithmetic at its base. What I did mean is that programs to do arithmetic "the machine way" would run at machine speed (= easy); the programs to do software bigfloats without significance tracking would run faster (=easier) than including significance tracking. And that if one wished to patch-up such code with built-in tracking ,after the fact by re-stating the precision after each operation, that would be slower (= not as easy) than avoiding it in the first place. So, easy= easy for the computer. I do think that people write to the newsgroup reporting what they think of as bugs, but are actually the deliberate consequences of the design of arithmetic. > > >> As for the experimental and computational notions of (im)precision, I >> think there is an issue of using the same words with different meanings. >> Similar but unfortunately different. Precision of a floating point >> number F is simply the number of bits in the fraction. If you impute >> some uncertainty to F, you can store that in another piece of data D in >> the computer. If you want to assert that F and D together represent a >> distribution of a certain kind you can also compute with that. >> >> RJF >> [...] > > Related to the above (I think), you stated earlier in this thread that > the differences in terminology usage can be troublesome. I agree that > the meaning of Mathematica's Precision and, to a lesser extent, > Accuracy, might cause initial confusion to one unfamiliar with the > software but well versed in Numerical Analysis. I would expect such > people to catch on after being bitten once or twice, and either get > used to the distinctions, or use different software. yes, but there are not too many well versed in numerical analysis. > > This strikes me as similar to the situation wherein Append and Prepend > are O(n) rather than O(1) complexity operations, since they rewrite > their List arguements in full. A CS person new to Mathematica might > well assume List is akin to the CS notion of a (singly or doubly) > linked list. After learning otherwise they'd probably not be too > flustered, other than perhaps to mutter that the naming of "List" was > problematic. Even that would perhaps abate once they get accustomed to > the very general Mathematica notion of a List. After all, a linked > list is a modestly arcane structure to those outside CS, and most > general software users are not from inside CS, and most CS people will > understand that. Similar, yes. Dissimilar in the sense that the List operations return expected results, just slower. But arithmetic returns (on occasion) unexpected results. RJF From mathgroup-adm at smc.vnet.net Wed Jul 20 04:37:43 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id DF9596BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 04:37:42 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6K9bicG011062; Wed, 20 Jul 2011 04:37:44 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id CDF66A813E; Wed, 20 Jul 2011 04:37:43 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 29AD5A80ED; Wed, 20 Jul 2011 04:37:42 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24025 for mathgroup-newout; Wed, 20 Jul 2011 06:30:58 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24020 for mathgroup-newsend; Wed, 20 Jul 2011 06:30:57 -0400 (EDT) Date: Wed, 20 Jul 2011 06:30:57 -0400 (EDT) Message-Id: <201107201030.GAA24020 at smc.vnet.net> From: Oliver Ruebenkoenig <ruebenko at wolfram.com> Subject: [mg120357] Re: Find position of nonzero elements References: <201107191053.GAA10147 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.92120 On Tue, 19 Jul 2011, Dominic Wörner wrote: > Hi, > > How can I find the indices i and j of all nonzero elements of a matrix. > I want that because there are only some nonzero elements in a huge > matrix. > > Best regards, > Dominic Dominic, how about sa = SparseArray[IdentityMatrix[4]] sa["Properties"] sa["NonzeroPositions"] Oliver > > From mathgroup-adm at smc.vnet.net Wed Jul 20 04:40:51 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 43BB16BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 04:40:51 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6K9eq0X011383; Wed, 20 Jul 2011 04:40:52 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 859B2A813E; Wed, 20 Jul 2011 04:40:52 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id AF891BF42E; Wed, 20 Jul 2011 04:40:50 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24143 for mathgroup-newout; Wed, 20 Jul 2011 06:33:51 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24138 for mathgroup-newsend; Wed, 20 Jul 2011 06:33:50 -0400 (EDT) Date: Wed, 20 Jul 2011 06:33:50 -0400 (EDT) Message-Id: <201107201033.GAA24138 at smc.vnet.net> From: Sebastian Hofer <sebhofer at gmail.com> Subject: [mg120373] Re: Find position of nonzero elements Reply-To: comp.soft-sys.math.mathematica at googlegroups.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.93021 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_10_99 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, SMALL_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Does ArrayRules work? From mathgroup-adm at smc.vnet.net Wed Jul 20 04:42:40 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 25DC96BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 04:42:40 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6K9gfvJ011472; Wed, 20 Jul 2011 04:42:41 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 258D0BF4B5; Wed, 20 Jul 2011 04:42:41 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 9D1C9BF482; Wed, 20 Jul 2011 04:42:39 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24086 for mathgroup-newout; Wed, 20 Jul 2011 06:32:24 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24081 for mathgroup-newsend; Wed, 20 Jul 2011 06:32:24 -0400 (EDT) Date: Wed, 20 Jul 2011 06:32:24 -0400 (EDT) Message-Id: <201107201032.GAA24081 at smc.vnet.net> From: carlos at colorado.edu Subject: [mg120365] Total plot width To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.93021 How can I specify the total plot width in Mathematica? I was looking for something like AbsolutePlotWidth->250 (points implied) but havent found that option in the documentation. There is AspectRatio, but that is not a dimension. Thanks. From mathgroup-adm at smc.vnet.net Wed Jul 20 04:44:19 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 6C3F66BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 04:44:19 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6K9iKH0011643; Wed, 20 Jul 2011 04:44:20 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 66611BF4B5; Wed, 20 Jul 2011 04:44:20 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id CF4EFBF42E; Wed, 20 Jul 2011 04:44:18 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24151 for mathgroup-newout; Wed, 20 Jul 2011 06:34:02 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24146 for mathgroup-newsend; Wed, 20 Jul 2011 06:34:01 -0400 (EDT) Date: Wed, 20 Jul 2011 06:34:01 -0400 (EDT) Message-Id: <201107201034.GAA24146 at smc.vnet.net> From: Elizabeth Latta <elizabeth at elizabethlatta.com> Subject: [mg120374] Re: Using Plot3D; rotating the plot but, getting a different image after exporting. To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.93315 I`ve never had a problem. I rotate then right click and choose "Save Graphic As..." -Elizabeth ----- www.elizabethlatta.com From mathgroup-adm at smc.vnet.net Wed Jul 20 04:45:33 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 9D7366BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 04:45:33 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6K9jZcS011741; Wed, 20 Jul 2011 04:45:35 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id ED1A0BF42E; Wed, 20 Jul 2011 04:45:34 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 6EB9FA8195; Wed, 20 Jul 2011 04:45:33 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24175 for mathgroup-newout; Wed, 20 Jul 2011 06:34:34 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24170 for mathgroup-newsend; Wed, 20 Jul 2011 06:34:33 -0400 (EDT) Date: Wed, 20 Jul 2011 06:34:33 -0400 (EDT) Message-Id: <201107201034.GAA24170 at smc.vnet.net> From: Sseziwa Mukasa <mukasa at gmail.com> Subject: [mg120377] Re: Find position of nonzero elements References: <201107191053.GAA10147 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.93315 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_300_399 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Position[matrix,Except[0]] If it's machine precision you may need to do Position[matrix,Except[0.]] On Jul 19, 2011, at 6:53 AM, Dominic W=F6rner wrote: > Hi, > > How can I find the indices i and j of all nonzero elements of a matrix. > I want that because there are only some nonzero elements in a huge > matrix. > > Best regards, > Dominic > From mathgroup-adm at smc.vnet.net Wed Jul 20 04:47:59 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id D98196BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 04:47:58 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6K9lxgP011930; Wed, 20 Jul 2011 04:47:59 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 0C138BF4B5; Wed, 20 Jul 2011 04:47:59 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 74DCFBF482; Wed, 20 Jul 2011 04:47:57 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24015 for mathgroup-newout; Wed, 20 Jul 2011 06:30:47 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24010 for mathgroup-newsend; Wed, 20 Jul 2011 06:30:46 -0400 (EDT) Date: Wed, 20 Jul 2011 06:30:46 -0400 (EDT) Message-Id: <201107201030.GAA24010 at smc.vnet.net> From: "Tong Shiu-sing" <sstong at phy.cuhk.edu.hk> Subject: [mg120356] Plotting a star map References: <201107140922.FAA15682 at smc.vnet.net> <201107141114.HAA17001 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.93915 Dear All, I have the coordinates (RA and Decl) of some stars and nebulae in a small part of the celestial sphere and want to plot them as a star map. What projection method should I use? Does Mathematica has a standard package for doing it (just like that for the geo-data)? How do specify the boundary of the plot. Regards, Dominic From mathgroup-adm at smc.vnet.net Wed Jul 20 04:49:37 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 168C36BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 04:49:37 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6K9ncTX012076; Wed, 20 Jul 2011 04:49:38 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 2FFF3A8190; Wed, 20 Jul 2011 04:49:38 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 9B23DBF42E; Wed, 20 Jul 2011 04:49:36 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24182 for mathgroup-newout; Wed, 20 Jul 2011 06:34:46 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24177 for mathgroup-newsend; Wed, 20 Jul 2011 06:34:45 -0400 (EDT) Date: Wed, 20 Jul 2011 06:34:45 -0400 (EDT) Message-Id: <201107201034.GAA24177 at smc.vnet.net> From: Gregory Lypny <gregory.lypny at videotron.ca> Subject: [mg120378] Imported Data in Mathematica Player or CDF Documents To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.93915 Hello everyone, I'm in the process of creating a set of Mathematica Player documents for my students, and for many of them, I need to import data from text files. When I convert the notebooks to CDF, is the imported data cached? Can I simply leave the Import function in the player document? Or do I have to copy and paste the data manually into a variable? Any advice would be much appreciated, Gregory From mathgroup-adm at smc.vnet.net Wed Jul 20 04:50:59 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 808716BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 04:50:59 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6K9p0X5012206; Wed, 20 Jul 2011 04:51:00 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id BD3C6BF42E; Wed, 20 Jul 2011 04:51:00 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id B38FFBF4B6; Wed, 20 Jul 2011 04:50:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24034 for mathgroup-newout; Wed, 20 Jul 2011 06:31:09 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24029 for mathgroup-newsend; Wed, 20 Jul 2011 06:31:08 -0400 (EDT) Date: Wed, 20 Jul 2011 06:31:08 -0400 (EDT) Message-Id: <201107201031.GAA24029 at smc.vnet.net> From: Murray Eisenberg <murray at math.umass.edu> Subject: [mg120358] Re: Find position of nonzero elements Reply-To: murray at math.umass.edu References: <201107191053.GAA10147 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.93915 There must be a simpler way, but here's one way. mat = {{-2, -3, 0, -1}, {3, -2, 0, 2}, {0, -1, 1, 2}}; mn = Dimensions[mat]; ij = Table[{i, j}, {i, First@mn}, {j, Last@mn}]; Pick[Flatten[indices, 1], Thread[0 != Flatten@mat]] {{1,1}, {1,2}, {1,4}, {2,1}, {2,2}, {2,4}, {3,2}, {3,3}, {3,4}} The difficulty is that Mathematica, in contrast to some programming languages, really has no sense of higher-order arrays, just of 1-dimensional lists, so that it really has no such thing as a matrix, just a list of lists. On 7/19/11 6:53 AM, Dominic W=F6rner wrote: > Hi, > > How can I find the indices i and j of all nonzero elements of a matrix. > I want that because there are only some nonzero elements in a huge > matrix. > > Best regards, > Dominic > -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 413 549-1020 (H) University of Massachusetts 413 545-2859 (W) 710 North Pleasant Street fax 413 545-1801 Amherst, MA 01003-9305 From mathgroup-adm at smc.vnet.net Wed Jul 20 04:52:01 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id B09F96BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 04:52:01 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6K9q2ZH012292; Wed, 20 Jul 2011 04:52:02 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 94CE5A80ED; Wed, 20 Jul 2011 04:52:02 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id E6974A8190; Wed, 20 Jul 2011 04:52:00 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24167 for mathgroup-newout; Wed, 20 Jul 2011 06:34:23 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24161 for mathgroup-newsend; Wed, 20 Jul 2011 06:34:22 -0400 (EDT) Date: Wed, 20 Jul 2011 06:34:22 -0400 (EDT) Message-Id: <201107201034.GAA24161 at smc.vnet.net> From: =?iso-8859-1?Q?Dominic_W=F6rner?= <dominic.woerner at mpi-hd.mpg.de> Subject: [mg120376] Re: Find position of nonzero elements References: <201107191053.GAA10147 at smc.vnet.net> <Pine.LNX.4.63.1107190532290.28777 at wopr.wolfram.com> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.93915 Thanks Oliver and also Andy. This is very good to know! Am 19.07.2011 um 12:33 schrieb Oliver Ruebenkoenig: > On Tue, 19 Jul 2011, Dominic W=F6rner wrote: > >> Hi, >> >> How can I find the indices i and j of all nonzero elements of a matrix. >> I want that because there are only some nonzero elements in a huge >> matrix. >> >> Best regards, >> Dominic > > Dominic, > > how about > > sa = SparseArray[IdentityMatrix[4]] > sa["Properties"] > sa["NonzeroPositions"] > > Oliver > >> >> From mathgroup-adm at smc.vnet.net Wed Jul 20 04:53:37 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id AE9A36BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 04:53:37 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6K9rdos012419; Wed, 20 Jul 2011 04:53:39 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id C128DA813E; Wed, 20 Jul 2011 04:53:38 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 47C1FA80ED; Wed, 20 Jul 2011 04:53:37 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24064 for mathgroup-newout; Wed, 20 Jul 2011 06:31:52 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24058 for mathgroup-newsend; Wed, 20 Jul 2011 06:31:51 -0400 (EDT) Date: Wed, 20 Jul 2011 06:31:51 -0400 (EDT) Message-Id: <201107201031.GAA24058 at smc.vnet.net> From: gonzorascal <djw22 at duke.edu> Subject: [mg120362] Inverse of Interpolating Function? To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.94214 Hello All, I am working with an Interpolating Function of an oscillating solution (time series) to a differential equation. I am trying to find the period and pulse width of the oscillation. To do this I would like to have an inverse of my function y[t] (so I would have t[y]). I realize this function would be multivalued (that's what I want to find the period). I am not having success using Mathematica's InverseFunction[] or Reduce[] commands. Does anyone have any experience or suggestions with this sort of thing (either finding Inverse Interpolating Functions or another method for period and pulse width)? Thank you. -GR From mathgroup-adm at smc.vnet.net Wed Jul 20 04:56:08 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 6AB2C6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 04:56:08 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6K9u9MJ013072; Wed, 20 Jul 2011 04:56:09 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id AD0ADA80ED; Wed, 20 Jul 2011 04:56:09 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id C120FBF42E; Wed, 20 Jul 2011 04:56:07 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24122 for mathgroup-newout; Wed, 20 Jul 2011 06:33:19 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24117 for mathgroup-newsend; Wed, 20 Jul 2011 06:33:18 -0400 (EDT) Date: Wed, 20 Jul 2011 06:33:18 -0400 (EDT) Message-Id: <201107201033.GAA24117 at smc.vnet.net> From: Bill Rowe <readnews at sbcglobal.net> Subject: [mg120370] Re: Find position of nonzero elements To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.94214 On 7/19/11 at 6:53 AM, dominic.woerner at mpi-hd.mpg.de (Dominic W=C3=B6rner) wrote: >How can I find the indices i and j of all nonzero elements of a >matrix. I want that because there are only some nonzero elements in >a huge matrix. I will assume your matrix is not currently a SparseArray. If so, do the following Most[ArrayRules@SparseArray@m] /. HoldPattern[a_ -> _] -> a where m is your matrix. ArrayRules applied to a SparseArray returns a list of the form {i,j}->x where i,j are the indices of a non-zero entry and x is the value of that entry. The last rule in this list will be {_,_}->0 which is default rule for elements with a zero value you aren't interested in. Finally, the replacement rule simply extracts the {i,j} portion of each rule for a non-zero entry. From mathgroup-adm at smc.vnet.net Wed Jul 20 04:57:25 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id C27B96BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 04:57:25 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6K9vRiW013184; Wed, 20 Jul 2011 04:57:27 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 0A239BF4B5; Wed, 20 Jul 2011 04:57:27 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 75348BF42E; Wed, 20 Jul 2011 04:57:25 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24071 for mathgroup-newout; Wed, 20 Jul 2011 06:32:03 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24066 for mathgroup-newsend; Wed, 20 Jul 2011 06:32:02 -0400 (EDT) Date: Wed, 20 Jul 2011 06:32:02 -0400 (EDT) Message-Id: <201107201032.GAA24066 at smc.vnet.net> From: blamm64 <blamm64 at charter.net> Subject: [mg120363] Re: Unexpected Behavior: SetDelayed versus Set References: <201107181013.GAA26867 at smc.vnet.net> <j03oa4$a83$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.94214 Thanks Daniel L., I have implemented essentially as you suggested, with a further check to Select only real and greater than zero results, choose Max of what remains, and to Print a diagnostic if Max returns -Infinity. Thanks Bobby, what can I write except Exp[WOW]!? Thanks Leonid, I am quite careful with the scoping in the notebook from which this example, paired down, came. In the notebook, as it currently exists, from which this example was extracted, aLinQS and bQuadQS are parameterized, I just opted to make the example less cluttered. I did read the links you provided and they were very helpful. Now, if I can just find that baseball cap with "DA" on it, I have to wear it for a while ... . From mathgroup-adm at smc.vnet.net Wed Jul 20 05:00:21 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 27FE56BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 05:00:21 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6KA0KGf013586; Wed, 20 Jul 2011 05:00:22 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 3E464BF4B5; Wed, 20 Jul 2011 05:00:20 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id D216FBF483; Wed, 20 Jul 2011 05:00:18 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24158 for mathgroup-newout; Wed, 20 Jul 2011 06:34:12 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24153 for mathgroup-newsend; Wed, 20 Jul 2011 06:34:12 -0400 (EDT) Date: Wed, 20 Jul 2011 06:34:12 -0400 (EDT) Message-Id: <201107201034.GAA24153 at smc.vnet.net> From: "Hobbs, Sylvia (DPH)" <sylvia.hobbs at state.ma.us> Subject: [mg120375] Re: Using Plot3D; rotating the plot but, getting a different image after exporting. To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.94814 It's always the obvious. So there are two ways of rotating, using the rotate function command or just taking an unrotated graph and manually rotating it with the mouse rather than function. So it appears that the exported mouse rotated jpg saves as rotated, but the exported function rotated jpg exports unrotated. Sylvia Hobbs ________________________________________ From: Elizabeth Latta [elizabeth at elizabethlatta.com] Sent: Tuesday, July 19, 2011 9:10 AM To: Hobbs, Sylvia (DPH); ss2011 at wolframscience.com; mathgroup at smc.vnet.net Subject: [mg120375] Re: RE: Using Plot3D; rotating the plot but, getting a different image after exporting. I`ve never had a problem. I rotate then right click and choose "Save Graphic As..." -Elizabeth ----- www.elizabethlatta.com From mathgroup-adm at smc.vnet.net Wed Jul 20 05:01:58 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id CB3E36BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 05:01:58 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6KA20Zw013758; Wed, 20 Jul 2011 05:02:00 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 189DBBF42E; Wed, 20 Jul 2011 05:02:00 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 70282A8194; Wed, 20 Jul 2011 05:01:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24137 for mathgroup-newout; Wed, 20 Jul 2011 06:33:40 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24132 for mathgroup-newsend; Wed, 20 Jul 2011 06:33:39 -0400 (EDT) Date: Wed, 20 Jul 2011 06:33:39 -0400 (EDT) Message-Id: <201107201033.GAA24132 at smc.vnet.net> From: Richard Fateman <fateman at eecs.berkeley.edu> Subject: [mg120372] Re: remarks on significance arithmetic implementation [Was: Re: Numerical accuracy/precision - this is a bug or a feature?] To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.95414 On 7/19/2011 6:49 PM, DrMajorBob wrote: > As before, I think much of this discussion is useless. But this > example DOES give me pause: > >> Consider the two expressions >> f[x_]:= (x-1)*(x+1) and g[x_]:=(x^2-1) >> >> which are analytically the same function. >> >> given the value v=Interval[{-1/2,1/2}] f[v] returns an interval with >> width 2. g[v] returns an interval with width 1/4. > > I don't see why we'd want significance tracking to act this way. > > Bobby > I think that it is considered too expensive to do it this way. If you use significance arithmetic most of the time, it can't be so expensive. Also, it is difficult to write a program to do it, in general. See http://www.cs.berkeley.edu/~fateman/papers/interval.pdf and look for SUE or Single Use Expressions. RJF From mathgroup-adm at smc.vnet.net Wed Jul 20 05:04:17 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id EC6AC6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 05:04:16 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6KA4IXA014051; Wed, 20 Jul 2011 05:04:18 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 32824A8195; Wed, 20 Jul 2011 05:04:18 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id ACECDA80ED; Wed, 20 Jul 2011 05:04:16 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24131 for mathgroup-newout; Wed, 20 Jul 2011 06:33:29 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24126 for mathgroup-newsend; Wed, 20 Jul 2011 06:33:29 -0400 (EDT) Date: Wed, 20 Jul 2011 06:33:29 -0400 (EDT) Message-Id: <201107201033.GAA24126 at smc.vnet.net> From: PA32R <tio540s1 at gmail.com> Subject: [mg120371] Re: Replace, test question References: <j0113e$qad$1 at smc.vnet.net> <j03ora$adr$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.95414 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ALLCAPS 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_1099 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __PHISH_SPEAR_STRUCTURE_2 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. On Jul 19, 4:12 am, Yves Klett <yves.kl... at googlemail.com> wrote: > Hi, > > you need to supply x as argument to PrimeQ... alternatively use PatternTest: > > {58, 61, 15, 66, 10, 2, 24, 81, 45, 84} /. x_ /; PrimeQ[x] -> P > > {58, P, 15, 66, 10, P, 24, 81, 45, 84} > > {58, 61, 15, 66, 10, 2, 24, 81, 45, 84} /. x_?PrimeQ -> P > > {58, P, 15, 66, 10, P, 24, 81, 45, 84} > > Regards, > Yves > > Am 18.07.2011 12:15, schriebPA32R: > > > > > > > > > I'm very new to Mathematica and trying to work my way through it. I > > don't understand why: > > {58, 61, 15, 66, 10, 2, 24, 81, 45, 84} /. x_ /; PrimeQ -> P > > returns: > > {58, 61, 15, 66, 10, 2, 24, 81, 45, 84} > > > I would expect it to take the list, replace everything in the list > > that matches any pattern and passes the PrimeQ test, i.e., is prime, > > with P to yield: > > {58, P, 15, 66, 10, P, 14, 81, 45, 84} > > > Can someone explain my misunderstanding? > > > Thanks. Thanks everyone, I got it done. The assistance is much appreciated. From mathgroup-adm at smc.vnet.net Wed Jul 20 05:05:22 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 224586BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 05:05:22 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6KA5N1i014182; Wed, 20 Jul 2011 05:05:23 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 569E4A80ED; Wed, 20 Jul 2011 05:05:23 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id BD2ABBF42E; Wed, 20 Jul 2011 05:05:21 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24107 for mathgroup-newout; Wed, 20 Jul 2011 06:32:57 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24102 for mathgroup-newsend; Wed, 20 Jul 2011 06:32:56 -0400 (EDT) Date: Wed, 20 Jul 2011 06:32:56 -0400 (EDT) Message-Id: <201107201032.GAA24102 at smc.vnet.net> From: "Hobbs, Sylvia (DPH)" <sylvia.hobbs at state.ma.us> Subject: [mg120368] Re: Using Plot3D; rotating the plot but, getting a different image after exporting. To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.95414 Ditto that problem and it is not limited to 3D plots. I've had that problem with other rotated Mathematica graphics that I import as a jpg. I end up pasting the jpg into PowerPoint re-rotating it and saving it as the jpg I had hoped Mathematica would rotate. Any insight on Mathematica commands that fix this without bringing the graphic into other program would be great. If there isn't one, then maybe, just maybe this is a teeny weeny bug. Sylvia Hobbs ________________________________________ From: Gilmar Rodriguez-pierluissi [peacenova at yahoo.com] Sent: Tuesday, July 19, 2011 6:57 AM To: mathgroup at smc.vnet.net Subject: [mg120368] Using Plot3D; rotating the plot but, getting a different image after exporting. Sometimes, when I build a plot using Plot3D (or similar 3D plotting program); rotate the plot on the Mathematica platform and then export it; the jpeg or png picture that I get after exporting the plot is different than the original image generated by Plot3D. Is there any way to avoid this? Thank you for your help! - Gilmar Rodriguez Pierluissi From mathgroup-adm at smc.vnet.net Wed Jul 20 05:08:09 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id D35526BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 05:08:09 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6KA8Bdn014357; Wed, 20 Jul 2011 05:08:11 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id D79EABF483; Wed, 20 Jul 2011 05:08:10 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 2506BBF42E; Wed, 20 Jul 2011 05:08:09 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24078 for mathgroup-newout; Wed, 20 Jul 2011 06:32:13 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24073 for mathgroup-newsend; Wed, 20 Jul 2011 06:32:13 -0400 (EDT) Date: Wed, 20 Jul 2011 06:32:13 -0400 (EDT) Message-Id: <201107201032.GAA24073 at smc.vnet.net> From: Gregory Lypny <gregory.lypny at videotron.ca> Subject: [mg120364] Possible Bug in Dates Supplied with FinancialData Function To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.100015 Hello everyone, Not sure whether I've misunderstood how FinancialData works, but it seems to me that the wrong date is attached to prices if they are downloaded using a monthly frequency. I used the following start and end dates. seriesStartDate = {2009, 01, 01}; seriesEndDate = {2011, 6, 30}; I download daily prices for Apple Inc. by running dailyPrices = FinancialData["AAPL", {seriesStartDate, seriesEndDate, =93Day=94}] If I then download monthly prices by running monthlyPrices = FinancialData["AAPL", {seriesStartDate, seriesEndDate, =93Month=94}] the observations are dated at the beginning of each month but correspond to the price on the last day of the month. The price of Apple on 2009-01-30, for example, when downloaded as daily is $90.13 but when downloaded as monthly, that same price is date stamped 2009-01-02, that is, at the beginning of the month. So, when downloading using a monthly frequency, the date stamps may mislead you into thinking that you are getting beginning-of-month prices when, in fact, you are getting end-of-month prices. I almost always need end-of-month prices, so to get the correct dates, I download as daily and extract the last daily observation for each month GatherBy[dailyPrices, #[[1, {1, 2}]] &] Last /@% You could do the same using Cases. Regards, Gregory From mathgroup-adm at smc.vnet.net Wed Jul 20 05:09:52 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 3C9F66BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 05:09:52 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6KA9rwZ014510; Wed, 20 Jul 2011 05:09:53 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 13580BF483; Wed, 20 Jul 2011 05:09:53 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 1F409A80ED; Wed, 20 Jul 2011 05:09:51 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24057 for mathgroup-newout; Wed, 20 Jul 2011 06:31:41 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24052 for mathgroup-newsend; Wed, 20 Jul 2011 06:31:40 -0400 (EDT) Date: Wed, 20 Jul 2011 06:31:40 -0400 (EDT) Message-Id: <201107201031.GAA24052 at smc.vnet.net> From: Andrzej Kozlowski <akoz at mimuw.edu.pl> Subject: [mg120361] Re: Transforming an expression to publication form References: <201107191057.GAA10297 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.100015 On 19 Jul 2011, at 11:57, carlos at colorado.edu wrote: > Suppose I have the expression > > C11=A*Em*(4-3*omega^2+nu*(-8+3*omega^2)+(-4+8*nu)*Cos[kappa]); > > I want to transform this into > > C11pub=Em*A*(4*(1-2*nu)*(1-Cos[kappa])-3*(1-nu)*omega^2); > > which is the exactly the way it has to appear in a journal > publication, > once mapped to LaTeX. Both C11 and C11pub have the > same LeafCount (27), and C11 is invariant under Simplify > and FullSimplify. > > How do I accomplish C11 -> C11pub within Mathematica, > without using any extra packages? BTW this is part of one > of 36 matrix entries, so transforming all by hand takes a while. > On the one hand: in general, it is not reasonable to expect Mathematica to do such things. It is not really intended for this purpose and while one can often succeed by using special tricks, there is no general approach and I don't think it is worth spending time on uncovering the tricks needed in an individual case. On the other hand, in this particular case it is rather easy to see these "tricks". Namely: C11 = A*Em*(4 - 3*omega^2 + nu*(-8 + 3*omega^2) + (-4 + 8*nu)*Cos[kappa]) Collect[Collect[C11, omega, Factor], {Em, A}] A Em (4 (2 nu-1) (cos(kappa)-1)+3 (nu-1) omega^2) This is essentially your C11pub except for some signs in a few places. Andrzej Kozlowski From mathgroup-adm at smc.vnet.net Wed Jul 20 05:09:55 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 077086BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 05:09:55 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6KA9uOS014517; Wed, 20 Jul 2011 05:09:56 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 121D4A80ED; Wed, 20 Jul 2011 05:09:56 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id C7545BF4B5; Wed, 20 Jul 2011 05:09:53 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24051 for mathgroup-newout; Wed, 20 Jul 2011 06:31:30 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24046 for mathgroup-newsend; Wed, 20 Jul 2011 06:31:30 -0400 (EDT) Date: Wed, 20 Jul 2011 06:31:30 -0400 (EDT) Message-Id: <201107201031.GAA24046 at smc.vnet.net> From: Daniel Lichtblau <danl at wolfram.com> Subject: [mg120360] Re: numeric Groebner bases et al [Was Re: Numerical accuracy/precision - this is a bug or a feature?] To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.100015 On 07/19/2011 05:54 AM, Richard Fateman wrote: > [...] > I gather from previous correspondence (DanL), that what significance > arithmetic is used for is a decision point as to whether some value is > or is not possibly zero. > The value is presumably the result of evaluating a (multivariate) > polynomial whose coefficients are exact rationals [or maybe not] at a > point where the coefficients are known as intervals [or maybe exact]. > Perhaps DanL can advise on this characterization. It's not that, but simple coefficient arithmetic e.g. in running Buchberger's algorithm or one of the more recent alternatives. One has to know when some linear combination of coefficients cancels. > [...] > I don't think there is a need to produce an independent implementation > of anything; the same abstract structure of algorithms should hold. It does, in running Buchberger's algorithm. Not sure if that was specifically what you had in mind here but it seems relevant to mention. > The idea that one must come up with a different proof (that is, by not > emulating the other proof) is irrelevant, Slightly tangential: Kondratyev et al proposed a variant to Groebner bases, which uses a variant of Buchberger's algorithm. In his thesis, Kondratyev did require a "different" set of proofs to show termination and correctness. Related to the usual proofs, but by no means identical and not exactly what i would view as emulation. > but as it happens, the > algorithm for evaluating a polynomial with guaranteed error does NOT > emulate significance arithmetic by carrying along extra baggage at each > operation. Crudely speaking, it evaluates the polynomial in > floating-point, and then it evaluates the polynomial with the signs of > all the coefficients changed to +. > > see slide 21 in > http://www-pequan.lip6.fr/~graillat/papers/slides_MIMS.pdf > which is something I just found with Google. > > RJF Certainly there are various methods of gauging precision loss in numeric evaluation of polynomials, and some may be better than blind significance arithmetic. The slides look like something I should check more closely. Daniel Lichtblau Wolfram Research From mathgroup-adm at smc.vnet.net Wed Jul 20 05:12:23 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 2FA516BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 05:12:23 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6KACJJ2014748; Wed, 20 Jul 2011 05:12:24 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 38EC2BF4B6; Wed, 20 Jul 2011 05:12:19 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 64B97BF417; Wed, 20 Jul 2011 05:12:17 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24099 for mathgroup-newout; Wed, 20 Jul 2011 06:32:46 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24094 for mathgroup-newsend; Wed, 20 Jul 2011 06:32:45 -0400 (EDT) Date: Wed, 20 Jul 2011 06:32:45 -0400 (EDT) Message-Id: <201107201032.GAA24094 at smc.vnet.net> From: Ray Koopman <koopman at sfu.ca> Subject: [mg120367] Re: MultinormalDistribution Question References: <201107100901.FAA24634 at smc.vnet.net> <ivel76$89d$1 at smc.vnet.net> <ivuc25$grq$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.100314 On Jul 17, 3:03 am, Steve <s... at epix.net> wrote: > [...] > What I really need to do is perform this analysis on test data for > which I have only a few data points, hence the Student T distribution > would be more appropriate than the Normal distribution. Secondly, > values for the "independent" and "dependent" variables have no > physical meaning below zero. So this implies that I need truncated > distributions. I'm hoping that the solution Andrzej provided can be > generalized for these added complications. > Here are my 9 {F,t} data points where "F" is considered "independent" > and t considered "dependent". > {{1.01041, 0.3152}, {10.455, 0.3386}, {17.9032, 0.2534}, {24.9581, > 0.5412}, {26.4688, 0.3251}, {27.4651, 0.4428}, {30.1682, > 0.3402}, {36.6174, 0.2106}, {45.6129, 0.2154}} > Would someone be so kind as to plop this data into their notebook to > confirm a solution or two for me ? My results are below which are > based on truncating the Student T distribution, 8 degrees of freedom > and a calculated rho of -0.2327. > [...] Another approach is to regress u = log[t] on f linearly. This solves the problem of keeping the conditional distributions of t non-negative, but makes the regression of t on f nonlinear. For your data, switching to u increases the correlation, but the conditional s.d. is still bigger than the marginal s.d., so there is still room for questioning the whole exercise. FWTW, here are the numbers I got: {mf, sf} = {Mean@f, StandardDeviation@f} {24.5177, 13.3704} {mu, su} = {Mean@u, StandardDeviation@u} {-1.1482, .311145} r = Correlation[f,u] -.322776 b = r*su/sf (* slope *) -.00751142 a = mu - b*mf (* intercept *) -.964034 se = su*Sqrt[(1-r^2)(n-1)/(n-2)] (* conditional s.d. *) .314825 Table[{x, CDF[StudentTDistribution[n-2], (a+b*x-Log[.5])/se]}, {x,0,50,5}] (* f, Pr[(t|f) > .5] *) {{0, .209020}, { 5, .179928}, {10, .154056}, {15, .131283}, {20, .111422}, {25, .0942435}, {30, .0794909}, {35, .0669001}, {40, .0562108}, {45, .0471758}, {50, .0395667}} From mathgroup-adm at smc.vnet.net Wed Jul 20 05:13:32 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id EFB086BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 05:13:31 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6KADXot014809; Wed, 20 Jul 2011 05:13:33 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 23257BF417; Wed, 20 Jul 2011 05:13:33 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 8EF40A813E; Wed, 20 Jul 2011 05:13:31 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24092 for mathgroup-newout; Wed, 20 Jul 2011 06:32:35 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24087 for mathgroup-newsend; Wed, 20 Jul 2011 06:32:34 -0400 (EDT) Date: Wed, 20 Jul 2011 06:32:34 -0400 (EDT) Message-Id: <201107201032.GAA24087 at smc.vnet.net> From: DrMajorBob <btreat1 at austin.rr.com> Subject: [mg120366] Re: Generating Arbitrary Linear Combinations of Functions To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.100314 You say "this works well", but it actually can't, since f -- as you used it in defining "Data" -- is undefined. (You didn't give us all the code.) So I'll build the model, only. Clear[f, a, z, c] f[a_?NumberQ, x_?NumberQ, xi_?NumberQ, c_?NumberQ] := c Exp[-a (x - xi)^2/2]/Sqrt@a; f[a_, z_, c_][x_] := f[a, x, z, c] n = 10; aVec = Array[a, n]; zVec = Array[z, n]; cVec = Array[c, n]; model = Total@Through[(f @@@ Transpose@{aVec, zVec, cVec})@x] f[a[1], x, z[1], c[1]] + f[a[2], x, z[2], c[2]] + f[a[3], x, z[3], c[3]] + f[a[4], x, z[4], c[4]] + f[a[5], x, z[5], c[5]] + f[a[6], x, z[6], c[6]] + f[a[7], x, z[7], c[7]] + f[a[8], x, z[8], c[8]] + f[a[9], x, z[9], c[9]] + f[a[10], x, z[10], c[10]] Then, after f[oneArgument_] and "data" have ALSO been defined: nlm = NonlinearModelFit[data, model, Flatten@{aVec, zVec, cVec}, x] Bobby On Tue, 19 Jul 2011 05:55:32 -0500, Thomas Markovich <thomasmarkovich at gmail.com> wrote: > Hi All, > > I'm trying to curve fit an arbitrary linear combination of distributed > gaussians to a function -- each with their own set of parameters. > Currently, > if I want to use twenty functions, I do the following > > f[a_?NumberQ, x_?NumberQ, xi_?NumberQ, c_?NumberQ] := ( > c E^(- a (x - xi)^2/2))/Sqrt[a/=F0]; > Data := Table[{n/50, N[f[n/50]]}, {n, -300, 300}]; > > model = f[a1, x, x1, c1] + f[a2, x, x2, c2] + f[a3, x, x3, c3] + > f[a4, x, x4, c4] + f[a5, x, x5, c5] + f[a6, x, x6, c6] + > f[a7, x, x7, c7] + f[a8, x, x8, c8] + f[a9, x, x9, c9] + > f[a10, x, x10, c10] + f[a11, x, x11, c11] + f[a12, x, x12, c12] + > f[a13, x, x13, c13] + f[a14, x, x14, c14] + f[a15, x, x15, c15] + > f[a16, x, x16, c16] + f[a17, x, x17, c17] + f[a18, x, x18, c18] + > f[a19, x, x19, c19] + f[a20, x, x20, c20]; > nlm = NonlinearModelFit[Data, > model, {a1, x1, c1, a2, x2, c2, a3, x3, c3, a4, x4, c4, a5, x5, c5, > a6, > x6, > c6, a7, x7, c7, a8, x8, c8, a9, x9, c9, a10, x10, c10, a11, x11, > c11, > a12, x12, c12, a13, x13, c13, a14, x14, c14, a15, x15, c15, a16, x16, > c16, > a17, x17, c17, a18, x18, c18, a19, x19, c19, a20, x20, c20}, x]; > > > > This works well but it becomes tedious to create these linear > combinations > by hand. It would be wonderful to create a linear combination of > functions > with a vector of coefficients for a, xi, and c. I am just unsure of how > to > approach this and I was hoping that you guys could offer some insight > into > this. > > > > Best, > > > > Thomas -- DrMajorBob at yahoo.com From mathgroup-adm at smc.vnet.net Wed Jul 20 05:13:50 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id EAD206BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 05:13:50 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6KADqSj014893; Wed, 20 Jul 2011 05:13:52 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 03A1FA819A; Wed, 20 Jul 2011 05:13:52 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 63D5EA8194; Wed, 20 Jul 2011 05:13:50 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24041 for mathgroup-newout; Wed, 20 Jul 2011 06:31:20 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24036 for mathgroup-newsend; Wed, 20 Jul 2011 06:31:19 -0400 (EDT) Date: Wed, 20 Jul 2011 06:31:19 -0400 (EDT) Message-Id: <201107201031.GAA24036 at smc.vnet.net> From: Daniel Lichtblau <danl at wolfram.com> Subject: [mg120359] Re: sorting a nested list of 4-tuples References: <201107191055.GAA10229 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.100314 On 07/19/2011 05:55 AM, Luis Valero wrote: > Dear Sirs, > > I want to sort a list of 4-tuples of real numbers, so that, the second 4-tuple has minimum distance to the first, the third, selected from the rest, ha minimum distance to the second, and so on. > > The distance is the euclidean distance, calculated with the first two elements of each 4-tuple. > > I have defined a function that work: > > orderedList[list_] := Module[{nearest}, > Flatten[ Nest[{ > Append[ #[[1]] , nearest = Flatten @@ Nearest[ Map[ Rule[ #[[{1, 2}]], #]&, #[[2]] ], Last[ #[[1]] ] [[{1, 2}]], 1] ], > Delete[ #[[2]], Position[ #[[2]], nearest ] ] }&, { {list[[1]] }, Delete[ list, 1 ] }, Length[ list ] - 2], 1] ]; > > > but I need to improve the temporal efficiency > > Thank you The complexity will show up either in needing to obtain a growing number of nearest items (to account for the fact that many may already ahve appeared), or removing selected items from further consideration. There may be a fancy way around these but I'm not seeing it offhand. At least not if we want to couple with a fast search for nearest items, using Nearest[]. A way to alleviate this is to gather newly selected items every so often and remove them in one shot. This adds to the coding complexity (required some debugging to get it to work, for one thing). But it does seem faster. I made no effort to tune for the removal interval (which need not be constant). There ar also some parts of the code that might be made slightly faster in other ways. n = 3000; data = RandomReal[{-100, 100}, {n, 4}]; chunksize = Ceiling[Log[n]]^2; denom = 10000.; moddata = Map[Take[#, 3] &, MapThread[Prepend, {data, Range[n]/denom}]]; nf = Nearest[moddata]; next = moddata[[1]]; taken = ConstantArray[False, n]; result = ConstantArray[{0., 0., 0., 0.}, n]; remove = ConstantArray[{0., 0., 0.}, chunksize]; result[[1]] = data[[1]]; remove[[1]] = moddata[[1]]; taken[[1]] = True; Timing[Do[ nextset = nf[next, 1 + Mod[j, chunksize, 1]]; posns = Round[denom*Map[First, nextset]]; k = 1; While[k < Length[nextset] && taken[[posns[[k]]]], k++;]; taken[[posns[[k]]]] = True; result[[j]] = data[[posns[[k]]]]; next = nextset[[k]]; remove[[Mod[j, chunksize, 1]]] = next; If[Mod[j, chunksize] == 0, done = True; posns = Apply[Alternatives, remove]; moddata = DeleteCases[moddata, posns]; nf = Nearest[moddata]; ]; , {j, 2, n}]] Out[639]= {0.57, Null} By comparison: In[640]:= Timing[result2 = orderedList[data];] Out[640]= {14.71, Null} In[641]:= result2 === result Out[641]= True Daniel Lichtblau WOlfram Research From mathgroup-adm at smc.vnet.net Wed Jul 20 05:16:01 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 4991B6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 05:16:01 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6KAG24u015040; Wed, 20 Jul 2011 05:16:02 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 6842FBF417; Wed, 20 Jul 2011 05:16:02 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 9A977A80ED; Wed, 20 Jul 2011 05:16:00 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24193 for mathgroup-newout; Wed, 20 Jul 2011 06:34:57 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24187 for mathgroup-newsend; Wed, 20 Jul 2011 06:34:56 -0400 (EDT) Date: Wed, 20 Jul 2011 06:34:56 -0400 (EDT) Message-Id: <201107201034.GAA24187 at smc.vnet.net> From: Sseziwa Mukasa <mukasa at gmail.com> Subject: [mg120379] Re: sorting a nested list of 4-tuples References: <201107191055.GAA10229 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.100314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODY_SIZE_6000_6999 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __RUS_OBFU_PHONE 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Your function does not appear to work correctly, sometimes the list is in the wrong order, but orderedList2: orderedList2[list_] := Module[{first = First[list], rest = Rest[list], nearest, result}, result = {first}; Do[nearest = Nearest[rest -> Automatic, Last[result]]; result = Join[result, rest[[nearest]]]; rest = Drop[rest, nearest], {Length[rest]}]; result] seems faster anyway.: In[11]:= Module[{list = RandomReal[{0, 1}, {20, 4}], result1, result2}, result1 = Timing[orderedList[list]]; result2 = Timing[orderedList2[list]]; {result1[[2]] == result2[[2]], result1[[1]], result2[[1]], {list, result1[[2]], result2[[2]]}}] Out[11]= {False, 0.002556, 0.0007, {{{0.0780386, 0.220901, 0.748457, 0.548342}, {0.722099, 0.308747, 0.33661, 0.304516}, {0.623358, 0.761312, 0.884318, 0.21337}, {0.14872, 0.284139, 0.244084, 0.582692}, {0.0829757, 0.911987, 0.448848, 0.606659}, {0.312903, 0.703568, 0.747021, 0.126831}, {0.847102, 0.437041, 0.0924343, 0.0333101}, {0.189339, 0.419192, 0.498754, 0.846607}, {0.661185, 0.455712, 0.31286, 0.387921}, {0.566059, 0.331815, 0.412978, 0.84236}, {0.714704, 0.335434, 0.417758, 0.0569088}, {0.855757, 0.0118403, 0.310144, 0.312894}, {0.278001, 0.874878, 0.289541, 0.199531}, {0.682503, 0.387263, 0.931379, 0.662633}, {0.8045, 0.264645, 0.595204, 0.534895}, {0.645246, 0.915467, 0.167849, 0.210847}, {0.789694, 0.987745, 0.0405679, 0.0957831}, {0.811736, 0.77314, 0.73452, 0.0771508}, {0.784869, 0.582503, 0.0986897, 0.152786}, {0.426251, 0.135863, 0.465908, 0.228462}}, {{0.0780386, 0.220901, 0.748457, 0.548342}, {0.14872, 0.284139, 0.244084, 0.582692}, {0.189339, 0.419192, 0.498754, 0.846607}, {0.312903, 0.703568, 0.747021, 0.126831}, {0.278001, 0.874878, 0.289541, 0.199531}, {0.0829757, 0.911987, 0.448848, 0.606659}, {0.623358, 0.761312, 0.884318, 0.21337}, {0.645246, 0.915467, 0.167849, 0.210847}, {0.789694, 0.987745, 0.0405679, 0.0957831}, {0.811736, 0.77314, 0.73452, 0.0771508}, {0.784869, 0.582503, 0.0986897, 0.152786}, {0.847102, 0.437041, 0.0924343, 0.0333101}, {0.714704, 0.335434, 0.417758, 0.0569088}, {0.722099, 0.308747, 0.33661, 0.304516}, {0.682503, 0.387263, 0.931379, 0.662633}, {0.661185, 0.455712, 0.31286, 0.387921}, {0.566059, 0.331815, 0.412978, 0.84236}, {0.426251, 0.135863, 0.465908, 0.228462}, {0.8045, 0.264645, 0.595204, 0.534895}, {0.855757, 0.0118403, 0.310144, 0.312894}}, {{0.0780386, 0.220901, 0.748457, 0.548342}, {0.189339, 0.419192, 0.498754, 0.846607}, {0.14872, 0.284139, 0.244084, 0.582692}, {0.566059, 0.331815, 0.412978, 0.84236}, {0.8045, 0.264645, 0.595204, 0.534895}, {0.722099, 0.308747, 0.33661, 0.304516}, {0.661185, 0.455712, 0.31286, 0.387921}, {0.784869, 0.582503, 0.0986897, 0.152786}, {0.847102, 0.437041, 0.0924343, 0.0333101}, {0.714704, 0.335434, 0.417758, 0.0569088}, {0.426251, 0.135863, 0.465908, 0.228462}, {0.855757, 0.0118403, 0.310144, 0.312894}, {0.682503, 0.387263, 0.931379, 0.662633}, {0.623358, 0.761312, 0.884318, 0.21337}, {0.811736, 0.77314, 0.73452, 0.0771508}, {0.312903, 0.703568, 0.747021, 0.126831}, {0.278001, 0.874878, 0.289541, 0.199531}, {0.645246, 0.915467, 0.167849, 0.210847}, {0.789694, 0.987745, 0.0405679, 0.0957831}, {0.0829757, 0.911987, 0.448848, 0.606659}}}} From the above output it seems to me orderedList is incorrect: In[12]:= Nearest[{{0.7220990188851284`, 0.30874655560999353`, 0.33661039115480085`, 0.30451607189733565`}, {0.623358140247426`, 0.7613121754790066`, 0.8843184964161348`, 0.21336965042896106`}, {0.14871956929750207`, 0.2841388256243189`, 0.2440839157054575`, 0.5826918077236027`}, {0.08297574175354927`, 0.9119868514832306`, 0.44884815651517496`, 0.606658888854545`}, {0.3129032093692543`, 0.7035682306379043`, 0.7470209852828422`, 0.126831036636313`}, {0.8471019825138335`, 0.4370412344560497`, 0.09243429503478429`, 0.03331005052172231`}, {0.18933936353633118`, 0.4191916563275504`, 0.49875370996337387`, 0.8466068811542358`}, {0.6611848899498884`, 0.455712283905654`, 0.31286031890780386`, 0.3879208331484807`}, {0.566058771065481`, 0.3318146887998126`, 0.41297814980274516`, 0.8423595336937795`}, {0.7147038318708883`, 0.33543423510640613`, 0.4177577945972242`, 0.056908774958363884`}, {0.8557567595586966`, 0.011840287587700837`, 0.31014365477384986`, 0.31289360223925855`}, {0.27800072513915963`, 0.8748776068932764`, 0.28954067774830894`, 0.19953109481447573`}, {0.6825027823624006`, 0.38726329607605536`, 0.9313788703031116`, 0.6626327289353637`}, {0.8045002220254145`, 0.26464489073341646`, 0.5952036781362782`, 0.5348945499518614`}, {0.6452463375631783`, 0.9154672494486176`, 0.16784916226023205`, 0.21084656084695386`}, {0.7896939168446158`, 0.9877454808787693`, 0.04056790678073363`, 0.09578312387470667`}, {0.8117363160995603`, 0.7731396349254072`, 0.7345204475002354`, 0.0771508252866615`}, {0.784869093354617`, 0.5825033331936824`, 0.09868967226141323`, 0.1527856209885663`}, {0.426250694413443`, 0.1358634032399666`, 0.46590788139431916`, 0.22846239863279472`}}, {0.07803858379747108`, 0.22090093831902768`, 0.7484574646075761`, 0.5483416965515358`}] Out[12]= {{0.189339, 0.419192, 0.498754, 0.846607}} Regards, Ssezi On Jul 19, 2011, at 6:55 AM, Luis Valero wrote: > Dear Sirs, > > I want to sort a list of 4-tuples of real numbers, so that, the second 4-tuple has minimum distance to the first, the third, selected from the rest, ha minimum distance to the second, and so on. > > The distance is the euclidean distance, calculated with the first two elements of each 4-tuple. > > I have defined a function that work: > > orderedList[list_] := Module[{nearest}, > Flatten[ Nest[{ > Append[ #[[1]] , nearest = Flatten @@ Nearest[ Map[ Rule[ #[[{1, 2}]], #] &, #[[2]] ], Last[ #[[1]] ] [[{1, 2}]], 1] ], > Delete[ #[[2]], Position[ #[[2]], nearest ] ] } &, { {list[[1]] }, Delete[ list, 1 ] }, Length[ list ] - 2], 1] ]; > > > but I need to improve the temporal efficiency > > Thank you > > > From mathgroup-adm at smc.vnet.net Wed Jul 20 05:17:19 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 857286BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 20 Jul 2011 05:17:19 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6KAHKMl015179; Wed, 20 Jul 2011 05:17:20 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 934D8A813E; Wed, 20 Jul 2011 05:17:20 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id F249EBF417; Wed, 20 Jul 2011 05:17:16 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24114 for mathgroup-newout; Wed, 20 Jul 2011 06:33:08 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA24109 for mathgroup-newsend; Wed, 20 Jul 2011 06:33:07 -0400 (EDT) Date: Wed, 20 Jul 2011 06:33:07 -0400 (EDT) Message-Id: <201107201033.GAA24109 at smc.vnet.net> From: DrMajorBob <btreat1 at austin.rr.com> Subject: [mg120369] Re: remarks on significance arithmetic implementation [Was: Re: Numerical accuracy/precision - this is a bug or a feature?] To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.20.100314 As before, I think much of this discussion is useless. But this example DOES give me pause: > Consider the two expressions > f[x_]:= (x-1)*(x+1) and g[x_]:=(x^2-1) > > which are analytically the same function. > > given the value v=Interval[{-1/2,1/2}] f[v] returns an interval with > width 2. g[v] returns an interval with width 1/4. I don't see why we'd want significance tracking to act this way. Bobby On Tue, 19 Jul 2011 05:58:03 -0500, Richard Fateman <fateman at eecs.berkeley.edu> wrote: > On 7/18/2011 11:54 AM, Daniel Lichtblau wrote: >> >> [Caution: This may increase the entropy of the thread, and almost >> certainly will increase the ennui.] > Yep >> >> > ... snip ... a bunch of things I think we agree upon. >> To expand on "properly rounded floats" I will mention that >> Mathematica's significance arithmetic, in certain settings, is as >> conservative as interval arithmetic. Specifically this works out when >> the operations used are addition, multiplication, integer powering, or >> division with both operands approximate. Also required is that they >> have more significant digits than can be represented by the error >> recorder (that is to say, more than 16 or so digits when error is >> recorded as a 53-bit-mantissa float). The gist is that precision is >> altered downward in a way that will even account for second order >> error (and the higher order error terms that exist in computing x/y >> where x and y are both approximate bignums). > I am unclear on this zeroth, first, second order error categorization. > It seems to me that the critical problem, and one that is not addressed > by Mathematica, in interval arithmetic, is addressing dependence of > operands. Consider the two expressions > f[x_]:= (x-1)*(x+1) and g[x_]:=(x^2-1) > > which are analytically the same function. > > given the value v=Interval[{-1/2,1/2}] f[v] returns an interval with > width 2. g[v] returns an interval with width 1/4. > > The function g is obviously a lot better than f. > Same thing happens for v=0.1`2. f[v] is -0.99`269.. but g[v] is > -0.99`3.69... So according to Mathematica, g evaluates > to a full decimal digit higher accuracy. > > A true devotee of interval arithmetic (or of significance arithmetic) > would take the function body for f and rearrange it as g, > and also would require for comparisons such concepts as possibly-equal, > certainly-greater-than etc. And would need > to resolve meanings for empty intervals and other such things. Some of > these may in fact be in Mathematica's interval > arithmetic suite. They seem to be absent in the significance arithmetic > world, though there is a transition from one to the > other possible. > Note that Interval[0.1`2] returns the fairly nonsensical > Interval[{0.1,0.10}] but InputForm[%] shows > Interval[{0.098046875`1.9914337561691884, > 0.101953125`2.008400542026431}], maybe overkill. > Interval[{0.98,0.102}] might be OK. > > > There are ways of reducing semi-automatically, the number of repeat > occurrences of operands in such expressions, thereby improving the > interval widths. This (that is, computing "single use expressions") is > the kind of thing that would, I think, be useful and for which computer > algebra systems are especially appropriate. That, in combination with > some other tricks of interval "reliable" arithmetic would be helpful > (and for which I have written some programs, not in Mathematica > though). So the real contribution to interval arithmetic (or > significance arithmetic) of Mathematica would be if it were able to > reformulate some subset of expressions so that they were automatically > computed faster and more accurately. > > (One could argue that boosting the software precision will get the > answer accurately, especially if one ignores exponentially longer > run-times.) > > > For some discussion in the context of a (different) programming language > that is not much like Mathematica, see > > http://developers.sun.com/sunstudio/products/archive/whitepapers/tech-interval-final.pdf > > There are other, more expensive techniques. E.g. if p(x) is a > polynomial, what is p[Interval[{a,b}]] ? > Instead of just interval-alizing the + and * and ^, find the extrema of > p between a and b. > What is Sin[Interval[...]], etc. > >> >> It would not be hard to extend this to the taking of reciprocals and >> hence division of integer by float e.g. x --> 1/x. But as best I can >> tell from looking at the code, Mathematica does not do this, so error >> tracking in that case is purely first order. > > Maybe I'm not following here, but computing an interval for 1/x does not > seem difficult. >> >> >>> [...] >>> My point remains: >>> WRI could have a much more direct notion of number, and equality, >>> that >>> would make it easy to implement my choice of arithmetic or theirs or >>> yours. >>> They didn't. The default is not completely reliable. People write to >>> this newsgroup, periodically, saying Huh? what's going on? I found a >>> bug! >> >> This is, I am afraid, nonsense. Nothing would make it "easy" to >> implement significance arithmetic across the spectrum of Mathematica's >> numerical engine. To do so efficiently, reliably, maintainably, etc. >> is, well, a significant task. Jerry Keiper could do it. Mark Sofroniou >> could do it. I do not think I could do it, at least not very well. >> And, as the saying goes, "I have me doubts about thee". > > OK, I did not mean it would be easy to reproduce what Jerry Keiper did, > but after all, he did do it using ordinary arithmetic at its base. > What I did mean is that programs to do arithmetic "the machine way" > would run at machine speed (= easy); the programs to do software > bigfloats without significance tracking would run faster (=easier) than > including significance tracking. And that if one wished to patch-up > such code with built-in tracking ,after the fact by re-stating the > precision after each operation, that would be slower (= not as easy) > than avoiding it in the first place. > So, easy= easy for the computer. > > I do think that people write to the newsgroup reporting what they think > of as bugs, but are actually the deliberate consequences of the design > of arithmetic. >> >> >>> As for the experimental and computational notions of (im)precision, I >>> think there is an issue of using the same words with different >>> meanings. >>> Similar but unfortunately different. Precision of a floating point >>> number F is simply the number of bits in the fraction. If you impute >>> some uncertainty to F, you can store that in another piece of data D in >>> the computer. If you want to assert that F and D together represent a >>> distribution of a certain kind you can also compute with that. >>> >>> RJF >>> [...] >> >> Related to the above (I think), you stated earlier in this thread that >> the differences in terminology usage can be troublesome. I agree that >> the meaning of Mathematica's Precision and, to a lesser extent, >> Accuracy, might cause initial confusion to one unfamiliar with the >> software but well versed in Numerical Analysis. I would expect such >> people to catch on after being bitten once or twice, and either get >> used to the distinctions, or use different software. > yes, but there are not too many well versed in numerical analysis. >> >> This strikes me as similar to the situation wherein Append and Prepend >> are O(n) rather than O(1) complexity operations, since they rewrite >> their List arguements in full. A CS person new to Mathematica might >> well assume List is akin to the CS notion of a (singly or doubly) >> linked list. After learning otherwise they'd probably not be too >> flustered, other than perhaps to mutter that the naming of "List" was >> problematic. Even that would perhaps abate once they get accustomed to >> the very general Mathematica notion of a List. After all, a linked >> list is a modestly arcane structure to those outside CS, and most >> general software users are not from inside CS, and most CS people will >> understand that. > Similar, yes. Dissimilar in the sense that the List operations return > expected results, just slower. But arithmetic returns (on occasion) > unexpected results. > > RJF > > -- DrMajorBob at yahoo.com From mathgroup-adm at smc.vnet.net Thu Jul 21 03:51:50 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id BA0936BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 03:51:50 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L8ppVq000824; Thu, 21 Jul 2011 03:51:52 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 910C6BF4B8; Thu, 21 Jul 2011 03:51:51 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id A9CBCA8190; Thu, 21 Jul 2011 03:51:49 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06452 for mathgroup-newout; Thu, 21 Jul 2011 05:45:01 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06442 for mathgroup-newsend; Thu, 21 Jul 2011 05:45:01 -0400 (EDT) Date: Thu, 21 Jul 2011 05:45:01 -0400 (EDT) Message-Id: <201107210945.FAA06442 at smc.vnet.net> From: "Joseph O'Rourke" <orourke at scinix.smith.edu> Subject: [mg120381] ExampleData[{"Geometry3D", "Torus"}] To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.83914 Is it possible to control the radii of a torus in Mathematica 8 using the ExampleData[] function? I cannot see how to get anything but the default torus. Thanks! From mathgroup-adm at smc.vnet.net Thu Jul 21 03:52:17 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id ACFD26BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 03:52:17 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L8qJxj000910; Thu, 21 Jul 2011 03:52:19 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 07C1BA8190; Thu, 21 Jul 2011 03:52:19 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 5838CBF4B8; Thu, 21 Jul 2011 03:52:17 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06562 for mathgroup-newout; Thu, 21 Jul 2011 05:47:33 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06555 for mathgroup-newsend; Thu, 21 Jul 2011 05:47:32 -0400 (EDT) Date: Thu, 21 Jul 2011 05:47:32 -0400 (EDT) Message-Id: <201107210947.FAA06555 at smc.vnet.net> From: Gregory Lypny <gregory.lypny at videotron.ca> Subject: [mg120395] Computable Document Format Replaces Player Notebooks To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.83914 Hi Everyone, Probably a silly question but I just want to be sure: Has the computable document format that is built into Mathematica replaced player notebooks, so that I no longer have to upload my notebooks to Wolfram for conversion? Regards, Gregory From mathgroup-adm at smc.vnet.net Thu Jul 21 03:54:28 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id AD2086BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 03:54:28 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L8sTWT001195; Thu, 21 Jul 2011 03:54:29 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id A335FA8190; Thu, 21 Jul 2011 03:54:29 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 14E28A8195; Thu, 21 Jul 2011 03:54:28 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06472 for mathgroup-newout; Thu, 21 Jul 2011 05:45:23 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06467 for mathgroup-newsend; Thu, 21 Jul 2011 05:45:22 -0400 (EDT) Date: Thu, 21 Jul 2011 05:45:22 -0400 (EDT) Message-Id: <201107210945.FAA06467 at smc.vnet.net> From: Myeong Ae Kang <makang at purdue.edu> Subject: [mg120383] How to set the format of every output to traditionalform in txt files. To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.84514 Hello. I wonder how I can set the default data format to "traditionalform" to run Mathematica on the command-line. I want to print all values in traditonalform, not including "traditonalform" in every "Print" command. Again, on the command line. Not on the GUI. From mathgroup-adm at smc.vnet.net Thu Jul 21 03:54:56 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id A57306BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 03:54:56 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L8swBA001236; Thu, 21 Jul 2011 03:54:58 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id E6EFFA8194; Thu, 21 Jul 2011 03:54:57 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 04255A8190; Thu, 21 Jul 2011 03:54:56 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06463 for mathgroup-newout; Thu, 21 Jul 2011 05:45:12 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06458 for mathgroup-newsend; Thu, 21 Jul 2011 05:45:11 -0400 (EDT) Date: Thu, 21 Jul 2011 05:45:11 -0400 (EDT) Message-Id: <201107210945.FAA06458 at smc.vnet.net> From: Daniel Lichtblau <danl at wolfram.com> Subject: [mg120382] Re: sorting a nested list of 4-tuples References: <201107191055.GAA10229 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.84514 On 07/19/2011 05:55 AM, Luis Valero wrote: > Dear Sirs, > > I want to sort a list of 4-tuples of real numbers, so that, the second 4-tuple has minimum distance to the first, the third, selected from the rest, ha minimum distance to the second, and so on. > > The distance is the euclidean distance, calculated with the first two elements of each 4-tuple. > > I have defined a function that work: > > orderedList[list_] := Module[{nearest}, > Flatten[ Nest[{ > Append[ #[[1]] , nearest = Flatten @@ Nearest[ Map[ Rule[ #[[{1, 2}]], #]&, #[[2]] ], Last[ #[[1]] ] [[{1, 2}]], 1] ], > Delete[ #[[2]], Position[ #[[2]], nearest ] ] }&, { {list[[1]] }, Delete[ list, 1 ] }, Length[ list ] - 2], 1] ]; > > > but I need to improve the temporal efficiency > > Thank you I wanted to improve on my last proposed method and also say a bit about the computational complexity. First I'll note that a straightforward double iteration can be used. If coupled with Compile it should be reasonably fast, albeit still O(n^2) for a list of n elements. Also it will scale nicely with dimension in cases where we are not restricting the distance measure to the first two components of the tuples. Here is code for this. findClosestUniqueC = Compile[{{ll, _Real, 2}}, Module[{n = Length[ll], res = ll, posn, max, min, diff, dist, last, tmp}, max = (4.*Max[ll[[All, 1 ;; 2]]])^2; Do[ last = res[[j - 1, 1 ;; 2]]; posn = 0; min = max; Do[ diff = res[[k, 1 ;; 2]] - last; dist = diff.diff; If[dist < min, min = dist; posn = k]; , {k, j, n}]; res[[{j, posn}]] = res[[{posn, j}]]; , {j, 2, n - 1}]; res ] ]; The method I used in an earlier response, and will refine below, was based on Nearest[]. First some explanatory comments. It takes the first two components of each tuple and augments with a small "counter" value that allows us to determine which is the corresponding element in the original list. We start with a large "denominator", then prepend 1/denom to the first 2-tuple, 2/denom to the second 2-tuple, etc. The presence of this counter value can in fact lead to erroneous results by slightly offsetting distances based on the 2-tuple values alone. I now use a heuristic based on list size that should make such a failure unlikely in the version below. But it is not terribly clever and certainly can fail. A viable method would have to be based on minimal separation, which could be underestimated by sorting the flattened list of all values, and taking the smallest nonzero gap. We'll assume that the complexity of creating a one-argument Nearest[] function, given n values, is around O(n*log(n)). For modest dimension this seems to be about right, if I recall correctly. Once we have such a function we'll assume that the cost of looking up the k nearest values to a given value is O(k*log(n)). Again, this seems to be born out with experience as best I recall. Also I'll add that the implied multiplicative constant is much larger for lookup than for building the list. At this points there are various ways to go about the lookup in order to get the next closest value to a given one, from amongst all elements not already chosen. A guaranteed way is, if j elements have been chosen, find the j+1 nearest elements to the last one (so at least one will not already have been selected). If we build a Nearest function once, then we end up doing O(n) lookups, each finding O(n) closest elements. The overall complexity would be O(n^2*log(n)). (If we just call it anew every iteration, thats n alls of n*log(n) complexity, so no better.) A heuristic to reduce that, not guaranteed, would be to only look up the 7 or so closest, and try the full size needed only if all 7 have already been selected. Another way, this one guaranteed to bring down the complexity, is to discard those elements already chosen from further consideration, at intervals that are an appropriate function of n. If we do this every sqrt(n) elements, and rebuild the Nearest function, then we never need find more than sqrt(n) closest elements from amongst those still under consideration. So overall lookup cost will be no worse than O(n*sqrt(n)*log(n)). Meanwhile the cost of removing sqrt(n) elements form a list of n elements is O(n), and we do this sqrt(n) times so that comes to O(n^(3/2)). Finally the cost of building these Nearest functions sqrt(n) times, with O(n) elements each time, is O(n*log(n)*sqrt(n)). Overall cost: O(n^(3/2)*log(n)). In my earlier code I used a different "chunk" size, one that seemed like it might be sensible. It did work well for ranges I tried, but sqrt(n) seems to be the value with the guarantee. The use of a new Nearest function at intervals means I want to use an index computed modulo the interval length (the chunk size, in the code terminology). I also use the heuristic of trying only a few closest elements at first, grabbing more only when needed. Some testing indicates this happens relatively infrequently. So here is the updated code. It should be properly Module-ized, but I'm not spending more time to do that. n = 3200; data = RandomReal[{-100, 100}, {n, 4}]; chunksize = Ceiling[Sqrt[n]]; denom = 2^3*2^Ceiling[Log[2, n]]; moddata = Map[Take[#, 3] &, MapThread[Prepend, {data, Range[n]/denom}]]; nf = Nearest[moddata]; next = moddata[[1]]; taken = ConstantArray[False, n]; result = ConstantArray[{0., 0., 0., 0.}, n]; remove = ConstantArray[{0., 0., 0.}, chunksize]; result[[1]] = data[[1]]; remove[[1]] = moddata[[1]]; taken[[1]] = True; Timing[Do[ modj = Mod[j, chunksize, 1]; nextset = nf[next, Min[7, 1 + modj]]; posns = Round[denom*Map[First, nextset]]; k = 1; While[k <= Length[nextset] && taken[[posns[[k]]]], k++;]; If[k > Length[nextset], nextset = nf[next, 1 + modj]; posns = Round[denom*Map[First, nextset]]; k = 1; While[k < Length[nextset] && taken[[posns[[k]]]], k++;]; ]; taken[[posns[[k]]]] = True; result[[j]] = data[[posns[[k]]]]; next = nextset[[k]]; remove[[modj]] = next; If[modj == chunksize, done = True; posns = Apply[Alternatives, remove]; moddata = DeleteCases[moddata, posns]; nf = Nearest[moddata]; ]; , {j, 2, n}]] Out[1294]= {0.49, Null} Comparison: In[1336]:= Timing[result2 = findClosestUniqueC[data];] Out[1336]= {1.89, Null} In[1337]:= result === result2 Out[1337]= True Daniel Lichtblau Wolfram Research From mathgroup-adm at smc.vnet.net Thu Jul 21 03:56:23 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 010766BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 03:56:23 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L8uOpW001906; Thu, 21 Jul 2011 03:56:24 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id EFBF4FF008; Thu, 21 Jul 2011 03:56:23 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 7487DFF006; Thu, 21 Jul 2011 03:56:22 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06515 for mathgroup-newout; Thu, 21 Jul 2011 05:46:27 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06509 for mathgroup-newsend; Thu, 21 Jul 2011 05:46:27 -0400 (EDT) Date: Thu, 21 Jul 2011 05:46:27 -0400 (EDT) Message-Id: <201107210946.FAA06509 at smc.vnet.net> From: "Hobbs, Sylvia (DPH)" <sylvia.hobbs at state.ma.us> Subject: [mg120389] mlink SASImport To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.84514 After importing a huge SAS data set into Mathematica that contains 400 data elements, is there a global validation command where Mathematica could return a report of on the blanks and content frequencies in all of the data fields or do you have to run separate queries for every single data element? Sylvia Hobbs From mathgroup-adm at smc.vnet.net Thu Jul 21 03:58:45 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 77D486BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 03:58:45 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L8wkDg002056; Thu, 21 Jul 2011 03:58:46 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id C0FBDA819A; Thu, 21 Jul 2011 03:58:46 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 406D4A8195; Thu, 21 Jul 2011 03:58:45 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06536 for mathgroup-newout; Thu, 21 Jul 2011 05:47:00 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06531 for mathgroup-newsend; Thu, 21 Jul 2011 05:46:59 -0400 (EDT) Date: Thu, 21 Jul 2011 05:46:59 -0400 (EDT) Message-Id: <201107210946.FAA06531 at smc.vnet.net> From: Helen Read <readhpr at gmail.com> Subject: [mg120392] Re: Total plot width References: <j06b2e$nkk$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.84514 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_400_499 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. On 7/20/2011 6:35 AM, carlos at colorado.edu wrote: > How can I specify the total plot width in Mathematica? I was looking for > something like AbsolutePlotWidth->250 (points implied) but havent found > that option in the documentation. There is AspectRatio, but that is > not a dimension. Thanks. > I suspect you will get many replies to this. The option you want is ImageSize -- Helen Read University of Vermont From mathgroup-adm at smc.vnet.net Thu Jul 21 04:00:22 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 67FB16BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:00:22 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L90NgH002292; Thu, 21 Jul 2011 04:00:23 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id ADE43FF004; Thu, 21 Jul 2011 04:00:23 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id F0197FF006; Thu, 21 Jul 2011 04:00:21 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06575 for mathgroup-newout; Thu, 21 Jul 2011 05:47:55 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06570 for mathgroup-newsend; Thu, 21 Jul 2011 05:47:54 -0400 (EDT) Date: Thu, 21 Jul 2011 05:47:54 -0400 (EDT) Message-Id: <201107210947.FAA06570 at smc.vnet.net> From: dimitris <dimmechan at yahoo.com> Subject: [mg120397] unable to save notebook To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.84514 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, FROM_NAME_ONE_WORD 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_400_499 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_YAHOO 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. Hello to all. When my student tries to save a document (e.g. hh its name) the following message appears... "Mathematica could not find enough disk space to save the file C:\Users \=D7\[Rho]=DE\[Sigma]\[Tau]\[Omicron]\[FinalSigma]\Downloads\hh.nb. The file was left unchanged. The disk is full, or if you are using a file server you may have reached your disk space quota." Any ideas on how to solve the problem? Thank you very much in advance for your replies. From mathgroup-adm at smc.vnet.net Thu Jul 21 04:02:42 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 9AED06BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:02:41 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L92b9F002815; Thu, 21 Jul 2011 04:02:42 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id C07ADA81AA; Thu, 21 Jul 2011 04:02:37 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id E5C67A8110; Thu, 21 Jul 2011 04:02:34 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06439 for mathgroup-newout; Thu, 21 Jul 2011 05:44:50 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06434 for mathgroup-newsend; Thu, 21 Jul 2011 05:44:50 -0400 (EDT) Date: Thu, 21 Jul 2011 05:44:50 -0400 (EDT) Message-Id: <201107210944.FAA06434 at smc.vnet.net> From: "Gabriel T. Landi" <gtlandi at gmail.com> Subject: [mg120380] Re: Total plot width References: <201107201032.GAA24081 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.84814 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_400_499 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. You can use ImageSize-> {{left, right},{bottom,top}}. Check out ImageSize page for more details. Cheers Gabriel On 20/07/2011, at 07:32, carlos at colorado.edu wrote: > How can I specify the total plot width in Mathematica? I was looking for > something like AbsolutePlotWidth->250 (points implied) but havent found > that option in the documentation. There is AspectRatio, but that is > not a dimension. Thanks From mathgroup-adm at smc.vnet.net Thu Jul 21 04:04:32 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 8510D6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:04:32 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L94UKU002937; Thu, 21 Jul 2011 04:04:33 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id D4A91A8190; Thu, 21 Jul 2011 04:04:33 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 2C742BF4B9; Thu, 21 Jul 2011 04:04:32 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06530 for mathgroup-newout; Thu, 21 Jul 2011 05:46:49 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06524 for mathgroup-newsend; Thu, 21 Jul 2011 05:46:48 -0400 (EDT) Date: Thu, 21 Jul 2011 05:46:48 -0400 (EDT) Message-Id: <201107210946.FAA06524 at smc.vnet.net> From: Jay Bee <jiri.bocan at gmail.com> Subject: [mg120391] Re: Total plot width References: <j06b2e$nkk$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.85415 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_400_499 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. On Jul 20, 11:35 am, car... at colorado.edu wrote: > How can I specify the total plot width in Mathematica? I was looking for > something like AbsolutePlotWidth->250 (points implied) but havent found > that option in the documentation. There is AspectRatio, but that is > not a dimension. Thanks. Hard to say, what do you mean exactly; do you mean Plot[] or Listplot[], or something of higher dimension? Resulting plot-width is influenced by AspectRatio, PlotRange, ImageSize, ... From mathgroup-adm at smc.vnet.net Thu Jul 21 04:06:19 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 66D9D6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:06:19 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L96K9P003192; Thu, 21 Jul 2011 04:06:20 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 05C90BF4B9; Thu, 21 Jul 2011 04:06:20 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 75A54A8169; Thu, 21 Jul 2011 04:06:18 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06523 for mathgroup-newout; Thu, 21 Jul 2011 05:46:38 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06518 for mathgroup-newsend; Thu, 21 Jul 2011 05:46:38 -0400 (EDT) Date: Thu, 21 Jul 2011 05:46:38 -0400 (EDT) Message-Id: <201107210946.FAA06518 at smc.vnet.net> From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu> Subject: [mg120390] Re: Total plot width To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.85415 The option: PlotRange->{Width, Height} should help. Try various cases specifying the Width say, 250 or whatever you need, and the Height that may be either a fixed number or Automatic. Have fun. Alexei How can I specify the total plot width in Mathematica? I was looking for something like AbsolutePlotWidth->250 (points implied) but havent found that option in the documentation. There is AspectRatio, but that is not a dimension. Thanks. Alexei BOULBITCH, Dr., habil. IEE S.A. ZAE Weiergewan, 11, rue Edmond Reuter, L-5326 Contern, LUXEMBOURG Office phone: +352-2454-2566 Office fax: +352-2454-3566 mobile phone: +49 151 52 40 66 44 From mathgroup-adm at smc.vnet.net Thu Jul 21 04:08:37 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 0306F6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:08:37 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L98XPD003342; Thu, 21 Jul 2011 04:08:38 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id ECC11A8169; Thu, 21 Jul 2011 04:08:32 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 23781A8110; Thu, 21 Jul 2011 04:08:31 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06480 for mathgroup-newout; Thu, 21 Jul 2011 05:45:34 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06475 for mathgroup-newsend; Thu, 21 Jul 2011 05:45:33 -0400 (EDT) Date: Thu, 21 Jul 2011 05:45:33 -0400 (EDT) Message-Id: <201107210945.FAA06475 at smc.vnet.net> From: DrMajorBob <btreat1 at austin.rr.com> Subject: [mg120384] FinancialData still broken Reply-To: drmajorbob at yahoo.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.85715 Erroneous prices are randomly returned: FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", "PTTAX", "RGACX", "STRFX"} {8.81, 72.4, 14., 10.64, 46.49, 12.48, 5.03202*10^8, 26.48, 23.72, 45.35, 12.48, 5.03241*10^8, 11.04, 31.44, 32.47} FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", "PTTAX", "RGACX", "STRFX"} {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8, 5.03168*10^8, 32.61, 26.48, 23.72, 5.03168*10^8, 5.03168*10^8, 3.1, 11.04, 5.03241*10^8, 32.47} Bobby -- DrMajorBob at yahoo.com From mathgroup-adm at smc.vnet.net Thu Jul 21 04:10:22 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 037EA6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:10:22 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L9AN67003555; Thu, 21 Jul 2011 04:10:23 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 1D859BF4B9; Thu, 21 Jul 2011 04:10:23 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 59B60BF4B8; Thu, 21 Jul 2011 04:10:21 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06502 for mathgroup-newout; Thu, 21 Jul 2011 05:46:06 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06497 for mathgroup-newsend; Thu, 21 Jul 2011 05:46:05 -0400 (EDT) Date: Thu, 21 Jul 2011 05:46:05 -0400 (EDT) Message-Id: <201107210946.FAA06497 at smc.vnet.net> From: dr DanW <dmaxwarren at gmail.com> Subject: [mg120387] Warning: OS X Lion and compilation Reply-To: comp.soft-sys.math.mathematica at googlegroups.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.85715 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_600_699 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __PHISH_SPEAR_SUBJECT 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. I have not dug thoroughly into this yet, but I wanted to get the warning out quickly. Apparently, OS X Lion does not include the gcc compiler. I upgraded to Lion this morning, then on a lark tried to compile a function in Mathematica with CompilationTarget -> "C". I got an error that no compiler was found. I am sure that it is only a matter of either obtaining a copy of gcc or Xcode (with its own c compiler, not gcc) and configuring Mathematica to use that compiler. I have not tried either, since I am not using anything but opcode compilation. If you are successful, please post instructions for others on this group. Thanks, Daniel From mathgroup-adm at smc.vnet.net Thu Jul 21 04:12:27 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 087856BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:12:27 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L9CS0Z003690; Thu, 21 Jul 2011 04:12:28 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 0C282FF006; Thu, 21 Jul 2011 04:12:28 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 7277AA8190; Thu, 21 Jul 2011 04:12:26 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06554 for mathgroup-newout; Thu, 21 Jul 2011 05:47:22 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06549 for mathgroup-newsend; Thu, 21 Jul 2011 05:47:21 -0400 (EDT) Date: Thu, 21 Jul 2011 05:47:21 -0400 (EDT) Message-Id: <201107210947.FAA06549 at smc.vnet.net> From: Murray Eisenberg <murray at math.umass.edu> Subject: [mg120394] Re: Total plot width Reply-To: murray at math.umass.edu References: <201107201032.GAA24081 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.90314 The option you want is ImageSize. On 7/20/11 6:32 AM, carlos at colorado.edu wrote: > How can I specify the total plot width in Mathematica? I was looking for > something like AbsolutePlotWidth->250 (points implied) but havent found > that option in the documentation. There is AspectRatio, but that is > not a dimension. Thanks. > -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 413 549-1020 (H) University of Massachusetts 413 545-2859 (W) 710 North Pleasant Street fax 413 545-1801 Amherst, MA 01003-9305 From mathgroup-adm at smc.vnet.net Thu Jul 21 04:14:15 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id B62406BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:14:15 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L9EH0g003848; Thu, 21 Jul 2011 04:14:17 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 04A8BA8169; Thu, 21 Jul 2011 04:14:17 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 1A343A8110; Thu, 21 Jul 2011 04:14:15 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06508 for mathgroup-newout; Thu, 21 Jul 2011 05:46:17 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06503 for mathgroup-newsend; Thu, 21 Jul 2011 05:46:16 -0400 (EDT) Date: Thu, 21 Jul 2011 05:46:16 -0400 (EDT) Message-Id: <201107210946.FAA06503 at smc.vnet.net> From: Gary Wardall <gwardall at gmail.com> Subject: [mg120388] Re: locator References: <201107121059.GAA22222 at smc.vnet.net> <ivjgt7$2g9$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.90314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1100_1199 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. On Jul 13, 2:19 am, Heike Gramberg <heike.gramb... at gmail.com> wrote: > I'm not sure what it is what you're asking for, but if you want to use a locator to trace a curve you can do something like > > Module[{p = {0, 1}, temp}, > temp[t_] := Exp[- t]; > Row[{ > LocatorPane[Dynamic[p, (p[[2]] = temp[#[[1]]]; p[[1]] = #[[1]]) &], > Plot[temp[t], {t, 0, 5}, PlotRange -> {Automatic, {0, 1}}, > ImageSize -> 400], > {{0, 0}, {5, 1}}], > Dynamic[Grid[{{"Time:", p[[1]]}, {"Temp:", p[[2]]}}]]}]] > > Heike. > > On 12 Jul 2011, at 11:59, raga wrote: > > > hi, > > i created a front end in mathematica which provides the user the > > independence of providing the input to the code and my code plots the > > graph for variation of temperature with time for newtons law of > > cooling but can any body please help me out by telling how to use a > > locator to locate the individual points which shows the respective > > temperature on the graph Would the "Drawing Tools" under "Graphics" be of help. I find it useful when I want to locate the coordinates on Plots. Gary Wardall From mathgroup-adm at smc.vnet.net Thu Jul 21 04:16:14 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id A973D6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:16:14 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L9GFN3004589; Thu, 21 Jul 2011 04:16:15 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 9A86BA8190; Thu, 21 Jul 2011 04:16:15 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id B6DC3FF006; Thu, 21 Jul 2011 04:16:13 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06591 for mathgroup-newout; Thu, 21 Jul 2011 05:48:17 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06586 for mathgroup-newsend; Thu, 21 Jul 2011 05:48:16 -0400 (EDT) Date: Thu, 21 Jul 2011 05:48:16 -0400 (EDT) Message-Id: <201107210948.FAA06586 at smc.vnet.net> From: Ray Koopman <koopman at sfu.ca> Subject: [mg120399] Re: sorting a nested list of 4-tuples References: <j03o4c$a64$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.90314 On Jul 19, 4:00 am, Luis Valero <luis.val... at mac.com> wrote: > Dear Sirs, > > I want to sort a list of 4-tuples of real numbers, so that, the second 4-tuple has minimum distance to the first, the third, selected from the rest, ha minimum distance to the second, and so on. > > The distance is the euclidean distance, calculated with the first two elements of each 4-tuple. > > I have defined a function that work: > > orderedList[list_] := Module[{nearest}, > Flatten[ Nest[{ > Append[ #[[1]] , nearest = Flatten @@ Nearest[ Map[ Rule[ #[[{1, 2}]], #] &, #[[2]] ], Last[ #[[1]] ] [[{1, 2}]], 1] ], > Delete[ #[[2]], Position[ #[[2]], nearest ] ] } &, { {list[[1]] }, Delete[ list, 1 ] }, Length[ list ] - 2], 1] ]; > > but I need to improve the temporal efficiency > > Thank you This does the job nicely without Nearest. For your real data, change DistanceMatrix@xy to DistanceMatrix[list[[All,{1,2}]]]. n = 10 xy = Table[Random[Real],{n},{2}] ddx = 2 Max[dd = DistanceMatrix@xy]; Do[dd[[i,i]] = ddx,{i,n}]; ddx = Table[ddx,{n}]; NestList[(dd[[#]] = ddx; Ordering[dd[[All,#]],1][[1]])&, 1, n-1] 10 {{0.923827,0.822223}, {0.369167,0.352365}, {0.309981,0.792447}, {0.375829,0.953723}, {0.680294,0.594137}, {0.411011,0.098692}, {0.295584,0.0860474},{0.749339,0.927127}, {0.263566,0.0431098},{0.0684959,0.230974}} {1,8,5,2,6,7,9,10,3,4} From mathgroup-adm at smc.vnet.net Thu Jul 21 04:18:35 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 3A5026BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:18:35 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L9IaN0005733; Thu, 21 Jul 2011 04:18:36 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id F1598FF004; Thu, 21 Jul 2011 04:18:35 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id EDC91A8110; Thu, 21 Jul 2011 04:18:33 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06547 for mathgroup-newout; Thu, 21 Jul 2011 05:47:11 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06542 for mathgroup-newsend; Thu, 21 Jul 2011 05:47:10 -0400 (EDT) Date: Thu, 21 Jul 2011 05:47:10 -0400 (EDT) Message-Id: <201107210947.FAA06542 at smc.vnet.net> From: Gareth Edwards <gareth.edwards at cubicmotion.com> Subject: [mg120393] newbie Map, Dynamic, etc To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.91215 Hi, Still playing around with Mathematica as a newbie and wrestling with the 'different' way one has to think about things as opposed to other languages. I think (hopefully) that an informative example for me would be a solution (or at least some hints) to the following: Say I have an image sequence (mySequence_0000.jpg, etc.) I'd like to create a viewer with a slider that scrubs through the images. That I can do. What I'd also like is an array of points (just one point per image, and initialized to {0,0} say ), such that on each image I can move a locator around and thereby modify the corresponding stored point in the array. In other words, store the location of a point (as manipulated by me) against each image. My gut tells me that this is trivial to the average Mathematica user- the trouble is I remain well below average right now! Any help appreciated. Best, Gareth -- Dr. Gareth Edwards Director www.cubicmotion.com Mobile: +44 7813 534111 Office: +44 1925 606430 Fax: +44 161 884 0095 This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. It may not be disclosed, copied, forwarded, used or relied upon by any person other than the intended addressee. If you believe that you have received the e-mail and its attachment(s) in error, you must not take any action based on them, nor must you copy or show them to anyone. If you have received this email in error please notify postmaster at cubicmotion.com. From mathgroup-adm at smc.vnet.net Thu Jul 21 04:20:21 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 78ED66BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:20:21 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L9KM1q005909; Thu, 21 Jul 2011 04:20:22 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 8469CFF009; Thu, 21 Jul 2011 04:20:22 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 7FDE0FF006; Thu, 21 Jul 2011 04:20:20 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06488 for mathgroup-newout; Thu, 21 Jul 2011 05:45:44 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06483 for mathgroup-newsend; Thu, 21 Jul 2011 05:45:44 -0400 (EDT) Date: Thu, 21 Jul 2011 05:45:44 -0400 (EDT) Message-Id: <201107210945.FAA06483 at smc.vnet.net> From: Ray Koopman <koopman at sfu.ca> Subject: [mg120385] Re: sorting a nested list of 4-tuples References: <j03o4c$a64$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.91215 On Jul 19, 4:00 am, Luis Valero <luis.val... at mac.com> wrote: > Dear Sirs, > > I want to sort a list of 4-tuples of real numbers, so that, the second 4-tuple has minimum distance to the first, the third, selected from the rest, ha minimum distance to the second, and so on. > > The distance is the euclidean distance, calculated with the first two elements of each 4-tuple. > > I have defined a function that work: > > orderedList[list_] := Module[{nearest}, > Flatten[ Nest[{ > Append[ #[[1]] , nearest = Flatten @@ Nearest[ Map[ Rule[ #[[{1, 2}]], #] &, #[[2]] ], Last[ #[[1]] ] [[{1, 2}]], 1] ], > Delete[ #[[2]], Position[ #[[2]], nearest ] ] } &, { {list[[1]] }, Delete[ list, 1 ] }, Length[ list ] - 2], 1] ]; > > but I need to improve the temporal efficiency > > Thank you This is faster than the code in my previous post (in which the line 'Do[dd[[i,i]] = ddx,{i,n}];' should be deleted because it was left over from an earlier version and is no longer needed): n = Length[xy = {{0.9238265948180384, 0.8222225655013509}, {0.36916681632329446, 0.352365112953319}, {0.30998090503173714, 0.7924465475420762}, {0.3758287909737646, 0.9537228544636929}, {0.6802940452860295, 0.5941374424537628}, {0.41101146869486416, 0.09869197753233201}, {0.2955842108802197, 0.08604736979206176}, {0.7493387235460567, 0.9271268053705936}, {0.26356623115061834, 0.04310983468962257}, {0.06849589850565166, 0.23097371847465945}}] 10 dd = DistanceMatrix@xy; q = Range@n; NestList[(q = SparseArray[q,Automatic,#] /. SparseArray[_,_,_,x_] :> x[[3]]; q[[Ordering[dd[[#,q]],1][[1]]]])&, 1, n-1] {1,8,5,2,6,7,9,10,3,4} From mathgroup-adm at smc.vnet.net Thu Jul 21 04:22:28 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 3236C6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:22:28 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L9MTDX006107; Thu, 21 Jul 2011 04:22:29 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 2A0CEA8169; Thu, 21 Jul 2011 04:22:29 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 3453AA8110; Thu, 21 Jul 2011 04:22:27 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06494 for mathgroup-newout; Thu, 21 Jul 2011 05:45:55 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06489 for mathgroup-newsend; Thu, 21 Jul 2011 05:45:54 -0400 (EDT) Date: Thu, 21 Jul 2011 05:45:54 -0400 (EDT) Message-Id: <201107210945.FAA06489 at smc.vnet.net> From: Gary Wardall <gwardall at gmail.com> Subject: [mg120386] Re: Inverse of Interpolating Function? References: <j06avh$nj8$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.91215 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1700_1799 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. On Jul 20, 5:34=C2 am, gonzorascal <dj... at duke.edu> wrote: > Hello All, > > I am working with an Interpolating Function of an oscillating solution (time series) to a differential equation. I am trying to find the period and pulse width of the oscillation. To do this I would like to have an inverse of my function y[t] (so I would have t[y]). I realize this function would be multivalued (that's what I want to find the period). =C2 I am not having success using Mathematica's InverseFunction[] or Reduce[] commands. Does anyone have any experience or suggestions with this sort of thing (either finding Inverse Interpolating Functions or another method for period and pulse width)? Thank you. > > -GR gonzorascal, First make sure the function you wish to have an inverse function is a function that has an inverse function. A quick visual test is the Horizontal Test for Inverse Functions. If any horizontal line intersects the graph twice or more then the inverse is NOT an inverse function. Graph the function you wish to create an inverse function for. If it fails the horizontal test you may have ti restrict your function like is done in Trigonometry. If it passes try something like in my example. points = {{0, -1}, {1, 1}, {2, 3}, {3, 4}, {4, 6}, {5, 10}};=E2=80=A8ifun= Interpolation[points] Does the function pass the Horizontal Test? Plot[ifun[x], {x, 0, 5}] It does. Define: invifun[x_] := FindRoot[ifun[y] == x, {y, 0, 5}][[1]][[2]] Note that: ifun[invifun[4]] is 4. and invifun[ifun[3]] is 3. and look at the sketch. Plot[{invifun[x], ifun[x], x}, {x, 0, 5}, PlotRange -> {0, 5}, AspectRatio -> Automatic] We have an inverse function. I hope this will help. Good Luck Gary Wardall From mathgroup-adm at smc.vnet.net Thu Jul 21 04:24:00 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id B38886BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:24:00 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L9O2AG006232; Thu, 21 Jul 2011 04:24:02 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id EBFE8BF4B9; Thu, 21 Jul 2011 04:24:01 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 1EA77BF4B5; Thu, 21 Jul 2011 04:24:00 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06585 for mathgroup-newout; Thu, 21 Jul 2011 05:48:06 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06580 for mathgroup-newsend; Thu, 21 Jul 2011 05:48:05 -0400 (EDT) Date: Thu, 21 Jul 2011 05:48:05 -0400 (EDT) Message-Id: <201107210948.FAA06580 at smc.vnet.net> From: DrMajorBob <btreat1 at austin.rr.com> Subject: [mg120398] Re: sorting a nested list of 4-tuples Reply-To: drmajorbob at yahoo.com References: <201107191055.GAA10229 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.91515 Sseziwa, The OP wanted distances to take into account only the 1st two elements of each vector, not all four, so your orderings usually won't match those of the original code. A simple modification works well, however. I call it "treat" below, but it's still your code, mostly. valero[list_] := Module[{nearest}, Flatten[Nest[{Append[#[[1]], nearest = Flatten @@ Nearest[Map[Rule[#[[{1, 2}]], #] &, #[[2]]], Last[#[[1]]][[{1, 2}]], 1]], Delete[#[[2]], Position[#[[2]], nearest]]} &, {{list[[1]]}, Delete[list, 1]}, Length[list] - 2], 1]]; sseziwa[list_] := Module[{first = First[list], rest = Rest[list], nearest, result}, result = {first}; Do[nearest = Nearest[rest -> Automatic, Last[result]]; result = Join[result, rest[[nearest]]]; rest = Drop[rest, nearest], {Length[rest]}]; result] treat[list_] := Module[{first = First@list, rest = Rest@list, nearest, result}, result = {first}; Do[nearest = Nearest[rest[[All, ;; 2]] -> Automatic, result[[-1, ;; 2]], 1]; result = Join[result, rest[[nearest]]]; rest = Drop[rest, nearest], {Length[rest]}]; result] Here is Daniel Lichtblau's code, but I may have broken it somehow. It sometimes agrees with Valero's code and sometimes does not. daniel[data_List] := Module[{n = Length@data, chunksize, denom = 1000., moddata, nf, next, taken, result, remove, nextset, posns, k}, chunksize = Ceiling[Log[n]]^2; moddata = Map[Take[#, 3] &, MapThread[Prepend, {data, Range[n]/denom}]]; nf = Nearest[moddata]; next = moddata[[1]]; taken = ConstantArray[False, n]; result = ConstantArray[{0., 0., 0., 0.}, n]; remove = ConstantArray[{0., 0., 0.}, chunksize]; result[[1]] = data[[1]]; remove[[1]] = moddata[[1]]; taken[[1]] = True; Do[nextset = nf[next, 1 + Mod[j, chunksize, 1]]; posns = Round[denom*Map[First, nextset]]; k = 1; While[k < Length[nextset] && taken[[posns[[k]]]], k++;]; taken[[posns[[k]]]] = True; result[[j]] = data[[posns[[k]]]]; next = nextset[[k]]; remove[[Mod[j, chunksize, 1]]] = next; If[Mod[j, chunksize] == 0, done = True; posns = Apply[Alternatives, remove]; moddata = DeleteCases[moddata, posns]; nf = Nearest[moddata];], {j, 2, n}]; result ] n = 10^2; data = RandomReal[1, {n, 4}]; Timing[one = valero@data;] Timing[two = sseziwa@data;] Timing[three = treat@data;] Timing[four = daniel@data;] {one == two, one == three, one == four} {0.025656, Null} {0.004861, Null} {0.005198, Null} {0.007332, Null} {False, True, False} <----- Daniel's and Sseziwa's code disagreed. n = 10^2; data = RandomReal[{-100, 100}, {n, 4}]; Timing[one = valero@data;] Timing[two = sseziwa@data;] Timing[three = treat@data;] Timing[four = daniel@data;] {one == two, one == three, one == four} {0.02548, Null} {0.004597, Null} {0.005269, Null} {0.007438, Null} {False, True, True} <------ Daniel's code agreed. n = 10^3; data = RandomReal[{-100, 100}, {n, 4}]; Timing[one = valero@data;] Timing[two = sseziwa@data;] Timing[three = treat@data;] Timing[four = daniel@data;] {one == two, one == three, one == four} {2.26575, Null} {0.357105, Null} {0.404373, Null} {0.150693, Null} {False, True, False} <------ Daniel's code disagreed, again. n = 10^4; data = RandomReal[{-100, 100}, {n, 4}]; Timing[one = valero@data;] Timing[two = sseziwa@data;] Timing[three = treat@data;] Timing[four = daniel@data;] {one == two, one == three, one == four} {254.635, Null} {41.0605, Null} {43.1114, Null} {3.94189, Null} {False, True, False} <------ Again. Daniel's code is faster, and it scales better. But there may be a discrepancy in the ordering. It usually agrees with "valero" and "treat" for small data sets, but not for larger ones. Bobby On Wed, 20 Jul 2011 05:34:56 -0500, Sseziwa Mukasa <mukasa at gmail.com> wrote: > Your function does not appear to work correctly, sometimes the list is > in the wrong order, but orderedList2: > > orderedList2[list_] := > Module[{first = First[list], rest = Rest[list], nearest, result}, > > result = {first}; > Do[nearest = Nearest[rest -> Automatic, Last[result]]; > result = Join[result, rest[[nearest]]]; > rest = Drop[rest, nearest], {Length[rest]}]; result] > > seems faster anyway.: > > In[11]:= Module[{list = RandomReal[{0, 1}, {20, 4}], result1, > result2}, > result1 = Timing[orderedList[list]]; > result2 = Timing[orderedList2[list]]; {result1[[2]] == > result2[[2]], > result1[[1]], result2[[1]], {list, result1[[2]], result2[[2]]}}] > Out[11]= {False, 0.002556, 0.0007, {{{0.0780386, 0.220901, 0.748457, > 0.548342}, {0.722099, 0.308747, 0.33661, 0.304516}, {0.623358, > 0.761312, > 0.884318, 0.21337}, {0.14872, 0.284139, 0.244084, 0.582692}, > {0.0829757, > 0.911987, 0.448848, 0.606659}, {0.312903, 0.703568, 0.747021, > 0.126831}, {0.847102, 0.437041, 0.0924343, 0.0333101}, {0.189339, > 0.419192, 0.498754, 0.846607}, {0.661185, 0.455712, 0.31286, > 0.387921}, {0.566059, 0.331815, 0.412978, 0.84236}, {0.714704, > 0.335434, > 0.417758, 0.0569088}, {0.855757, 0.0118403, 0.310144, > 0.312894}, {0.278001, 0.874878, 0.289541, 0.199531}, {0.682503, > 0.387263, > 0.931379, 0.662633}, {0.8045, 0.264645, 0.595204, 0.534895}, > {0.645246, > 0.915467, 0.167849, 0.210847}, {0.789694, 0.987745, 0.0405679, > 0.0957831}, {0.811736, 0.77314, 0.73452, 0.0771508}, {0.784869, > 0.582503, > 0.0986897, 0.152786}, {0.426251, 0.135863, 0.465908, > 0.228462}}, {{0.0780386, 0.220901, 0.748457, 0.548342}, {0.14872, > 0.284139, 0.244084, 0.582692}, {0.189339, 0.419192, 0.498754, > 0.846607}, {0.312903, 0.703568, 0.747021, 0.126831}, {0.278001, > 0.874878, > 0.289541, 0.199531}, {0.0829757, 0.911987, 0.448848, 0.606659}, > {0.623358, > 0.761312, 0.884318, 0.21337}, {0.645246, 0.915467, 0.167849, > 0.210847}, {0.789694, 0.987745, 0.0405679, 0.0957831}, {0.811736, > 0.77314, > 0.73452, 0.0771508}, {0.784869, 0.582503, 0.0986897, > 0.152786}, {0.847102, 0.437041, 0.0924343, 0.0333101}, {0.714704, > 0.335434, 0.417758, 0.0569088}, {0.722099, 0.308747, 0.33661, > 0.304516}, {0.682503, 0.387263, 0.931379, 0.662633}, {0.661185, > 0.455712, > 0.31286, 0.387921}, {0.566059, 0.331815, 0.412978, 0.84236}, > {0.426251, > 0.135863, 0.465908, 0.228462}, {0.8045, 0.264645, 0.595204, > 0.534895}, {0.855757, 0.0118403, 0.310144, 0.312894}}, {{0.0780386, > 0.220901, 0.748457, 0.548342}, {0.189339, 0.419192, 0.498754, > 0.846607}, {0.14872, 0.284139, 0.244084, 0.582692}, {0.566059, > 0.331815, > 0.412978, 0.84236}, {0.8045, 0.264645, 0.595204, 0.534895}, > {0.722099, > 0.308747, 0.33661, 0.304516}, {0.661185, 0.455712, 0.31286, > 0.387921}, {0.784869, 0.582503, 0.0986897, 0.152786}, {0.847102, > 0.437041, > 0.0924343, 0.0333101}, {0.714704, 0.335434, 0.417758, > 0.0569088}, {0.426251, 0.135863, 0.465908, 0.228462}, {0.855757, > 0.0118403, 0.310144, 0.312894}, {0.682503, 0.387263, 0.931379, > 0.662633}, {0.623358, 0.761312, 0.884318, 0.21337}, {0.811736, > 0.77314, > 0.73452, 0.0771508}, {0.312903, 0.703568, 0.747021, 0.126831}, > {0.278001, > 0.874878, 0.289541, 0.199531}, {0.645246, 0.915467, 0.167849, > 0.210847}, {0.789694, 0.987745, 0.0405679, 0.0957831}, {0.0829757, > 0.911987, 0.448848, 0.606659}}}} > > From the above output it seems to me orderedList is incorrect: > > In[12]:= Nearest[{{0.7220990188851284`, 0.30874655560999353`, > 0.33661039115480085`, > 0.30451607189733565`}, {0.623358140247426`, 0.7613121754790066`, > 0.8843184964161348`, 0.21336965042896106`}, {0.14871956929750207`, > 0.2841388256243189`, 0.2440839157054575`, > 0.5826918077236027`}, {0.08297574175354927`, 0.9119868514832306`, > 0.44884815651517496`, 0.606658888854545`}, {0.3129032093692543`, > 0.7035682306379043`, 0.7470209852828422`, > 0.126831036636313`}, {0.8471019825138335`, 0.4370412344560497`, > 0.09243429503478429`, 0.03331005052172231`}, {0.18933936353633118`, > 0.4191916563275504`, 0.49875370996337387`, > 0.8466068811542358`}, {0.6611848899498884`, 0.455712283905654`, > 0.31286031890780386`, 0.3879208331484807`}, {0.566058771065481`, > 0.3318146887998126`, 0.41297814980274516`, > 0.8423595336937795`}, {0.7147038318708883`, 0.33543423510640613`, > 0.4177577945972242`, 0.056908774958363884`}, {0.8557567595586966`, > 0.011840287587700837`, 0.31014365477384986`, > 0.31289360223925855`}, {0.27800072513915963`, 0.8748776068932764`, > 0.28954067774830894`, 0.19953109481447573`}, {0.6825027823624006`, > 0.38726329607605536`, 0.9313788703031116`, > 0.6626327289353637`}, {0.8045002220254145`, 0.26464489073341646`, > 0.5952036781362782`, 0.5348945499518614`}, {0.6452463375631783`, > 0.9154672494486176`, 0.16784916226023205`, > 0.21084656084695386`}, {0.7896939168446158`, 0.9877454808787693`, > 0.04056790678073363`, 0.09578312387470667`}, {0.8117363160995603`, > 0.7731396349254072`, 0.7345204475002354`, > 0.0771508252866615`}, {0.784869093354617`, 0.5825033331936824`, > 0.09868967226141323`, 0.1527856209885663`}, {0.426250694413443`, > 0.1358634032399666`, 0.46590788139431916`, > 0.22846239863279472`}}, {0.07803858379747108`, 0.22090093831902768`, > 0.7484574646075761`, 0.5483416965515358`}] > Out[12]= {{0.189339, 0.419192, 0.498754, 0.846607}} > > Regards, > Ssezi > > On Jul 19, 2011, at 6:55 AM, Luis Valero wrote: > >> Dear Sirs, >> >> I want to sort a list of 4-tuples of real numbers, so that, the second >> 4-tuple has minimum distance to the first, the third, selected from the >> rest, ha minimum distance to the second, and so on. >> >> The distance is the euclidean distance, calculated with the first two >> elements of each 4-tuple. >> >> I have defined a function that work: >> >> orderedList[list_] := Module[{nearest}, >> Flatten[ Nest[{ >> Append[ #[[1]] , nearest = Flatten @@ Nearest[ Map[ Rule[ #[[{1, >> 2}]], #] &, #[[2]] ], Last[ #[[1]] ] [[{1, 2}]], 1] ], >> Delete[ #[[2]], Position[ #[[2]], nearest ] ] } &, { >> {list[[1]] }, Delete[ list, 1 ] }, Length[ list ] - 2], 1] ]; >> >> >> but I need to improve the temporal efficiency >> >> Thank you >> >> >> > > -- DrMajorBob at yahoo.com From mathgroup-adm at smc.vnet.net Thu Jul 21 04:24:24 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 4C9C96BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:24:24 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L9OPKJ006269; Thu, 21 Jul 2011 04:24:25 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 91925A81BA; Thu, 21 Jul 2011 04:24:25 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 627D0A81AA; Thu, 21 Jul 2011 04:24:23 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06569 for mathgroup-newout; Thu, 21 Jul 2011 05:47:44 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id FAA06564 for mathgroup-newsend; Thu, 21 Jul 2011 05:47:43 -0400 (EDT) Date: Thu, 21 Jul 2011 05:47:43 -0400 (EDT) Message-Id: <201107210947.FAA06564 at smc.vnet.net> From: Sseziwa Mukasa <mukasa at gmail.com> Subject: [mg120396] Re: sorting a nested list of 4-tuples References: <201107191055.GAA10229 at smc.vnet.net> <1C3C0ED1-39D7-4232-9160-A26C586F61AB at gmail.com> <54C85D0B-AEE1-48E2-B9D9-857C56E1111F at mac.com> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.91515 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, SUPERLONG_LINE 0.05, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __RUS_OBFU_PHONE 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. On Jul 20, 2011, at 6:33 AM, Luis Valero wrote: > Thank you very much for your time > > The function Nearest does not use only the two first elements of each 4-tuple. This is the reason for the two different results Sorry, I missed that part in your first post, but it's easy to modify my example to handle that case: orderedList2[list_] := Module[{first = First[list], rest = Rest[list], nearest, result}, result = {first}; Do[nearest = Nearest[rest[[All, ;; 2]] -> Automatic, Last[result][[;; 2]]]; result = Join[result, rest[[nearest]]]; rest = Drop[rest, nearest], {Length[rest]}]; result] In[5]:= Module[{list = RandomReal[{0, 1}, {1000, 4}], result1, result2}, result1 = Timing[orderedList[list]]; result2 = Timing[orderedList2[list]]; {result1[[2]] == result2[[2]], result1[[1]], result2[[1]]}] Out[5]= {True, 4.07419, 0.644008} So it still seems an order of magnitude faster. Daniel Lichtblau's solution is faster still, but doesn't agree on the ordering: orderedList3[data_] := Module[{n = Length[data], chunksize, denom, moddata, nf, next, taken, result, remove, nextset, posns, k, done}, chunksize = Ceiling[Log[n]]^2; denom = 10000.; moddata = Map[Take[#, 3] &, MapThread[Prepend, {data, Range[n]/denom}]]; nf = Nearest[moddata]; next = moddata[[1]]; taken = ConstantArray[False, n]; result = ConstantArray[{0., 0., 0., 0.}, n]; remove = ConstantArray[{0., 0., 0.}, chunksize]; result[[1]] = data[[1]]; remove[[1]] = moddata[[1]]; taken[[1]] = True; Do[nextset = nf[next, 1 + Mod[j, chunksize, 1]]; posns = Round[denom*Map[First, nextset]]; k = 1; While[k < Length[nextset] && taken[[posns[[k]]]], k++;]; taken[[posns[[k]]]] = True; result[[j]] = data[[posns[[k]]]]; next = nextset[[k]]; remove[[Mod[j, chunksize, 1]]] = next; If[Mod[j, chunksize] == 0, done = True; posns = Apply[Alternatives, remove]; moddata = DeleteCases[moddata, posns]; nf = Nearest[moddata];];, {j, 2, n}]; result] In[9]:= Module[{list = RandomReal[{0, 1}, {1000, 4}], result1, result2, result3}, result1 = Timing[orderedList[list]]; result2 = Timing[orderedList2[list]]; result3 = Timing[orderedList3[list]]; {result1[[2]] == result2[[2]], result1[[2]] === result3[[2]], result1[[1]], result2[[1]], result3[[1]]}] Out[9]= {True, False, 4.24234, 0.664731, 0.20674} > > Regards > > Luis > > > El 19/07/2011, a las 18:05, Sseziwa Mukasa escribi=F3: > >> Your function does not appear to work correctly, sometimes the list is in the wrong order, but orderedList2: >> >> orderedList2[list_] := >> Module[{first = First[list], rest = Rest[list], nearest, result}, >> result = {first}; >> Do[nearest = Nearest[rest -> Automatic, Last[result]]; >> result = Join[result, rest[[nearest]]]; >> rest = Drop[rest, nearest], {Length[rest]}]; result] >> >> seems faster anyway.: >> >> In[11]:= Module[{list = RandomReal[{0, 1}, {20, 4}], result1, result2}, >> result1 = Timing[orderedList[list]]; >> result2 = Timing[orderedList2[list]]; {result1[[2]] == result2[[2]], >> result1[[1]], result2[[1]], {list, result1[[2]], result2[[2]]}}] >> Out[11]= {False, 0.002556, 0.0007, {{{0.0780386, 0.220901, 0.748457, >> 0.548342}, {0.722099, 0.308747, 0.33661, 0.304516}, {0.623358, 0.761312, >> 0.884318, 0.21337}, {0.14872, 0.284139, 0.244084, 0.582692}, {0.0829757, >> 0.911987, 0.448848, 0.606659}, {0.312903, 0.703568, 0.747021, >> 0.126831}, {0.847102, 0.437041, 0.0924343, 0.0333101}, {0.189339, >> 0.419192, 0.498754, 0.846607}, {0.661185, 0.455712, 0.31286, >> 0.387921}, {0.566059, 0.331815, 0.412978, 0.84236}, {0.714704, 0.335434, >> 0.417758, 0.0569088}, {0.855757, 0.0118403, 0.310144, >> 0.312894}, {0.278001, 0.874878, 0.289541, 0.199531}, {0.682503, 0.387263, >> 0.931379, 0.662633}, {0.8045, 0.264645, 0.595204, 0.534895}, {0.645246, >> 0.915467, 0.167849, 0.210847}, {0.789694, 0.987745, 0.0405679, >> 0.0957831}, {0.811736, 0.77314, 0.73452, 0.0771508}, {0.784869, 0.582503, >> 0.0986897, 0.152786}, {0.426251, 0.135863, 0.465908, >> 0.228462}}, {{0.0780386, 0.220901, 0.748457, 0.548342}, {0.14872, >> 0.284139, 0.244084, 0.582692}, {0.189339, 0.419192, 0.498754, >> 0.846607}, {0.312903, 0.703568, 0.747021, 0.126831}, {0.278001, 0.874878, >> 0.289541, 0.199531}, {0.0829757, 0.911987, 0.448848, 0.606659}, {0.623358, >> 0.761312, 0.884318, 0.21337}, {0.645246, 0.915467, 0.167849, >> 0.210847}, {0.789694, 0.987745, 0.0405679, 0.0957831}, {0.811736, 0.77314, >> 0.73452, 0.0771508}, {0.784869, 0.582503, 0.0986897, >> 0.152786}, {0.847102, 0.437041, 0.0924343, 0.0333101}, {0.714704, >> 0.335434, 0.417758, 0.0569088}, {0.722099, 0.308747, 0.33661, >> 0.304516}, {0.682503, 0.387263, 0.931379, 0.662633}, {0.661185, 0.455712, >> 0.31286, 0.387921}, {0.566059, 0.331815, 0.412978, 0.84236}, {0.426251, >> 0.135863, 0.465908, 0.228462}, {0.8045, 0.264645, 0.595204, >> 0.534895}, {0.855757, 0.0118403, 0.310144, 0.312894}}, {{0.0780386, >> 0.220901, 0.748457, 0.548342}, {0.189339, 0.419192, 0.498754, >> 0.846607}, {0.14872, 0.284139, 0.244084, 0.582692}, {0.566059, 0.331815, >> 0.412978, 0.84236}, {0.8045, 0.264645, 0.595204, 0.534895}, {0.722099, >> 0.308747, 0.33661, 0.304516}, {0.661185, 0.455712, 0.31286, >> 0.387921}, {0.784869, 0.582503, 0.0986897, 0.152786}, {0.847102, 0.437041, >> 0.0924343, 0.0333101}, {0.714704, 0.335434, 0.417758, >> 0.0569088}, {0.426251, 0.135863, 0.465908, 0.228462}, {0.855757, >> 0.0118403, 0.310144, 0.312894}, {0.682503, 0.387263, 0.931379, >> 0.662633}, {0.623358, 0.761312, 0.884318, 0.21337}, {0.811736, 0.77314, >> 0.73452, 0.0771508}, {0.312903, 0.703568, 0.747021, 0.126831}, {0.278001, >> 0.874878, 0.289541, 0.199531}, {0.645246, 0.915467, 0.167849, >> 0.210847}, {0.789694, 0.987745, 0.0405679, 0.0957831}, {0.0829757, >> 0.911987, 0.448848, 0.606659}}}} >> >> From the above output it seems to me orderedList is incorrect: >> >> In[12]:= Nearest[{{0.7220990188851284`, 0.30874655560999353`, 0.33661039115480085`, >> 0.30451607189733565`}, {0.623358140247426`, 0.7613121754790066`, >> 0.8843184964161348`, 0.21336965042896106`}, {0.14871956929750207`, >> 0.2841388256243189`, 0.2440839157054575`, >> 0.5826918077236027`}, {0.08297574175354927`, 0.9119868514832306`, >> 0.44884815651517496`, 0.606658888854545`}, {0.3129032093692543`, >> 0.7035682306379043`, 0.7470209852828422`, >> 0.126831036636313`}, {0.8471019825138335`, 0.4370412344560497`, >> 0.09243429503478429`, 0.03331005052172231`}, {0.18933936353633118`, >> 0.4191916563275504`, 0.49875370996337387`, >> 0.8466068811542358`}, {0.6611848899498884`, 0.455712283905654`, >> 0.31286031890780386`, 0.3879208331484807`}, {0.566058771065481`, >> 0.3318146887998126`, 0.41297814980274516`, >> 0.8423595336937795`}, {0.7147038318708883`, 0.33543423510640613`, >> 0.4177577945972242`, 0.056908774958363884`}, {0.8557567595586966`, >> 0.011840287587700837`, 0.31014365477384986`, >> 0.31289360223925855`}, {0.27800072513915963`, 0.8748776068932764`, >> 0.28954067774830894`, 0.19953109481447573`}, {0.6825027823624006`, >> 0.38726329607605536`, 0.9313788703031116`, >> 0.6626327289353637`}, {0.8045002220254145`, 0.26464489073341646`, >> 0.5952036781362782`, 0.5348945499518614`}, {0.6452463375631783`, >> 0.9154672494486176`, 0.16784916226023205`, >> 0.21084656084695386`}, {0.7896939168446158`, 0.9877454808787693`, >> 0.04056790678073363`, 0.09578312387470667`}, {0.8117363160995603`, >> 0.7731396349254072`, 0.7345204475002354`, >> 0.0771508252866615`}, {0.784869093354617`, 0.5825033331936824`, >> 0.09868967226141323`, 0.1527856209885663`}, {0.426250694413443`, >> 0.1358634032399666`, 0.46590788139431916`, >> 0.22846239863279472`}}, {0.07803858379747108`, 0.22090093831902768`, >> 0.7484574646075761`, 0.5483416965515358`}] >> Out[12]= {{0.189339, 0.419192, 0.498754, 0.846607}} >> >> Regards, >> Ssezi >> >> On Jul 19, 2011, at 6:55 AM, Luis Valero wrote: >> >>> Dear Sirs, >>> >>> I want to sort a list of 4-tuples of real numbers, so that, the second 4-tuple has minimum distance to the first, the third, selected from the rest, ha minimum distance to the second, and so on. >>> >>> The distance is the euclidean distance, calculated with the first two elements of each 4-tuple. >>> >>> I have defined a function that work: >>> >>> orderedList[list_] := Module[{nearest}, >>> Flatten[ Nest[{ >>> Append[ #[[1]] , nearest = Flatten @@ Nearest[ Map[ Rule[ #[[{1, 2}]], #] &, #[[2]] ], Last[ #[[1]] ] [[{1, 2}]], 1] ], >>> Delete[ #[[2]], Position[ #[[2]], nearest ] ] } &, { {list[[1]] }, Delete[ list, 1 ] }, Length[ list ] - 2], 1] ]; >>> >>> >>> but I need to improve the temporal efficiency >>> >>> Thank you >>> >>> >>> >> > From mathgroup-adm at smc.vnet.net Thu Jul 21 04:59:28 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 9B9056BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 04:59:28 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6L9xT1g010405; Thu, 21 Jul 2011 04:59:29 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id A75E6A8110; Thu, 21 Jul 2011 04:59:29 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 36C4CBF4B8; Thu, 21 Jul 2011 04:59:28 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA08591 for mathgroup-newout; Thu, 21 Jul 2011 06:54:12 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA08586 for mathgroup-newsend; Thu, 21 Jul 2011 06:54:12 -0400 (EDT) Date: Thu, 21 Jul 2011 06:54:12 -0400 (EDT) Message-Id: <201107211054.GAA08586 at smc.vnet.net> From: Jay Bee <jiri.bocan at gmail.com> Subject: [mg120400] Re: Inverse of Interpolating Function? References: <j06avh$nj8$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.95114 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, BODY_SIZE_900_999 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. On Jul 20, 11:34 am, gonzorascal <dj... at duke.edu> wrote: > Hello All, > > I am working with an Interpolating Function of an oscillating solution (time series) to a differential equation. I am trying to find the period and pulse width of the oscillation. To do this I would like to have an inverse of my function y[t] (so I would have t[y]). I realize this function would be multivalued (that's what I want to find the period). I am not having success using Mathematica's InverseFunction[] or Reduce[] commands. Does anyone have any experience or suggestions with this sort of thing (either finding Inverse Interpolating Functions or another method for period and pulse width)? Thank you. > > -GR So, when you will find out the period, compute sufficient number of points with the help of this interpolation function, e.g., as a Table[], change coordinates, and interpolate again... Of course, if you know exact formula, worth using it... From mathgroup-adm at smc.vnet.net Thu Jul 21 05:00:14 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 052C36BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 05:00:14 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6LA0Fis010622; Thu, 21 Jul 2011 05:00:15 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 4928CA8190; Thu, 21 Jul 2011 05:00:15 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 82F10A8110; Thu, 21 Jul 2011 05:00:13 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA08597 for mathgroup-newout; Thu, 21 Jul 2011 06:54:23 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA08592 for mathgroup-newsend; Thu, 21 Jul 2011 06:54:22 -0400 (EDT) Date: Thu, 21 Jul 2011 06:54:22 -0400 (EDT) Message-Id: <201107211054.GAA08592 at smc.vnet.net> From: John Fultz <jfultz at wolfram.com> Subject: [mg120401] Re: Computable Document Format Replaces Player Notebooks Reply-To: jfultz at wolfram.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.95114 On Thu, 21 Jul 2011 05:47:32 -0400 (EDT), Gregory Lypny wrote: > Hi Everyone, > > Probably a silly question but I just want to be sure: Has the computable > document format that is built into Mathematica replaced player notebooks, > so that I no longer have to upload my notebooks to Wolfram for= conversion? > > Regards, > > Gregory Correct. Sincerely, John Fultz jfultz at wolfram.com User Interface Group Wolfram Research, Inc. From mathgroup-adm at smc.vnet.net Thu Jul 21 05:02:41 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id F2DF16BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 05:02:40 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6LA2gFu010970; Thu, 21 Jul 2011 05:02:42 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 54B5BFF008; Thu, 21 Jul 2011 05:02:42 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id B6812FF004; Thu, 21 Jul 2011 05:02:40 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA08612 for mathgroup-newout; Thu, 21 Jul 2011 06:54:34 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA08607 for mathgroup-newsend; Thu, 21 Jul 2011 06:54:33 -0400 (EDT) Date: Thu, 21 Jul 2011 06:54:33 -0400 (EDT) Message-Id: <201107211054.GAA08607 at smc.vnet.net> From: Oliver Ruebenkoenig <ruebenko at wolfram.com> Subject: [mg120402] Re: ExampleData[{"Geometry3D", "Torus"}] References: <201107210945.FAA06442 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.95414 On Thu, 21 Jul 2011, Joseph O'Rourke wrote: > Is it possible to control the radii of a torus in Mathematica 8 using the ExampleData[] function? I cannot see how to get anything but the default torus. Thanks! > > Hello Joseph, would this be of use Manipulate[ ParametricPlot3D[{ Cos[t] (r2 + r1 Cos[u]), Sin[t] (r2 + r1 Cos[u]), r1 Sin[u]}, {t, 0, 2 Pi}, {u, 0, 2 Pi}, Mesh -> None], {{r1, 1}, 0, 2}, {{r2, 3}, 0, 5}] Oliver From mathgroup-adm at smc.vnet.net Thu Jul 21 05:04:38 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 673D56BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 05:04:38 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6LA4dNF011165; Thu, 21 Jul 2011 05:04:39 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 70B9BA8169; Thu, 21 Jul 2011 05:04:39 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id D411BFF006; Thu, 21 Jul 2011 05:04:37 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA08624 for mathgroup-newout; Thu, 21 Jul 2011 06:54:45 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA08618 for mathgroup-newsend; Thu, 21 Jul 2011 06:54:44 -0400 (EDT) Date: Thu, 21 Jul 2011 06:54:44 -0400 (EDT) Message-Id: <201107211054.GAA08618 at smc.vnet.net> From: Oliver Ruebenkoenig <ruebenko at wolfram.com> Subject: [mg120403] Re: unable to save notebook References: <201107210947.FAA06570 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.95414 On Thu, 21 Jul 2011, dimitris wrote: > Hello to all. > When my student tries to save a document (e.g. hh its name) the > following message appears... > > "Mathematica could not find enough disk space to save the file C:\Users > \=D7\[Rho]=DE\[Sigma]\[Tau]\[Omicron]\[FinalSigma]\Downloads\hh.nb. The > file was left unchanged. The disk is full, or if you are using a file > server you may have reached your disk space quota." > > Any ideas on how to solve the problem? > > Thank you very much in advance for your replies. > > Dimitris, a wild guess: does saving to a path without any special characters work? Oliver From mathgroup-adm at smc.vnet.net Thu Jul 21 05:28:34 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 90E2E6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 05:28:34 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6LASZi4015305; Thu, 21 Jul 2011 05:28:35 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 79739A8180; Thu, 21 Jul 2011 05:28:35 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id D5A81A80ED; Thu, 21 Jul 2011 05:28:33 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA08991 for mathgroup-newout; Thu, 21 Jul 2011 07:23:56 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA08986 for mathgroup-newsend; Thu, 21 Jul 2011 07:23:55 -0400 (EDT) Date: Thu, 21 Jul 2011 07:23:55 -0400 (EDT) Message-Id: <201107211123.HAA08986 at smc.vnet.net> From: Oliver Ruebenkoenig <ruebenko at wolfram.com> Subject: [mg120404] Re: Inverse of Interpolating Function? References: <201107210945.FAA06489 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.21.102118 On Thu, 21 Jul 2011, Gary Wardall wrote: > On Jul 20, 5:34=C2 am, gonzorascal <dj... at duke.edu> wrote: >> Hello All, >> >> I am working with an Interpolating Function of an oscillating solution (time series) to a differential equation. I am trying to find the period and pulse width of the oscillation. To do this I would like to have an inverse of my function y[t] (so I would have t[y]). I realize this function would be multivalued (that's what I want to find the period). =C2 I am not having success using Mathematica's InverseFunction[] or Reduce[] commands. Does anyone have any experience or suggestions with this sort of thing (either finding Inverse Interpolating Functions or another method for period and pulse width)? Thank you. >> >> -GR > > gonzorascal, > > First make sure the function you wish to have an inverse function is a > function that has an inverse function. A quick visual test is the > Horizontal Test for Inverse Functions. If any horizontal line > intersects the graph twice or more then the inverse is NOT an inverse > function. Graph the function you wish to create an inverse function > for. If it fails the horizontal test you may have ti restrict your > function like is done in Trigonometry. If it passes try something like > in my example. > > > points = {{0, -1}, {1, 1}, {2, 3}, {3, 4}, {4, 6}, {5, 10}};=E2=80=A8ifun= > Interpolation[points] > Does the function pass the Horizontal Test? > > Plot[ifun[x], {x, 0, 5}] > > It does. Define: > > invifun[x_] := FindRoot[ifun[y] == x, {y, 0, 5}][[1]][[2]] > > Note that: > > ifun[invifun[4]] > > is 4. > > and > > invifun[ifun[3]] > > is 3. > > and look at the sketch. > > Plot[{invifun[x], ifun[x], x}, {x, 0, 5}, PlotRange -> {0, 5}, > AspectRatio -> Automatic] > > We have an inverse function. > > I hope this will help. > > Good Luck > > Gary Wardall > > You could also use NDSolve for that - that advantage would be that it will generate an interpolation function init = x /. FindRoot[ifun[x] == 0, {x, 0, 1}] inf = t /. First[NDSolve[{t'[a] == 1/(ifun'[t[a]]), t[0] == init}, t, {a, 0, 5}]] Plot[{inf[x], ifun[x], x}, {x, 0, 5}, PlotRange -> {0, 5}, AspectRatio -> Automatic] Oliver From mathgroup-adm at smc.vnet.net Thu Jul 21 19:12:42 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 17E516BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:12:42 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0Cge1020062; Thu, 21 Jul 2011 19:12:42 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 35719A818A; Thu, 21 Jul 2011 19:12:42 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id A283FBF4B5; Thu, 21 Jul 2011 19:12:40 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16741 for mathgroup-newout; Thu, 21 Jul 2011 21:06:01 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16736 for mathgroup-newsend; Thu, 21 Jul 2011 21:06:00 -0400 (EDT) Date: Thu, 21 Jul 2011 21:06:00 -0400 (EDT) Message-Id: <201107220106.VAA16736 at smc.vnet.net> From: "Joseph O'Rourke" <orourke at scinix.smith.edu> Subject: [mg120406] Re: ExampleData[{"Geometry3D", "Torus"}] To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.14 Thanks, Oliver. I know how to make a torus via ParametricPlot3D[], and by using the deprecated Torus[] function. I was wondering if ExampleData[] could be adjusted so that one would have the same control as with the old Torus[] function. The reason I wanted this is that the torus produced by ExampleData[] looks much nicer than that produced by Torus[]. Or, at least, I cannot get the latter to look as smooth when rendered as the former. But maybe I should just use ParametricPlot3D[] with Mehs->None as you suggest. Thanks again for your attention. From mathgroup-adm at smc.vnet.net Thu Jul 21 19:13:07 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id B7A9A6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:13:07 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0D95o020141; Thu, 21 Jul 2011 19:13:09 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 10E24BF4B5; Thu, 21 Jul 2011 19:13:09 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 53A56BF4B0; Thu, 21 Jul 2011 19:13:07 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16839 for mathgroup-newout; Thu, 21 Jul 2011 21:08:31 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16833 for mathgroup-newsend; Thu, 21 Jul 2011 21:08:30 -0400 (EDT) Date: Thu, 21 Jul 2011 21:08:30 -0400 (EDT) Message-Id: <201107220108.VAA16833 at smc.vnet.net> From: David Skulsky <edskulsky at gmail.com> Subject: [mg120420] Re: Warning: OS X Lion and compilation Reply-To: comp.soft-sys.math.mathematica at googlegroups.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.14 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_100_199 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, SMALL_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __PHISH_SPEAR_SUBJECT 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. I just installed Xcode (which is now free in the App Store) and was able to compile using C as the compilation target. David From mathgroup-adm at smc.vnet.net Thu Jul 21 19:14:59 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 956956BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:14:59 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0F0PV020559; Thu, 21 Jul 2011 19:15:00 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id DA9C7A818A; Thu, 21 Jul 2011 19:15:00 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 5D7BAA8169; Thu, 21 Jul 2011 19:14:59 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16776 for mathgroup-newout; Thu, 21 Jul 2011 21:06:54 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16771 for mathgroup-newsend; Thu, 21 Jul 2011 21:06:54 -0400 (EDT) Date: Thu, 21 Jul 2011 21:06:54 -0400 (EDT) Message-Id: <201107220106.VAA16771 at smc.vnet.net> From: Gregory Lypny <gregory.lypny at videotron.ca> Subject: [mg120411] How Can I Eliminate Line Wrapping When Using the Row Function To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.315 Hello everyone, Sometimes when I use Row for four or five items, the result wraps over two lines. How can I force the result to be displayed on one line? I couldn't find an option for this in Documentation Centre. Gregory From mathgroup-adm at smc.vnet.net Thu Jul 21 19:16:40 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id A4E666BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:16:40 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0GgrK021024; Thu, 21 Jul 2011 19:16:42 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 0544FA8180; Thu, 21 Jul 2011 19:16:42 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 765EFA8169; Thu, 21 Jul 2011 19:16:40 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16790 for mathgroup-newout; Thu, 21 Jul 2011 21:07:16 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16785 for mathgroup-newsend; Thu, 21 Jul 2011 21:07:15 -0400 (EDT) Date: Thu, 21 Jul 2011 21:07:15 -0400 (EDT) Message-Id: <201107220107.VAA16785 at smc.vnet.net> From: Gregory Lypny <gregory.lypny at videotron.ca> Subject: [mg120413] How Can I Include a Button in a Manipulate To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.315 Hello everyone, I have a Manipulate that generates a random integer or integers depending on the user's choice of parameters in a number of setter bars. I'd like to include a button in the Manipulate's output pane that allows the user to generate a new result by generating a new random number while keeping all of the parameters in the setter bar the same. Can that be done? Regards, Gregory From mathgroup-adm at smc.vnet.net Thu Jul 21 19:18:34 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 2DB8C6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:18:34 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0IZ0o029913; Thu, 21 Jul 2011 19:18:35 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 1D655BF4D2; Thu, 21 Jul 2011 19:18:35 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id BB344A8180; Thu, 21 Jul 2011 19:18:33 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16812 for mathgroup-newout; Thu, 21 Jul 2011 21:07:48 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16807 for mathgroup-newsend; Thu, 21 Jul 2011 21:07:47 -0400 (EDT) Date: Thu, 21 Jul 2011 21:07:47 -0400 (EDT) Message-Id: <201107220107.VAA16807 at smc.vnet.net> From: dr DanW <dmaxwarren at gmail.com> Subject: [mg120416] Re: Warning: OS X Lion and compilation Reply-To: comp.soft-sys.math.mathematica at googlegroups.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.1214 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_300_399 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __PHISH_SPEAR_SUBJECT 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. Ok, I won't call it a total false alarm. I had Xcode 4.0 installed prior to installing Lion, and the scenario I described in my previous posting occured. At that time, I also tried typing "gcc" in the Terminal and it was not found. I have now installed Xcode 4.2 (free from the App Store) and I am now able to compile functions in Mathematica. All is well. Daniel From mathgroup-adm at smc.vnet.net Thu Jul 21 19:20:48 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id C04056BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:20:48 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0KoCV030616; Thu, 21 Jul 2011 19:20:50 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 0D22BBF4B9; Thu, 21 Jul 2011 19:20:50 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 52034BF4B8; Thu, 21 Jul 2011 19:20:48 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16802 for mathgroup-newout; Thu, 21 Jul 2011 21:07:37 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16797 for mathgroup-newsend; Thu, 21 Jul 2011 21:07:37 -0400 (EDT) Date: Thu, 21 Jul 2011 21:07:37 -0400 (EDT) Message-Id: <201107220107.VAA16797 at smc.vnet.net> From: Gilmar Rodriguez-pierluissi <peacenova at yahoo.com> Subject: [mg120415] Producing an image that only contains its interior and boundary but, no exterior. To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.615 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_400_499 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __CP_MEDIA_BODY 0, __CP_URI_IN_BODY 0, __FRAUD_MISC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_YAHOO 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NO_MAILTO 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. This is an old issue mentioned by the late Jens-Peer Kuska in: http://forums.wolfram.com/mathgroup/archive/2006/Mar/msg00037.html How can a user produce a graphic image that includes only its interior and boundary but, without the exterior. This would facilitate embedding an image within another without having to waste time having to eliminate the annoying edges. Thank you! Gilmar Rodriguez-Pierluissi From mathgroup-adm at smc.vnet.net Thu Jul 21 19:23:05 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 2CA856BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:23:05 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0N6Si005250; Thu, 21 Jul 2011 19:23:06 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id F25CDA8190; Thu, 21 Jul 2011 19:23:05 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 545BAA818A; Thu, 21 Jul 2011 19:23:04 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16859 for mathgroup-newout; Thu, 21 Jul 2011 21:09:03 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16854 for mathgroup-newsend; Thu, 21 Jul 2011 21:09:03 -0400 (EDT) Date: Thu, 21 Jul 2011 21:09:03 -0400 (EDT) Message-Id: <201107220109.VAA16854 at smc.vnet.net> From: "DaleJenk" <dale.jenkins8 at deletegooglemail.com> Subject: [mg120423] mandelbrot in version 7 & Ruskeepaa version 3 To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.1214 I bought Mathematica 7 Home Edition last year. I'm trying to plot the Mandelbrot Set following the instructions in Ruskeepaa's Mathematica Navigator version 3. I'm getting an error message. Here's what I am introducing: mandelbrot = Compile[{{c,_Complex}}, Module[{z=0+0I, n=0}, While[Abs[z]<2 && n<50, z=z^2+c; n++]; n]]; DensityPlot[mandelbrot[x+Iy], {x,-2,1},{y,-1.5,1.5}, PlotPoints->200, Mesh->False, FrameTicks->{{-2,-1,0,1},{-1,0,1}}]; //Timing I get the message: CompiledFunction::cfsa: Argument -1.99998 + Iy at position 1 should be a machine-size complex number. Where am I going wrong? Thanks. From mathgroup-adm at smc.vnet.net Thu Jul 21 19:24:32 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id C7FA86BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:24:32 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0OYcd011681; Thu, 21 Jul 2011 19:24:34 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 273A9BF4B5; Thu, 21 Jul 2011 19:24:34 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id A6981BF47E; Thu, 21 Jul 2011 19:24:32 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16769 for mathgroup-newout; Thu, 21 Jul 2011 21:06:44 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16764 for mathgroup-newsend; Thu, 21 Jul 2011 21:06:43 -0400 (EDT) Date: Thu, 21 Jul 2011 21:06:43 -0400 (EDT) Message-Id: <201107220106.VAA16764 at smc.vnet.net> From: David Reiss <dbreiss at gmail.com> Subject: [mg120410] Re: Imported Data in Mathematica Player or CDF Documents References: <j06bes$nof$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.1514 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, BODY_SIZE_700_799 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. One approach is to place the data into a variable and then use the SaveDefinitions->True option for Manipulate. Then when that Manipulate is placed in a CDF it will have the data embedded. Best, David On Jul 20, 6:42 am, Gregory Lypny <gregory.ly... at videotron.ca> wrote: > Hello everyone, > > I'm in the process of creating a set of Mathematica Player documents > for my students, and for many of them, I need to import data from text > files. When I convert the notebooks to CDF, is the imported data > cached? Can I simply leave the Import function in the player document? > Or do I have to copy and paste the data manually into a variable? > > Any advice would be much appreciated, > > Gregory From mathgroup-adm at smc.vnet.net Thu Jul 21 19:26:35 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 2097C6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:26:35 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0QVwY012938; Thu, 21 Jul 2011 19:26:31 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 7F8FCA81C1; Thu, 21 Jul 2011 19:26:30 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id ECA34A81BD; Thu, 21 Jul 2011 19:26:28 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16818 for mathgroup-newout; Thu, 21 Jul 2011 21:07:59 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16813 for mathgroup-newsend; Thu, 21 Jul 2011 21:07:58 -0400 (EDT) Date: Thu, 21 Jul 2011 21:07:58 -0400 (EDT) Message-Id: <201107220107.VAA16813 at smc.vnet.net> From: George Woodrow III <georgevw3 at mac.com> Subject: [mg120417] Re: Warning: OS X Lion and compilation References: <201107210946.FAA06497 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.1514 The good news is that Xcode is now free. george On Jul 21, 2011, at 5:46 AM, dr DanW wrote: > I have not dug thoroughly into this yet, but I wanted to get the warning out quickly. Apparently, OS X Lion does not include the gcc compiler. I upgraded to Lion this morning, then on a lark tried to compile a function in Mathematica with CompilationTarget -> "C". I got an error that no compiler was found. > > I am sure that it is only a matter of either obtaining a copy of gcc or Xcode (with its own c compiler, not gcc) and configuring Mathematica to use that compiler. I have not tried either, since I am not using anything but opcode compilation. If you are successful, please post instructions for others on this group. > > Thanks, > Daniel > From mathgroup-adm at smc.vnet.net Thu Jul 21 19:28:18 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 8890B6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:28:18 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0SJ7h013192; Thu, 21 Jul 2011 19:28:19 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id C8D74A8190; Thu, 21 Jul 2011 19:28:19 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 61F54BF4B9; Thu, 21 Jul 2011 19:28:18 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16796 for mathgroup-newout; Thu, 21 Jul 2011 21:07:27 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16791 for mathgroup-newsend; Thu, 21 Jul 2011 21:07:26 -0400 (EDT) Date: Thu, 21 Jul 2011 21:07:26 -0400 (EDT) Message-Id: <201107220107.VAA16791 at smc.vnet.net> From: paulvonhippel at yahoo <paulvonhippel at yahoo.com> Subject: [mg120414] TransformedDistribution, for a sum of M iid variables To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.1514 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, BODY_SIZE_800_899 0, FROM_NAME_PHRASE 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_YAHOO 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Using the TransformedDistribution function it is easy to show that the sum of two normal variables is normal, e.g., Input: TransformedDistribution[Z1+Z2,{Z1\ [Distributed]NormalDistribution[0,1],Z2\ [Distributed]NormalDistribution[0,1]}] Output: NormalDistribution[0, Sqrt[2]] Likewise it wouldn't be hard to show that the sum of 3 normal variables is normal, or 4. But how do I show that the sum of M normal variables is normal, where M is an arbitrary positive integer. I'm thinking I should use the Sum function inside TransformedDistribution, but I don't know how the notation would work. I see that there's a UniformSumDistribution function, but that's limited to uniform variables. Later I will want to do similar calculations for nonnormal distributions. Thanks for any pointers. From mathgroup-adm at smc.vnet.net Thu Jul 21 19:30:36 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 742FD6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:30:36 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0Ubex014573; Thu, 21 Jul 2011 19:30:37 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id C3DEFA81BD; Thu, 21 Jul 2011 19:30:37 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 6741BBF4B5; Thu, 21 Jul 2011 19:30:36 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16865 for mathgroup-newout; Thu, 21 Jul 2011 21:09:14 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16860 for mathgroup-newsend; Thu, 21 Jul 2011 21:09:13 -0400 (EDT) Date: Thu, 21 Jul 2011 21:09:13 -0400 (EDT) Message-Id: <201107220109.VAA16860 at smc.vnet.net> From: carlos at colorado.edu Subject: [mg120424] Re: Total plot width References: <201107201032.GAA24081 at smc.vnet.net> <j08st7$6ik$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.2114 On Jul 21, 3:52 am, Murray Eisenberg <mur... at math.umass.edu> wrote: > The option you want is ImageSize. > > On 7/20/11 6:32 AM, car... at colorado.edu wrote: > > > How can I specify the total plot width in Mathematica? I was looking for > > something like AbsolutePlotWidth->250 (points implied) but havent found > > that option in the documentation. There is AspectRatio, but that is > > not a dimension. Thanks. > > -- > Murray Eisenberg mur... at math.umass.edu > Mathematics & Statistics Dept. > Lederle Graduate Research Tower phone 413 549-1020 (H) > University of Massachusetts 413 545-2859 (W) > 710 North Pleasant Street fax 413 545-1801 > Amherst, MA 01003-9305 Thanks to all who replied. ImageSize works fine, I had missed that option. Sometimes one need to sync widths between multiple plots to simplify downstream editing by Illustrator and placing on a single LaTeX page with [p]. From mathgroup-adm at smc.vnet.net Thu Jul 21 19:32:38 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id E084F6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:32:38 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0WeQh014883; Thu, 21 Jul 2011 19:32:40 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 35F61BF4B8; Thu, 21 Jul 2011 19:32:40 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 936CDBF4B5; Thu, 21 Jul 2011 19:32:38 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16761 for mathgroup-newout; Thu, 21 Jul 2011 21:06:33 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16756 for mathgroup-newsend; Thu, 21 Jul 2011 21:06:32 -0400 (EDT) Date: Thu, 21 Jul 2011 21:06:32 -0400 (EDT) Message-Id: <201107220106.VAA16756 at smc.vnet.net> From: David Reiss <dbreiss at gmail.com> Subject: [mg120409] Re: Warning: OS X Lion and compilation References: <j08smg$6eh$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.2114 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_1099 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __CP_URI_IN_BODY 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __PHISH_SPEAR_SUBJECT 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. I believe that XCode 4.1 for Lion is now free and I believe that the compilers are installed with an installation of XCode... http://developer.apple.com/xcode/ I haven't installed Lion yet since I use Eudora and can't find a better email client ... and Eudora is PowerPC... :-( --David On Jul 21, 5:49 am, dr DanW <dmaxwar... at gmail.com> wrote: > I have not dug thoroughly into this yet, but I wanted to get the warning out quickly. Apparently, OS X Lion does not include the gcc compiler. I upgraded to Lion this morning, then on a lark tried to compile a function in Mathematica with CompilationTarget -> "C". I got an error that no compiler was found. > > I am sure that it is only a matter of either obtaining a copy of gcc or Xcode (with its own c compiler, not gcc) and configuring Mathematica to use that compiler. I have not tried either, since I am not using anything but opcode compilation. If you are successful, please post instructions for others on this group. > > Thanks, > Daniel From mathgroup-adm at smc.vnet.net Thu Jul 21 19:34:40 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 995056BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:34:40 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0Yf95015402; Thu, 21 Jul 2011 19:34:41 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id E3B5EBF4B5; Thu, 21 Jul 2011 19:34:40 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id F3C32A8190; Thu, 21 Jul 2011 19:34:38 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16853 for mathgroup-newout; Thu, 21 Jul 2011 21:08:53 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16848 for mathgroup-newsend; Thu, 21 Jul 2011 21:08:52 -0400 (EDT) Date: Thu, 21 Jul 2011 21:08:52 -0400 (EDT) Message-Id: <201107220108.VAA16848 at smc.vnet.net> From: The Wolfram Team <info at wolfram.com> Subject: [mg120422] Share ideas more easily with Wolfram's new Computable Document Format (CDF) To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.2114 Today, Wolfram is officially launching the Computable Document Format (CDF)--a new public standard merging the simplicity of documents and interactivity of apps into a single, computation-powered knowledge container that empowers readers to drive content and generate results live. CDF is an evolution of the notebook (.nb) and is the new standard for sharing Mathematica output--broadening accessibility of the Wolfram platform. Simply save interactive papers, reports, presentations, infographics, and knowledge applications as CDFs in Mathematica 8 and the free Wolfram CDF Player lets anyone interact with your content directly in a web browser. Watch a brief video introduction of CDF: http://www.wolfram.com/broadcast/screencasts/cdf_intro See how easy it is to create CDFs in Mathematica 8: http://www.wolfram.com/broadcast/screencasts/creating-a-knowledge-app-in-60-seconds CDF technology is already being used in some of today's most popular interactive publications, including Pearson Education's award-winning Calculus textbook by William L. Briggs and Lyle Cochran. Start exploring the possibilities of CDF in Mathematica 8 and let us know how you have used it. The Wolfram Team PS: You can also learn more about CDF at the Wolfram Technology Conference 2011: http://www.wolfram.com/events/technology-conference-2011 From mathgroup-adm at smc.vnet.net Thu Jul 21 19:36:53 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 1114D6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:36:53 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0asdD015843; Thu, 21 Jul 2011 19:36:54 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 09B65A8180; Thu, 21 Jul 2011 19:36:54 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 405E1A8169; Thu, 21 Jul 2011 19:36:52 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16749 for mathgroup-newout; Thu, 21 Jul 2011 21:06:11 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16744 for mathgroup-newsend; Thu, 21 Jul 2011 21:06:11 -0400 (EDT) Date: Thu, 21 Jul 2011 21:06:11 -0400 (EDT) Message-Id: <201107220106.VAA16744 at smc.vnet.net> From: Daniel Lichtblau <danl at wolfram.com> Subject: [mg120407] Re: Inverse of Interpolating Function? References: <201107201031.GAA24058 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.3014 On 07/20/2011 05:31 AM, gonzorascal wrote: > Hello All, > > I am working with an Interpolating Function of an oscillating solution (time series) to a differential equation. I am trying to find the period and pulse width of the oscillation. To do this I would like to have an inverse of my function y[t] (so I would have t[y]). I realize this function would be multivalued (that's what I want to find the period). I am not having success using Mathematica's InverseFunction[] or Reduce[] commands. Does anyone have any experience or suggestions with this sort of thing (either finding Inverse Interpolating Functions or another method for period and pulse width)? Thank you. > > -GR > Here is an approach that might be suitable, at least if you can sample from a fairly large number of periods. (1) Sample your function in equal intervals. (2) Take the Fourier transform. (3) Find the largest frequency, not counting the first (DC) component. (4) ue that to estimate the period. Here is an example. We'll use a reference function that is a simple sinusoid. y[t] /. First[ DSolve[{y''[t] == -2*y[t], y[0] == 0, y'[0] == 1}, y[t], t]] Out[1500]= Sin[Sqrt[2] t]/Sqrt[2] The period is Sqrt[2]*Pi, or around 4.44288 We will now obtain this as an InterpolatingFunction from NDSolve, add a DC component, sample at intervals, and add some random noise. soln = y[t] /. First[NDSolve[{y''[t] == -2*y[t], y[0] == 0, y'[0] == 1}, y[t], {t, 0, 150}]] separation = .1; vals = Table[soln + 3, {t, 0., 150., separation}]; vals = vals + RandomReal[{-.1, .1}, Length[vals]]; ft = Abs[Fourier[vals]]; mainfreq = Position[Rest[ft], Max[Rest[ft]]][[1, 1]] Out[1563]= 34 Here is the period estimate. In[1564]:= N[Length[vals]/mainfreq]*separation Out[1564]= 4.41471 So this agrees with the period of the unperturbed signal to 2+ decimal places. A related approach may be found at Documentation Center > Fourier > Applications > Frequency Identification Daniel Lichtblau Wolfram Research From mathgroup-adm at smc.vnet.net Thu Jul 21 19:38:44 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id C39916BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:38:44 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0cj8W016283; Thu, 21 Jul 2011 19:38:45 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 50AA1BF4B8; Thu, 21 Jul 2011 19:38:45 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 05020BF4B5; Thu, 21 Jul 2011 19:38:43 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16824 for mathgroup-newout; Thu, 21 Jul 2011 21:08:09 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16819 for mathgroup-newsend; Thu, 21 Jul 2011 21:08:09 -0400 (EDT) Date: Thu, 21 Jul 2011 21:08:09 -0400 (EDT) Message-Id: <201107220108.VAA16819 at smc.vnet.net> From: Heike Gramberg <heike.gramberg at gmail.com> Subject: [mg120418] Re: newbie Map, Dynamic, etc References: <201107210947.FAA06542 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.3014 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_2000_2999 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __C230066_P5 0, __CP_MEDIA_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Suppose plots is your list of imported images, then you could do something like pts = Table[{0, 0}, {Length[plots]}] Manipulate[LocatorPane[Dynamic[pts[[k]]], plots[[k]]], {{k, 1, "Index"}, Range[Length[plots]], ControlType -> Slider, Appearance -> "Labeled"}] The k-th entry in pts will correspond to the coordinates of the locator on the k-th image. You can even see a live update of the coordinates while you manipulate the locators by doing something like Dynamic[pts // TableForm] Heike On 21 Jul 2011, at 10:47, Gareth Edwards wrote: > Hi, > > Still playing around with Mathematica as a newbie and wrestling with the > 'different' way one has to think about things as opposed to other > languages. I think (hopefully) that an informative example for me would be a > solution (or at least some hints) to the following: > > Say I have an image sequence (mySequence_0000.jpg, etc.) I'd like to create > a viewer with a slider that scrubs through the images. That I can do. > > What I'd also like is an array of points (just one point per image, and > initialized to {0,0} say ), such that on each image I can move a locator > around and thereby modify the corresponding stored point in the array. In > other words, store the location of a point (as manipulated by me) against > each image. > > My gut tells me that this is trivial to the average Mathematica user- the > trouble is I remain well below average right now! > > Any help appreciated. > > Best, > > Gareth > > -- > Dr. Gareth Edwards > Director > www.cubicmotion.com > > Mobile: +44 7813 534111 > Office: +44 1925 606430 > Fax: +44 161 884 0095 > > This email and any files transmitted with it are confidential and intended > solely for the use of the individual or entity to whom they are addressed. > It may not be disclosed, copied, forwarded, used or relied upon by any > person other than the intended addressee. If you believe that you have > received the e-mail and its attachment(s) in error, you must not take any > action based on them, nor must you copy or show them to anyone. If you have > received this email in error please notify postmaster at cubicmotion.com. > > From mathgroup-adm at smc.vnet.net Thu Jul 21 19:41:16 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id C93666BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:41:16 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0fIF3017269; Thu, 21 Jul 2011 19:41:18 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id C6CC2BF4B8; Thu, 21 Jul 2011 19:41:17 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id DC191A8169; Thu, 21 Jul 2011 19:41:15 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16755 for mathgroup-newout; Thu, 21 Jul 2011 21:06:22 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16750 for mathgroup-newsend; Thu, 21 Jul 2011 21:06:21 -0400 (EDT) Date: Thu, 21 Jul 2011 21:06:21 -0400 (EDT) Message-Id: <201107220106.VAA16750 at smc.vnet.net> From: Sol Lederman <sol at wolfram.com> Subject: [mg120408] Computer-Based Math Summit To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.3014 [ I am helping to put on this international conference and am wanting to spread the word. The conference may be of interest to Mathematica users since it is part of the work of ComputerBasedMath.org which was created by Conrad Wolfram and is initially being supported by Wolfram Research. Separately from the conference, members of this community may want to get involved by helping to develop courseware. ] How do we fix math education? The importance of math to jobs, society, and thinking has exploded over the last few decades. Meanwhile, math education has gotten stuck or has even slipped backward. Why has this chasm opened up? It's all about computers: when they do the calculating, people can work on harder questions, try more concepts, and play with a multitude of new ideas. computerbasedmath.org is a project founded by Conrad Wolfram and initially supported by Wolfram Research to build a completely new math curriculum with computer-based math at its heart -- alongside a campaign to refocus math education away from historical hand-calculating techniques and toward relevant and conceptually interesting topics. computerbasedmath.org is hosting a two-day summit to address the worldwide math education crisis by answering the question, In an era of ubiquitous computing, how should we rebuild math education from the ground up, to keep pace with and drive progress in the real world? If you are a leader in industry, technology, government or education with astake in math we urge you to request an invitation to the summit and to join us in addressing math (and associated STEM) education from all perspectives to kick-start a rational, computer-based new direction. Please see the Computer-Based Math Education Summit site ( http://computerbasedmath.org/events/londonsummit2011/index.html) for more information. Contact the summit organizers at summit at computerbasedmath.org with questions. Whether or not you can attend the inaugural summit we welcome your participation in the Computer-Based Math project. Click the Sign Up link at the Computer-Based Math home page (http://computerbasedmath.org) to keep informed. If you know of other leaders who should be involved in the project we would greatly appreciate knowing about them through the Sign Up link or via the summit at computerbasedmath.org email. From mathgroup-adm at smc.vnet.net Thu Jul 21 19:43:01 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id EE7396BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:43:00 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0h1m9017600; Thu, 21 Jul 2011 19:43:01 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 48F92A8180; Thu, 21 Jul 2011 19:43:01 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 0FBE3BF4B8; Thu, 21 Jul 2011 19:42:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16782 for mathgroup-newout; Thu, 21 Jul 2011 21:07:05 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16777 for mathgroup-newsend; Thu, 21 Jul 2011 21:07:04 -0400 (EDT) Date: Thu, 21 Jul 2011 21:07:04 -0400 (EDT) Message-Id: <201107220107.VAA16777 at smc.vnet.net> From: Fonseca <public at fonseca.info> Subject: [mg120412] CDF limitations and unclear professional strategy To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.3014 Disappointed... So much things I heard about CDF applications, and then, well, I have to classify them as documents... Very powerful documents, and almost touching the application world but... just interactive documents for an OPEN market... Somehow nothing new than what already existed. Not that it is bad (I personally have already commented a lot of good on the subject). The problem is that I'm still unable to see how could I use this in an cooperation environment. Let's suppose two different scenarios: 1. An application to be distributed to 100 colleagues of the same company, that, well, to make it simple, just needs to import a gif image, apply some sort of simple filter, and export it to a gif file. Very simple application, but not feasible. There isn't even concrete information on the subject (besides "please contact us"). Have contacted several times on the subject, and always no solution... Has this changed? Why so much mystery on the PROfessional use of this technology (this confirms what I keep hearing from others: academic, institutes, governments, etc, but not corporate...)? 100 special licenses for such a simple application? 2. Let's suppose I developed a package that does some awesome stuff, and really toke me some time to develop it. I use it to write a report for a client, and I want to give the report as an interactive document to the client (nothing could be better than CDF!). But the interaction needs my package (there's no way of previously generating all possible outputs). So, I can't send it to my client, since I risk having it copied to my competitors. Each client to whom I send a report needs a professional version? I mean, each person in the company of my client, and their consultant partners that will evaluate my report...? Or is this now the other way around: each report or report revision needs to be converted at Wolfram for pro functionalists activation on the standard player (I sign confidential agreements with my client...)? After all the announcements I have no idea what's the strategy. Did I missed some information on WR site? I just resent some questions to WR on the "please contact us", to see if something changed in the past couple of months (when I last insisted). Waiting for the answer, but why all the mystery on the PRO version? What can't WR figure out about a professional strategy? Can someone from Wolfram clarify this here for everyone? Is there a strategy for these two very common and simple examples of my world? Is this only meant for publishing documents on an OPEN environment, or on a direct revenue strategy (selling each document/application copy for a not so small price?). It's interesting that all the examples presented in the site are of very simple applications, but how can these simple application be used on a closed corporate environment, if the licensing of the applications cost more than their internal development cost? I'm completely in the dark... I know that I already asked this before, without great success (just one person answered), but, am I the only one here? Regards, P. Fonseca From mathgroup-adm at smc.vnet.net Thu Jul 21 19:43:06 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 7ECFC6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:43:06 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0h7p4017942; Thu, 21 Jul 2011 19:43:07 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id A71D5A8190; Thu, 21 Jul 2011 19:43:06 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 70DB8A818A; Thu, 21 Jul 2011 19:43:03 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16734 for mathgroup-newout; Thu, 21 Jul 2011 21:05:50 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16729 for mathgroup-newsend; Thu, 21 Jul 2011 21:05:49 -0400 (EDT) Date: Thu, 21 Jul 2011 21:05:49 -0400 (EDT) Message-Id: <201107220105.VAA16729 at smc.vnet.net> From: Arturo Amador <amador at tf.phys.ntnu.no> Subject: [mg120405] Phase Diagrams and problem probably with NIntegrate (or FindRoot) To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.3314 Hi, I am trying to make some phase diagrams on Mathematica. I have the following code: (*Free parameters*)n=4 start=150. (*Experimental quantities (MeV)*) mpi=139. msi=600. fpi=93. (*Renormalisation scale*) scale=mpi Sqrt[n] (*Dimensionless auxiliary function*) Jint[x_,y_]:=y^2/Sqrt[x^2+y^2]/(Exp[Sqrt[x^2+y^2]]-1) J[x_]:=NIntegrate[Jint[x,y],{y,0,Infinity}] (*Sum-integral*) qT[m_,t_]:=t^2 J[m/t]/(2 Pi^2) qT[m_,0.]:=0. p0[m_]:=m^2 Log[m^2/scale^2]/(16 Pi^2) p0[0.]:=0. p[m_,t_]:=p0[m]+qT[m,t] (*Physical point*) lp=n (msi^2-mpi^2)/fpi^2 fp=fpi^2 (msi^2-3 mpi^2)/(msi^2-mpi^2)/n hp=mpi^2 fpi/Sqrt[n] (*Chiral limit*) lc=n msi^2/fpi^2 fc=fpi^2/n (*Pion condensate (squared)*) rhop[mui_,t_]:=fp-hp^2/mui^4+2 mui^2/lp-p0[mui]-qT[mui,t] rhoc[mui_,t_]:=fc+2 mui^2/lc-p[mui,t] (*Normalised plot of chiral condensate at mu_I0 MeV*) rnp=Sqrt[rhop[200.,0.]] rnc=Sqrt[rhoc[200.,0.]] rhoplot:=Plot[{Sqrt[rhop[200.,t]]/rnp,Sqrt[rhoc[200.,t]]/rnc},{t,0.,300.},PlotRange->All,AxesOrigin->{0.,0.}] (*Critical temperature and phase diagram*) tcp[mui_]:=FindRoot[rhop[mui,t],{t,start}][[1]][[2]] tcc[mui_]:=FindRoot[rhoc[mui,t],{t,start}][[1]][[2]] phaseplot:=Plot[{tcp[mui],tcc[mui]},{mui,0.01,300.},PlotRange->All,AxesOrigin->{0.,0.}] Grid[rhoplot,phaseplot] It is supposed to give me a pair of plots but I am only getting one and some error messages for the second one (phaseplot). The error that Mathematica gives in the terminal says as follows: NIntegrate::inumr: 2 y The integrand -------------------------------------------------------- 2 2 Sqrt[0.000260124/t + y ] 0.000260124 2 (-1 + E ) Sqrt[----------- + y ] 2 t has evaluated to non-numerical values for all sampling points in the region with boundaries {{Infinity, 0.}}. NIntegrate::inumr: 2 y The integrand -------------------------------------------------------- 2 2 Sqrt[0.000260124/t + y ] 0.000260124 2 (-1 + E ) Sqrt[----------- + y ] 2 t has evaluated to non-numerical values for all sampling points in the region with boundaries {{Infinity, 0.}}. NIntegrate::inumr: 2 y The integrand -------------------------------------------------------- 2 2 Sqrt[0.000260124/t + y ] 0.000260124 2 (-1 + E ) Sqrt[----------- + y ] 2 t has evaluated to non-numerical values for all sampling points in the region with boundaries {{Infinity, 0.}}. General::stop: Further output of NIntegrate::inumr will be suppressed during this calculation. FindRoot::lstol: The line search decreased the step size to within tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find a sufficient decrease in the merit function. You may need more than MachinePrecision digits of working precision to meet these tolerances. The error message that Mathematica gives in the front end is this: NIntegrate::inumr: The integrand y^2/((-1+E^Sqrt[0.000260124 Power[<<2>>]+y^2]) Sqrt[0.000260124/t^2+y^2]) has evaluated to non-numerical values for all sampling points in the region with boundaries {{\[Infinity],0.}}. >> NIntegrate::inumr: The integrand y^2/((-1+E^Sqrt[0.000260124 Power[<<2>>]+y^2]) Sqrt[0.000260124/t^2+y^2]) has evaluated to non-numerical values for all sampling points in the region with boundaries {{\[Infinity],0.}}. >> NIntegrate::inumr: The integrand y^2/((-1+E^Sqrt[0.000260124 Power[<<2>>]+y^2]) Sqrt[0.000260124/t^2+y^2]) has evaluated to non-numerical values for all sampling points in the region with boundaries {{\[Infinity],0.}}. >> General::stop: Further output of NIntegrate::inumr will be suppressed during this calculation. >> NIntegrate::vars: Integration range specification Compile`$19 is not of the form {x, xmin, ..., xmax}. >> NIntegrate::vars: Integration range specification Compile`$19 is not of the form {x, xmin, ..., xmax}. >> NIntegrate::vars: Integration range specification Compile`$19 is not of the form {x, xmin, ..., xmax}. >> General::stop: Further output of NIntegrate::vars will be suppressed during this calculation. >> FindRoot::njnum: The Jacobian is not a matrix of numbers at {t} = {150.}. >> FindRoot::njnum: The Jacobian is not a matrix of numbers at {t} = {150.}. >> When running this in the terminal it seems to keep working for a while, but in the front end it just interrupts all further evaluation. Any comment would be of great help. Thanks, -- Arturo From mathgroup-adm at smc.vnet.net Thu Jul 21 19:43:30 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 9BD6C6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:43:30 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0hV99017985; Thu, 21 Jul 2011 19:43:31 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id C28B1A818A; Thu, 21 Jul 2011 19:43:31 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id D5336BF4B8; Thu, 21 Jul 2011 19:43:28 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16845 for mathgroup-newout; Thu, 21 Jul 2011 21:08:42 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16840 for mathgroup-newsend; Thu, 21 Jul 2011 21:08:41 -0400 (EDT) Date: Thu, 21 Jul 2011 21:08:41 -0400 (EDT) Message-Id: <201107220108.VAA16840 at smc.vnet.net> From: Gary Wardall <gwardall at gmail.com> Subject: [mg120421] Re: Inverse of Interpolating Function? References: <201107210945.FAA06489 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.3314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_2000_2999 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Yes, that is so. I kind of thought that's what GR should do, Gary On Thu, Jul 21, 2011 at 5:17 AM, Oliver Ruebenkoenig <ruebenko at wolfram.com>wrote: > On Thu, 21 Jul 2011, Gary Wardall wrote: > > On Jul 20, 5:34 am, gonzorascal <dj... at duke.edu> wrote: >> >>> Hello All, >>> >>> I am working with an Interpolating Function of an oscillating solution >>> (time series) to a differential equation. I am trying to find the period >>> and pulse width of the oscillation. To do this I would like to have an >>> inverse of my function y[t] (so I would have t[y]). I realize this function >>> would be multivalued (that's what I want to find the period). I am not >>> having success using Mathematica's InverseFunction[] or Reduce[] commands. >>> Does anyone have any experience or suggestions with this sort of thing >>> (either finding Inverse Interpolating Functions or another method for period >>> and pulse width)? Thank you. >>> >>> -GR >>> >> >> gonzorascal, >> >> First make sure the function you wish to have an inverse function is a >> function that has an inverse function. A quick visual test is the >> Horizontal Test for Inverse Functions. If any horizontal line >> intersects the graph twice or more then the inverse is NOT an inverse >> function. Graph the function you wish to create an inverse function >> for. If it fails the horizontal test you may have ti restrict your >> function like is done in Trigonometry. If it passes try something like >> in my example. >> >> >> points = {{0, -1}, {1, 1}, {2, 3}, {3, 4}, {4, 6}, {5, 10}}; ifun= >> Interpolation[points] >> Does the function pass the Horizontal Test? >> >> Plot[ifun[x], {x, 0, 5}] >> >> It does. Define: >> >> invifun[x_] := FindRoot[ifun[y] == x, {y, 0, 5}][[1]][[2]] >> >> Note that: >> >> ifun[invifun[4]] >> >> is 4. >> >> and >> >> invifun[ifun[3]] >> >> is 3. >> >> and look at the sketch. >> >> Plot[{invifun[x], ifun[x], x}, {x, 0, 5}, PlotRange -> {0, 5}, >> AspectRatio -> Automatic] >> >> We have an inverse function. >> >> I hope this will help. >> >> Good Luck >> >> Gary Wardall >> >> >> > You could also use NDSolve for that - that advantage would be that it will > generate an interpolation function > > init = x /. FindRoot[ifun[x] == 0, {x, 0, 1}] > > inf = t /. > First[NDSolve[{t'[a] == 1/(ifun'[t[a]]), t[0] == init}, > t, {a, 0, 5}]] > > Plot[{inf[x], ifun[x], x}, {x, 0, 5}, PlotRange -> {0, 5}, > AspectRatio -> Automatic] > > Oliver > From mathgroup-adm at smc.vnet.net Thu Jul 21 19:44:00 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 867EE6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 21 Jul 2011 19:44:00 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M0i16i018037; Thu, 21 Jul 2011 19:44:01 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 2C42EA818A; Thu, 21 Jul 2011 19:44:01 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 972B1BF4D0; Thu, 21 Jul 2011 19:43:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16832 for mathgroup-newout; Thu, 21 Jul 2011 21:08:20 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id VAA16827 for mathgroup-newsend; Thu, 21 Jul 2011 21:08:19 -0400 (EDT) Date: Thu, 21 Jul 2011 21:08:19 -0400 (EDT) Message-Id: <201107220108.VAA16827 at smc.vnet.net> From: Gareth Edwards <gareth.edwards at cubicmotion.com> Subject: [mg120419] Re: newbie Map, Dynamic, etc References: <201107210947.FAA06542 at smc.vnet.net> <8A9117AD-B871-4686-9CCB-FF12EC28921A at gmail.com> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.3314 Thanks Heike, that's extremely helpful to understand the way to build these things! Best, Gareth On 21 July 2011 14:58, Heike Gramberg <heike.gramberg at gmail.com> wrote: > Suppose plots is your list of imported images, then you could do something > like > > pts = Table[{0, 0}, {Length[plots]}] > > Manipulate[LocatorPane[Dynamic[pts[[k]]], plots[[k]]], > {{k, 1, "Index"}, Range[Length[plots]], ControlType -> Slider, > Appearance -> "Labeled"}] > > The k-th entry in pts will correspond to the coordinates of the locator on > the k-th > image. You can even see a live update of the coordinates while you > manipulate the > locators by doing something like > > Dynamic[pts // TableForm] > > Heike > > On 21 Jul 2011, at 10:47, Gareth Edwards wrote: > > > Hi, > > > > Still playing around with Mathematica as a newbie and wrestling with the > > 'different' way one has to think about things as opposed to other > > languages. I think (hopefully) that an informative example for me would > be a > > solution (or at least some hints) to the following: > > > > Say I have an image sequence (mySequence_0000.jpg, etc.) I'd like to > create > > a viewer with a slider that scrubs through the images. That I can do. > > > > What I'd also like is an array of points (just one point per image, and > > initialized to {0,0} say ), such that on each image I can move a locator > > around and thereby modify the corresponding stored point in the array. In > > other words, store the location of a point (as manipulated by me) against > > each image. > > > > My gut tells me that this is trivial to the average Mathematica user- the > > trouble is I remain well below average right now! > > > > Any help appreciated. > > > > Best, > > > > Gareth > > > > -- > > Dr. Gareth Edwards > > Director > > www.cubicmotion.com > > > > Mobile: +44 7813 534111 > > Office: +44 1925 606430 > > Fax: +44 161 884 0095 > > > > This email and any files transmitted with it are confidential and > intended > > solely for the use of the individual or entity to whom they are > addressed. > > It may not be disclosed, copied, forwarded, used or relied upon by any > > person other than the intended addressee. If you believe that you have > > received the e-mail and its attachment(s) in error, you must not take any > > action based on them, nor must you copy or show them to anyone. If you > have > > received this email in error please notify postmaster at cubicmotion.com. > > > > > > -- Dr. Gareth Edwards Director www.cubicmotion.com Mobile: +44 7813 534111 Office: +44 1925 606430 Fax: +44 161 884 0095 This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. It may not be disclosed, copied, forwarded, used or relied upon by any person other than the intended addressee. If you believe that you have received the e-mail and its attachment(s) in error, you must not take any action based on them, nor must you copy or show them to anyone. If you have received this email in error please notify postmaster at cubicmotion.com. From mathgroup-adm at smc.vnet.net Fri Jul 22 01:50:19 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id CA87C6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 01:50:18 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M6oJEr016403; Fri, 22 Jul 2011 01:50:19 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 38A95BF4B5; Fri, 22 Jul 2011 01:50:19 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 3D6FCBF4B0; Fri, 22 Jul 2011 01:50:17 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA20076 for mathgroup-newout; Fri, 22 Jul 2011 03:42:14 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA20071 for mathgroup-newsend; Fri, 22 Jul 2011 03:42:13 -0400 (EDT) Date: Fri, 22 Jul 2011 03:42:13 -0400 (EDT) Message-Id: <201107220742.DAA20071 at smc.vnet.net> From: "Hobbs, Sylvia (DPH)" <sylvia.hobbs at state.ma.us> Subject: [mg120426] Re: mlink SASImport References: <j08sod$6ge$1 at smc.vnet.net>,<ba5c2faf-3868-4f20-b1b2-aa280e7dcf3a at r28g2000prb.googlegroups.com> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.63616 See: http://library.wolfram.com/infocenter/MathSource/7808/ Sylva Hobbs ________________________________________ From: Gary Owen [jloughlin at loughlinconsulting.com] Sent: Thursday, July 21, 2011 7:36 PM To: Hobbs, Sylvia (DPH) Subject: [mg120426] Re: mlink SASImport On Jul 21, 2:50 am, "Hobbs, Sylvia (DPH)" <sylvia.ho... at state.ma.us> wrote: > After importing a huge SAS data set into Mathematica that contains 400 data elements, is there a global validation command where Mathematica could return a report of on the blanks and content frequencies in all of the data fields or do you have to run separate queries for every single data element? > > Sylvia Hobbs How did you import the SAS data? Did you first export the SAS data to excel or csv and then import that data into Mathematica? Or were you able to import the SAS data directly? If so, what Mathematica code did you use? I use SAS a lot and it would be great if I could import SAS data dircectly into Mathematica. From mathgroup-adm at smc.vnet.net Fri Jul 22 01:50:47 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id ABD266BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 01:50:47 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M6om5u016476; Fri, 22 Jul 2011 01:50:48 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id CF04ABF4B0; Fri, 22 Jul 2011 01:50:48 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 04DBBA8169; Fri, 22 Jul 2011 01:50:47 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA20069 for mathgroup-newout; Fri, 22 Jul 2011 03:42:03 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA20064 for mathgroup-newsend; Fri, 22 Jul 2011 03:42:02 -0400 (EDT) Date: Fri, 22 Jul 2011 03:42:02 -0400 (EDT) Message-Id: <201107220742.DAA20064 at smc.vnet.net> From: "Oleksandr Rasputinov" <oleksandr_rasputinov at hmamail.com> Subject: [mg120425] Re: mandelbrot in version 7 & Ruskeepaa version 3 References: <j0aivf$ghq$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.63616 There is a space missing between I and y in the expression mandelbrot[x + Iy] (should be mandelbrot[x + I y]). Also, you should omit the semicolon after DensityPlot, otherwise the plot will not be shown. Incidentally, tabulating the values and then plotting them with ArrayPlot is faster for this example than using DensityPlot. That is, ArrayPlot@Table[ mandelbrot[x + I y], {y, -1.5, 1.5, 0.005}, {x, -2.0, 1.0, 0.005} ] On Fri, 22 Jul 2011 02:15:27 +0100, DaleJenk <dale.jenkins8 at deletegooglemail.com> wrote: > I bought Mathematica 7 Home Edition last year. I'm trying to plot the > Mandelbrot Set following the instructions in Ruskeepaa's Mathematica > Navigator version 3. I'm getting an error message. > > Here's what I am introducing: > > mandelbrot = Compile[{{c,_Complex}}, > Module[{z=0+0I, n=0}, While[Abs[z]<2 && n<50, z=z^2+c; n++]; n]]; > > DensityPlot[mandelbrot[x+Iy], {x,-2,1},{y,-1.5,1.5}, PlotPoints->200, > Mesh->False, FrameTicks->{{-2,-1,0,1},{-1,0,1}}]; //Timing > > I get the message: > > CompiledFunction::cfsa: > Argument -1.99998 + Iy at position 1 should be a machine-size complex > number. > > Where am I going wrong? > > Thanks. > From mathgroup-adm at smc.vnet.net Fri Jul 22 01:52:55 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 7F4CC6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 01:52:55 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M6qulm017353; Fri, 22 Jul 2011 01:52:56 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id B1F7AA81BA; Fri, 22 Jul 2011 01:52:56 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id C73BBFF006; Fri, 22 Jul 2011 01:52:54 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA20082 for mathgroup-newout; Fri, 22 Jul 2011 03:42:24 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA20077 for mathgroup-newsend; Fri, 22 Jul 2011 03:42:24 -0400 (EDT) Date: Fri, 22 Jul 2011 03:42:24 -0400 (EDT) Message-Id: <201107220742.DAA20077 at smc.vnet.net> From: Bill Rowe <readnews at sbcglobal.net> Subject: [mg120427] Re: TransformedDistribution, for a sum of M iid variables To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.64215 On 7/21/11 at 9:07 PM, paulvonhippel at yahoo.com (paulvonhippel at yahoo) wrote: >Using the TransformedDistribution function it is easy to show that >the sum of two normal variables is normal, e.g., <code snipped> >Likewise it wouldn't be hard to show that the sum of 3 normal >variables is normal, or 4. >But how do I show that the sum of M normal variables is normal, >where M is an arbitrary positive integer. Rather than approach this problem using TransformedDistribution, I would approach this using MomentGeneratingFunction. The moment generating function for the sum of n things selected from a given distribution is the same as the moment generating function for the distribution raised to the nth power. That is for the sum of n standard normal deviates the moment generating function is: In[3]:= MomentGeneratingFunction[NormalDistribution[], t]^n Out[3]= (E^(t^2/2))^n Comparing this to In[4]:= MomentGeneratingFunction[NormalDistribution[0, s], t] Out[4]= E^((s^2*t^2)/2) it is clear the distribution for the sum of n deviates drawn from a standard normal distribution is a normal distribution with mean = 0 variance = n. I should point out the moment generating function doesn't exist for all distributions. In those cases you can use the characteristic function which always exists. And since the characteristic function is essentially the Fourier transform of the distribution function, you can use the inverse Fourier transform to recover the distribution function from the characteristic function. Use of the characteristic function or moment generating function is a very useful technique for answering these types of questions. Each distribution has a unique characteristic function (and moment generating function when it exists). Also, you can easily compute the moments of the distribution directly from the characteristic function or moment generating function without actually finding the distribution function. From mathgroup-adm at smc.vnet.net Fri Jul 22 01:55:04 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 949DC6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 01:55:04 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M6t5xW018324; Fri, 22 Jul 2011 01:55:05 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 95DC3FF006; Fri, 22 Jul 2011 01:55:05 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id C46DCFF004; Fri, 22 Jul 2011 01:55:03 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA20091 for mathgroup-newout; Fri, 22 Jul 2011 03:42:35 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA20086 for mathgroup-newsend; Fri, 22 Jul 2011 03:42:34 -0400 (EDT) Date: Fri, 22 Jul 2011 03:42:34 -0400 (EDT) Message-Id: <201107220742.DAA20086 at smc.vnet.net> From: Bob Hanlon <hanlonr at cox.net> Subject: [mg120428] Re: TransformedDistribution, for a sum of M iid variables To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.63616 Clear[distSN] distSN[1] = NormalDistribution[0, 1]; Assume that distSN[n_] = NormalDistribution[0, Sqrt[n]]; Proof by induction distSN[n + 1] == TransformedDistribution[ x + y, {Distributed[x, distSN[n]], Distributed[y, NormalDistribution[0, 1]]}] True More generally, Clear[distN] distN[1] = NormalDistribution[m, s]; Assume distN[n_] = NormalDistribution[n*m, Sqrt[n*s^2]]; Proof by induction distN[n + 1] == TransformedDistribution[ x + y, {Distributed[x, distN[n]], Distributed[y, NormalDistribution[m, s]]}] // ExpandAll True More general forms cannot be as proved as readily; however, the extensions are obvious. Clear[dist] dist[n_Integer?Positive] = NormalDistribution[Sum[m[k], {k, n}], Sqrt[Sum[s[k]^2, {k, n}]]]; dist[m_List, s_List] := NormalDistribution[Total[m], Norm[s]] /; Length[m] == Length[s]; For example, dist[4] NormalDistribution[m[1] + m[2] + m[3] + m[4], Sqrt[s[1]^2 + s[2]^2 + s[3]^2 + s[4]^2]] With[{n = RandomInteger[{10, 100}]}, Simplify[ dist[n] == dist[Table[m[k], {k, n}], Table[s[k], {k, n}]], Thread[Table[s[k], {k, n}] > 0]]] True Testing consistency with the simpler cases: With[{n = RandomInteger[{10, 100}]}, (dist[n] /. {m[_] -> m, s[_] -> s}) == distN[n]] True With[{n = RandomInteger[{10, 100}]}, (dist[n] /. {m[_] -> 0, s[_] -> 1}) == distSN[n]] True Bob Hanlon ---- paulvonhippel at yahoo <paulvonhippel at yahoo.com> wrote: ============= Using the TransformedDistribution function it is easy to show that the sum of two normal variables is normal, e.g., Input: TransformedDistribution[Z1+Z2,{Z1\ [Distributed]NormalDistribution[0,1],Z2\ [Distributed]NormalDistribution[0,1]}] Output: NormalDistribution[0, Sqrt[2]] Likewise it wouldn't be hard to show that the sum of 3 normal variables is normal, or 4. But how do I show that the sum of M normal variables is normal, where M is an arbitrary positive integer. I'm thinking I should use the Sum function inside TransformedDistribution, but I don't know how the notation would work. I see that there's a UniformSumDistribution function, but that's limited to uniform variables. Later I will want to do similar calculations for nonnormal distributions. Thanks for any pointers. -- Bob Hanlon From mathgroup-adm at smc.vnet.net Fri Jul 22 01:57:32 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id BAC6D6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 01:57:32 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6M6vYfk018561; Fri, 22 Jul 2011 01:57:34 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id CC029A8169; Fri, 22 Jul 2011 01:57:33 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id C1AAAFF006; Fri, 22 Jul 2011 01:57:31 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA20099 for mathgroup-newout; Fri, 22 Jul 2011 03:42:46 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA20094 for mathgroup-newsend; Fri, 22 Jul 2011 03:42:45 -0400 (EDT) Date: Fri, 22 Jul 2011 03:42:45 -0400 (EDT) Message-Id: <201107220742.DAA20094 at smc.vnet.net> From: Paul von Hippel <paulvonhippel at yahoo.com> Subject: [mg120429] Re: TransformedDistribution, for a sum of M iid variables References: <20110721225621.9H9BM.1153349.imail@eastrmwml34> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.64514 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_2000_2999 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, ECARD_KNOWN_DOMAINS 0, FROM_NAME_PHRASE 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_YAHOO 0, __HAS_MSGID 0, __INT_PROD_IPHONE 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Thanks for the neat proof. Sorry I wasn't clear about my goals. I want to include a sum of iid variables in a TransfornedDistribution, and then calculate the Mean and Variance of the distribution. The iid variables need not be normal, and the TrasformedDistribution will contain other variables besides the iid sum. Sent from my iPhone. Please excuse my brevity. On Jul 21, 2011, at 9:56 PM, Bob Hanlon <hanlonr at cox.net> wrote: > Clear[distSN] > > distSN[1] = NormalDistribution[0, 1]; > > Assume that > > distSN[n_] = NormalDistribution[0, Sqrt[n]]; > > Proof by induction > > distSN[n + 1] == > TransformedDistribution[ > x + y, {Distributed[x, distSN[n]], > Distributed[y, NormalDistribution[0, 1]]}] > > True > > More generally, > > Clear[distN] > > distN[1] = NormalDistribution[m, s]; > > Assume > > distN[n_] = NormalDistribution[n*m, Sqrt[n*s^2]]; > > Proof by induction > > distN[n + 1] == > TransformedDistribution[ > x + y, {Distributed[x, distN[n]], > Distributed[y, NormalDistribution[m, s]]}] // ExpandAll > > True > > More general forms cannot be as proved as readily; however, the extensions= are obvious. > > Clear[dist] > > dist[n_Integer?Positive] = > NormalDistribution[Sum[m[k], {k, n}], Sqrt[Sum[s[k]^2, {k, n}]]]; > > dist[m_List, s_List] := > > NormalDistribution[Total[m], Norm[s]] /; Length[m] == Length[s]; > > For example, > > dist[4] > > NormalDistribution[m[1] + m[2] + m[3] + m[4], > Sqrt[s[1]^2 + s[2]^2 + s[3]^2 + s[4]^2]] > > With[{n = RandomInteger[{10, 100}]}, > Simplify[ > dist[n] == dist[Table[m[k], {k, n}], Table[s[k], {k, n}]], > Thread[Table[s[k], {k, n}] > 0]]] > > True > > Testing consistency with the simpler cases: > > With[{n = RandomInteger[{10, 100}]}, > (dist[n] /. {m[_] -> m, s[_] -> s}) == distN[n]] > > True > > With[{n = RandomInteger[{10, 100}]}, > (dist[n] /. {m[_] -> 0, s[_] -> 1}) == distSN[n]] > > True > > > Bob Hanlon > > > > ---- paulvonhippel at yahoo <paulvonhippel at yahoo.com> wrote: > > ============= > Using the TransformedDistribution function it is easy to show that the > sum of two normal variables is normal, e.g., > > Input: > TransformedDistribution[Z1+Z2,{Z1\ > [Distributed]NormalDistribution[0,1],Z2\ > [Distributed]NormalDistribution[0,1]}] > > Output: > NormalDistribution[0, Sqrt[2]] > > > Likewise it wouldn't be hard to show that the sum of 3 normal > variables is normal, or 4. > > But how do I show that the sum of M normal variables is normal, where > M is an arbitrary positive integer. > > I'm thinking I should use the Sum function inside > TransformedDistribution, but I don't know how the notation would work. > I see that there's a UniformSumDistribution function, but that's > limited to uniform variables. > > Later I will want to do similar calculations for nonnormal > distributions. > > Thanks for any pointers. > > > -- > > Bob Hanlon > From mathgroup-adm at smc.vnet.net Fri Jul 22 17:52:13 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 730C36BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 17:52:13 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MMqEuo013006; Fri, 22 Jul 2011 17:52:14 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 839F4A8194; Fri, 22 Jul 2011 17:52:14 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id C49AEA815B; Fri, 22 Jul 2011 17:52:12 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28577 for mathgroup-newout; Fri, 22 Jul 2011 19:45:03 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28572 for mathgroup-newsend; Fri, 22 Jul 2011 19:45:03 -0400 (EDT) Date: Fri, 22 Jul 2011 19:45:03 -0400 (EDT) Message-Id: <201107222345.TAA28572 at smc.vnet.net> From: John Fultz <jfultz at wolfram.com> Subject: [mg120431] Re: How Can I Eliminate Line Wrapping When Using the Row Function Reply-To: jfultz at wolfram.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.224214 On Thu, 21 Jul 2011 21:06:54 -0400 (EDT), Gregory Lypny wrote: > Hello everyone, > > Sometimes when I use Row for four or five items, the result wraps over > two lines. How can I force the result to be displayed on one line? I > couldn't find an option for this in Documentation Centre. > > Gregory This is the intended behavior of Row. If you don't want word-wrapping, then you probably want a single row Grid[]. So, instead of doing Row[{items}], instead do Grid[{{items}}]. If Row is really doing everything else you want, then I suppose you could also do... ExpressionCell[Row[{items}], LineBreakWithin->False] Sincerely, John Fultz jfultz at wolfram.com User Interface Group Wolfram Research, Inc. From mathgroup-adm at smc.vnet.net Fri Jul 22 17:54:55 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 96D7E6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 17:54:55 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MMsu4L013243; Fri, 22 Jul 2011 17:54:56 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 92DA6BF4D0; Fri, 22 Jul 2011 17:54:56 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id EB8FCBF417; Fri, 22 Jul 2011 17:54:54 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28634 for mathgroup-newout; Fri, 22 Jul 2011 19:46:41 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28629 for mathgroup-newsend; Fri, 22 Jul 2011 19:46:39 -0400 (EDT) Date: Fri, 22 Jul 2011 19:46:39 -0400 (EDT) Message-Id: <201107222346.TAA28629 at smc.vnet.net> From: DC <b.gatessucks at gmail.com> Subject: [mg120440] Re: CDF limitations and unclear professional strategy Reply-To: comp.soft-sys.math.mathematica at googlegroups.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.224214 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ONE_WORD 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_10_99 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, SMALL_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __STOCK_PHRASE_7 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. Hi, once more I'm with you 100%. -Francesco From mathgroup-adm at smc.vnet.net Fri Jul 22 17:55:59 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 3EE186BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 17:55:59 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MMu0f0013903; Fri, 22 Jul 2011 17:56:00 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 2834FBF417; Fri, 22 Jul 2011 17:56:00 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 63140A8169; Fri, 22 Jul 2011 17:55:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28609 for mathgroup-newout; Fri, 22 Jul 2011 19:45:57 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28603 for mathgroup-newsend; Fri, 22 Jul 2011 19:45:56 -0400 (EDT) Date: Fri, 22 Jul 2011 19:45:56 -0400 (EDT) Message-Id: <201107222345.TAA28603 at smc.vnet.net> From: William Shaw <w.shaw at ucl.ac.uk> Subject: [mg120436] IMS 2012 To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.224518 You might like to know that the 2012 International Mathematica Symposium will be held at University College London in June 2012. The first announcement is at www.ims2012.org.uk Kind regards William William T. Shaw Chair, Mathematics and Computation of Risk Departments of Mathematics and Computer Science University College London w.shaw at ucl.ac.uk www.homepages.ucl.ac.uk/~ucahwts/ From mathgroup-adm at smc.vnet.net Fri Jul 22 17:58:50 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 66D636BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 17:58:50 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MMwpkL014075; Fri, 22 Jul 2011 17:58:51 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 6E64EA8169; Fri, 22 Jul 2011 17:58:51 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id EAAF5BF4BA; Fri, 22 Jul 2011 17:58:49 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28640 for mathgroup-newout; Fri, 22 Jul 2011 19:46:51 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28635 for mathgroup-newsend; Fri, 22 Jul 2011 19:46:50 -0400 (EDT) Date: Fri, 22 Jul 2011 19:46:50 -0400 (EDT) Message-Id: <201107222346.TAA28635 at smc.vnet.net> From: Heike Gramberg <heike.gramberg at gmail.com> Subject: [mg120441] Re: How Can I Eliminate Line Wrapping When Using the Row Function References: <201107220106.VAA16771 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.224518 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_400_499 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. The option ImageSize in Row dictates the total size of the row, so you could try setting that to a large enough value. Heike On 22 Jul 2011, at 02:06, Gregory Lypny wrote: > Hello everyone, > > Sometimes when I use Row for four or five items, the result wraps over two lines. How can I force the result to be displayed on one line? I couldn't find an option for this in Documentation Centre. > > Gregory > > From mathgroup-adm at smc.vnet.net Fri Jul 22 18:00:07 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 6E0E26BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:00:07 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MN081g014470; Fri, 22 Jul 2011 18:00:08 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 74734A8190; Fri, 22 Jul 2011 18:00:08 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id E6116A818F; Fri, 22 Jul 2011 18:00:06 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28615 for mathgroup-newout; Fri, 22 Jul 2011 19:46:08 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28610 for mathgroup-newsend; Fri, 22 Jul 2011 19:46:07 -0400 (EDT) Date: Fri, 22 Jul 2011 19:46:07 -0400 (EDT) Message-Id: <201107222346.TAA28610 at smc.vnet.net> From: Gregory Lypny <gregory.lypny at jmsb.concordia.ca> Subject: [mg120437] Preventing In-line Math Typesetting From Being Scaled Down in Text Cells To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.224518 Hi everyone, When I include fractions as inline math typesetting, they are scaled down to fit the effective line height of the cell. How can I prevent this or, I guess, make the line height automatically expand to accommodate the math? If my regular text in the cell is 12-point times, I'd like all math variables that are not subscripts or superscripts to be 12-point as well. Incidentally, other big typeset objects like matrices are not scaled down, or at least they down't appear to be. Sincerely, Gregory From mathgroup-adm at smc.vnet.net Fri Jul 22 18:02:19 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 6AA526BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:02:19 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MN2Kx5014999; Fri, 22 Jul 2011 18:02:20 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 58047A8194; Fri, 22 Jul 2011 18:02:20 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id A960FA818F; Fri, 22 Jul 2011 18:02:18 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28583 for mathgroup-newout; Fri, 22 Jul 2011 19:45:14 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28578 for mathgroup-newsend; Fri, 22 Jul 2011 19:45:13 -0400 (EDT) Date: Fri, 22 Jul 2011 19:45:13 -0400 (EDT) Message-Id: <201107222345.TAA28578 at smc.vnet.net> From: Gregory Lypny <gregory.lypny at videotron.ca> Subject: [mg120432] Re: How Can I Include a Button in a Manipulate References: <201107220107.VAA16785 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.225118 Hi Heike, Thank you. I'll certainly experiment with this one. Gregory On Fri, Jul 22, 2011, at 4:51 AM, Heike Gramberg wrote: > You could do something like > > Manipulate[Module[{p}, > q; p = RandomInteger[max, {height, width}]; > p // TableForm], > {{width, 3}, Range[8], SetterBar}, > {{height, 3}, Range[8], SetterBar}, > {{max, 4}, Range[10], SetterBar}, > {{q, False}, ControlType -> None}, > Control[Button["Regenerate", q = Not[q]]] > ] > > Heike > > On 22 Jul 2011, at 02:07, Gregory Lypny wrote: > >> Hello everyone, >> >> I have a Manipulate that generates a random integer or integers >> depending on the user's choice of parameters in a number of setter >> bars. I'd like to include a button in the Manipulate's output pane >> that allows the user to generate a new result by generating a new random >> number while keeping all of the parameters in the setter bar the same. >> Can that be done? >> >> >> Regards, >> >> Gregory >> > From mathgroup-adm at smc.vnet.net Fri Jul 22 18:02:49 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id C9D496BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:02:49 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MN2pDR015169; Fri, 22 Jul 2011 18:02:51 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 2BAD2A818F; Fri, 22 Jul 2011 18:02:51 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id ABB43A8169; Fri, 22 Jul 2011 18:02:49 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28628 for mathgroup-newout; Fri, 22 Jul 2011 19:46:29 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28623 for mathgroup-newsend; Fri, 22 Jul 2011 19:46:29 -0400 (EDT) Date: Fri, 22 Jul 2011 19:46:29 -0400 (EDT) Message-Id: <201107222346.TAA28623 at smc.vnet.net> From: paulvonhippel at yahoo <paulvonhippel at yahoo.com> Subject: [mg120439] Re: TransformedDistribution, for a sum of M iid variables References: <20110721225621.9H9BM.1153349.imail@eastrmwml34> <j0b9p4$jl1$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.225118 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_500_599 0, BODY_SIZE_7000_LESS 0, FROM_NAME_PHRASE 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_YAHOO 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. To clarify what I'm looking for, suppose I have the following distribution: TransformedDistribution[Z1+Sqrt[U/(n-1)]*Z2,{Z1\ [Distributed]NormalDistribution[0,1],Z2\ [Distributed]NormalDistribution[0,1],U\ [Distributed]ChiSquareDistribution[n-1]}] I want to replace Z2 with the average of M independent variables that are distributed like Z2. Or I might want to replace U with the average of M independent variables that are distributed like U. Is there a convenient way to do this? Thanks! From mathgroup-adm at smc.vnet.net Fri Jul 22 18:03:54 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 7488B6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:03:54 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MN3tYn015407; Fri, 22 Jul 2011 18:03:55 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id CB2E7A815B; Fri, 22 Jul 2011 18:03:55 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 608B1A813D; Fri, 22 Jul 2011 18:03:54 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28646 for mathgroup-newout; Fri, 22 Jul 2011 19:47:02 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28641 for mathgroup-newsend; Fri, 22 Jul 2011 19:47:01 -0400 (EDT) Date: Fri, 22 Jul 2011 19:47:01 -0400 (EDT) Message-Id: <201107222347.TAA28641 at smc.vnet.net> From: Heike Gramberg <heike.gramberg at gmail.com> Subject: [mg120442] Re: How Can I Include a Button in a Manipulate References: <201107220107.VAA16785 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.225416 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, BODY_SIZE_800_899 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. You could do something like Manipulate[Module[{p}, q; p = RandomInteger[max, {height, width}]; p // TableForm], {{width, 3}, Range[8], SetterBar}, {{height, 3}, Range[8], SetterBar}, {{max, 4}, Range[10], SetterBar}, {{q, False}, ControlType -> None}, Control[Button["Regenerate", q = Not[q]]] ] Heike On 22 Jul 2011, at 02:07, Gregory Lypny wrote: > Hello everyone, > > I have a Manipulate that generates a random integer or integers > depending on the user's choice of parameters in a number of setter > bars. I'd like to include a button in the Manipulate's output pane > that allows the user to generate a new result by generating a new random > number while keeping all of the parameters in the setter bar the same. > Can that be done? > > > Regards, > > Gregory > From mathgroup-adm at smc.vnet.net Fri Jul 22 18:06:42 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 79CAF6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:06:42 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MN6hst015719; Fri, 22 Jul 2011 18:06:43 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 9F698BF4BA; Fri, 22 Jul 2011 18:06:43 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id DC7BBBF417; Fri, 22 Jul 2011 18:06:39 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28654 for mathgroup-newout; Fri, 22 Jul 2011 19:47:13 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28649 for mathgroup-newsend; Fri, 22 Jul 2011 19:47:12 -0400 (EDT) Date: Fri, 22 Jul 2011 19:47:12 -0400 (EDT) Message-Id: <201107222347.TAA28649 at smc.vnet.net> From: Heike Gramberg <heike.gramberg at gmail.com> Subject: [mg120443] Re: ExampleData[{"Geometry3D", "Torus"}] References: <201107220106.VAA16736 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.230015 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, BODY_SIZE_900_999 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. I'm not familiar with Torus[] but another option might be to use RevolutionPlot3D, i.e. torus[r1_, r2_] := RevolutionPlot3D[{r1 + r2 Cos[t], 0, r2 Sin[t]}, {t, 0, 2 Pi}, Mesh -> False, PlotPoints -> 60, Boxed -> False, Axes -> False] torus[1, 0.5] Heike On 22 Jul 2011, at 02:06, Joseph O'Rourke wrote: > Thanks, Oliver. I know how to make a torus via ParametricPlot3D[], and by using the deprecated Torus[] function. I was wondering if ExampleData[] could be adjusted so that one would have the same control as with the old Torus[] function. The reason I wanted this is that the torus produced by ExampleData[] looks much nicer than that produced by Torus[]. Or, at least, I cannot get the latter to look as smooth when rendered as the former. But maybe I should just use ParametricPlot3D[] with Mehs->None as you suggest. Thanks again for your attention. > From mathgroup-adm at smc.vnet.net Fri Jul 22 18:07:58 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id C961D6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:07:58 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MN80V2015809; Fri, 22 Jul 2011 18:08:00 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 24E9CA813D; Fri, 22 Jul 2011 18:08:00 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 7A9DBFF003; Fri, 22 Jul 2011 18:07:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28662 for mathgroup-newout; Fri, 22 Jul 2011 19:47:24 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28657 for mathgroup-newsend; Fri, 22 Jul 2011 19:47:23 -0400 (EDT) Date: Fri, 22 Jul 2011 19:47:23 -0400 (EDT) Message-Id: <201107222347.TAA28657 at smc.vnet.net> From: Yves Klett <yves.klett at googlemail.com> Subject: [mg120444] Re: Producing an image that only contains its interior and boundary but, no exterior. To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.230015 Not really sure what you are looking for, but perhaps this can help: g = Graphics3D[Cuboid[], SphericalRegion -> True] Show[g, Method -> {"ShrinkWrap" -> True}] I presume this is similar to right-clicking on a graphic and choosing "Trim Bounding Box" The shrinkwrapping thing can sometimes affect the interactive performance, i.e. I had cases where rotation via mouse becomes sluggish, perhaps not surprisingly so. Regards, Yves Am 22.07.2011 03:11, schrieb Gilmar Rodriguez-pierluissi: > This is an old issue mentioned by the late Jens-Peer Kuska in: > http://forums.wolfram.com/mathgroup/archive/2006/Mar/msg00037.html > How can a user produce a graphic image that includes only its interior and boundary but, > without the exterior. This would facilitate embedding an image within another without > having to waste time having to eliminate the annoying edges. Thank you! > Gilmar Rodriguez-Pierluissi From mathgroup-adm at smc.vnet.net Fri Jul 22 18:10:46 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 53F0F6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:10:46 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MNAl2Q027008; Fri, 22 Jul 2011 18:10:47 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 52D67A813D; Fri, 22 Jul 2011 18:10:47 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 85431BF417; Fri, 22 Jul 2011 18:10:45 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28672 for mathgroup-newout; Fri, 22 Jul 2011 19:47:35 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28666 for mathgroup-newsend; Fri, 22 Jul 2011 19:47:34 -0400 (EDT) Date: Fri, 22 Jul 2011 19:47:34 -0400 (EDT) Message-Id: <201107222347.TAA28666 at smc.vnet.net> From: "Kevin J. McCann" <kjm at KevinMcCann.com> Subject: [mg120445] Re: mandelbrot in version 7 & Ruskeepaa version 3 References: <j0aivf$ghq$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.230015 Two things. The error is due to your argument x+Iy in the call to mandelbrot. You need a space between the I and the y, i.e. x+I y. Second, you have a semicolon at the end of the DensityPlot call; this prevents the plot from being shown. Kevin On 7/21/2011 9:15 PM, DaleJenk wrote: > I bought Mathematica 7 Home Edition last year. I'm trying to plot the > Mandelbrot Set following the instructions in Ruskeepaa's Mathematica > Navigator version 3. I'm getting an error message. > > Here's what I am introducing: > > mandelbrot = Compile[{{c,_Complex}}, > Module[{z=0+0I, n=0}, While[Abs[z]<2&& n<50, z=z^2+c; n++]; n]]; > > DensityPlot[mandelbrot[x+Iy], {x,-2,1},{y,-1.5,1.5}, PlotPoints->200, > Mesh->False, FrameTicks->{{-2,-1,0,1},{-1,0,1}}]; //Timing > > I get the message: > > CompiledFunction::cfsa: > Argument -1.99998 + Iy at position 1 should be a machine-size complex > number. > > Where am I going wrong? > > Thanks. > > > From mathgroup-adm at smc.vnet.net Fri Jul 22 18:12:16 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id A45086BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:12:16 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MNCHwS029564; Fri, 22 Jul 2011 18:12:17 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id D1706A8190; Fri, 22 Jul 2011 18:12:17 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 215D3BF4B9; Fri, 22 Jul 2011 18:12:16 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28622 for mathgroup-newout; Fri, 22 Jul 2011 19:46:18 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28617 for mathgroup-newsend; Fri, 22 Jul 2011 19:46:18 -0400 (EDT) Date: Fri, 22 Jul 2011 19:46:18 -0400 (EDT) Message-Id: <201107222346.TAA28617 at smc.vnet.net> From: Curtis Osterhoudt <cfo at lanl.gov> Subject: [mg120438] Re: mandelbrot in version 7 & Ruskeepaa version 3 Reply-To: cfo at lanl.gov References: <201107220109.VAA16854 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.230015 Looks as though the "Iy" in the code needs to be I (that's a capital aye) times why: I*y. If there wasn't a space in the original code, Mathematica interprets it as a new, two-character symbol, not the product of the imaginary basis times y. Hope that helps! On Thursday, July 21, 2011 19:09:03 DaleJenk wrote: > I bought Mathematica 7 Home Edition last year. I'm trying to plot the > Mandelbrot Set following the instructions in Ruskeepaa's Mathematica > Navigator version 3. I'm getting an error message. > > Here's what I am introducing: > > mandelbrot = Compile[{{c,_Complex}}, > Module[{z=0+0I, n=0}, While[Abs[z]<2 && n<50, z=z^2+c; n++]; n]]; > > DensityPlot[mandelbrot[x+Iy], {x,-2,1},{y,-1.5,1.5}, PlotPoints->200, > Mesh->False, FrameTicks->{{-2,-1,0,1},{-1,0,1}}]; //Timing > > I get the message: > > CompiledFunction::cfsa: > Argument -1.99998 + Iy at position 1 should be a machine-size complex > number. > > Where am I going wrong? > > Thanks. > > > > From mathgroup-adm at smc.vnet.net Fri Jul 22 18:14:57 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 89B206BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:14:57 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MNEwo1030519; Fri, 22 Jul 2011 18:14:58 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 76C1ABF4D2; Fri, 22 Jul 2011 18:14:58 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 8BD63BF4BA; Fri, 22 Jul 2011 18:14:56 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28691 for mathgroup-newout; Fri, 22 Jul 2011 19:47:56 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28685 for mathgroup-newsend; Fri, 22 Jul 2011 19:47:56 -0400 (EDT) Date: Fri, 22 Jul 2011 19:47:56 -0400 (EDT) Message-Id: <201107222347.TAA28685 at smc.vnet.net> From: =?iso-8859-1?Q?S=F6nmezer at smc.vnet.net, _D=2E?= <d.sonmezer at student.tue.nl> Subject: [mg120447] Code is not working... To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.230314 Hello, I am in trouble with below codes: I run this code but Program is not finsh evertime It is running and running... Could you possible help me. dim = Dimensions[image] r = 1; k = 1; n = 10; cost = Function[{positionValues, neighborValues}, First[neighborValues] == 1]; (* Image that only contains the value zero *) imageNew = Table[0, {i, 1, dim[[1]]}, {j, 1, dim[[2]]}]; (* Walk through the rows of the image *) While[r < dim[[1]], (* Walk through the columns of the image*) k = 1; While[k < dim[[2]], (* Find a white pixel*) If[imgfilter[[r, k]] == 1, (* Proceed RegionGrowing and give them a identical value by \ multiplying it with n *) region = RegionGrowing[{imgfilter}, {{r, k}}, 1, cost]*n; (* Add the identical cell to imageNew *) imageNew = imageNew + region; (* Change n, so each cell has a different value *) n = n + 2; (* Take the cell out of the original image, so he will stop when there is no white pixel anymore *) imageFilled = imgfilter - region; ]; k++; ]; r++; ]; From mathgroup-adm at smc.vnet.net Fri Jul 22 18:16:10 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 1DDDF6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:16:10 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MNGBe3031528; Fri, 22 Jul 2011 18:16:11 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 64A2CA8169; Fri, 22 Jul 2011 18:16:11 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 7B875A818F; Fri, 22 Jul 2011 18:16:09 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28602 for mathgroup-newout; Fri, 22 Jul 2011 19:45:46 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28597 for mathgroup-newsend; Fri, 22 Jul 2011 19:45:45 -0400 (EDT) Date: Fri, 22 Jul 2011 19:45:45 -0400 (EDT) Message-Id: <201107222345.TAA28597 at smc.vnet.net> From: Vince Virgilio <blueschi at gmail.com> Subject: [mg120435] Re: CDF limitations and unclear professional strategy Reply-To: comp.soft-sys.math.mathematica at googlegroups.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.230314 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1200_1299 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __INT_PROD_COMP 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. No complaints to WRI. And I am very glad that I can now create nbp/cdfs locally, without going through WRI's website. (Aside: This CDF player release confuses me a bit. Was the CDF player available before this release only a reader, without interactivity?) Nonetheless, dittos to P. Fonseca. The whole data management scheme stymies me. Some recent threads touch on this. Notebooks just aren't convenient containers for large amounts of data. Say, tens of MBs? Certainly the Notebook Save's become lethargic. And for much larger data volumes, I notice latencies in the Front End's refresh of the notebook. That might have been while scrolling, though not displaying large imagery. But that was a while ago. I've since stopped trying to keep so much data in notebooks, and am now trimming my problems/presentations to fit the format's obvious capabilities. My nagging suspicion is there are certain inefficiencies and limitations as sociated with Notebooks' encoding in text instead of binary. In a way, isn't Mathematica still character-based because of this? (Even though it eventually translates to something else represented by those characters, a la a universal computer.) Vince Virgilio From mathgroup-adm at smc.vnet.net Fri Jul 22 18:18:52 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id DCAD56BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:18:51 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MNIq1g000467; Fri, 22 Jul 2011 18:18:52 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 94AF2BF4BA; Fri, 22 Jul 2011 18:18:52 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id AD05DBF4B9; Fri, 22 Jul 2011 18:18:50 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28590 for mathgroup-newout; Fri, 22 Jul 2011 19:45:25 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28585 for mathgroup-newsend; Fri, 22 Jul 2011 19:45:24 -0400 (EDT) Date: Fri, 22 Jul 2011 19:45:24 -0400 (EDT) Message-Id: <201107222345.TAA28585 at smc.vnet.net> From: Gregory Lypny <gregory.lypny at videotron.ca> Subject: [mg120433] Re: How Can I Include a Button in a Manipulate References: <201107220107.VAA16785 at smc.vnet.net> <4E2910D8.9080302 at tue.nl> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.231214 Hello Fred, Good point, and that appears to have come up in some of the other responses. I use Manipulate only because I am most familiar with it. Now it looks like it's time to work through the tutorials on some of the lower level functions! Gregory On Fri, Jul 22, 2011, at 1:55 AM, Fred Simons wrote: > Hi Gregory, > > Not an answer, just a question (or suggestion): why do you use Manipulate? My experience is that for the things you seem to want to do you are much more flexible when you use the functions one level lower than Manipulate: DynamicModule for the interactivity and Grid for the layout. You can place the button in any field of the grid you like. > > Best wishes, > > Fred > > Op 22-7-2011 3:07, Gregory Lypny schreef: >> Hello everyone, >> >> I have a Manipulate that generates a random integer or integers >> depending on the user's choice of parameters in a number of setter >> bars. I'd like to include a button in the Manipulate's output pane >> that allows the user to generate a new result by generating a new random >> number while keeping all of the parameters in the setter bar the same. >> Can that be done? >> >> >> Regards, >> >> Gregory >> >> >> >> ----- >> Geen virus gevonden in dit bericht. >> Gecontroleerd door AVG - www.avg.com >> Versie: 10.0.1390 / Virusdatabase: 1518/3778 - datum van uitgifte: 07/21/11 >> >> >> > From mathgroup-adm at smc.vnet.net Fri Jul 22 18:20:10 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 129C06BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:20:10 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MNKBt0003393; Fri, 22 Jul 2011 18:20:11 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 4DD7FBF417; Fri, 22 Jul 2011 18:20:11 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id A54A4A818F; Fri, 22 Jul 2011 18:20:09 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28683 for mathgroup-newout; Fri, 22 Jul 2011 19:47:45 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28676 for mathgroup-newsend; Fri, 22 Jul 2011 19:47:45 -0400 (EDT) Date: Fri, 22 Jul 2011 19:47:45 -0400 (EDT) Message-Id: <201107222347.TAA28676 at smc.vnet.net> From: "DaleJenk" <dale.jenkins8 at deletegooglemail.com> Subject: [mg120446] Re: mandelbrot in version 7 & Ruskeepaa version 3 References: <j0aivf$ghq$1 at smc.vnet.net> <j0b9l4$jjj$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.230615 Many thanks - to you, and to the people who replied to me privately. "Oleksandr Rasputinov" <oleksandr_rasputinov at hmamail.com> wrote in message news:j0b9l4$jjj$1 at smc.vnet.net... > There is a space missing between I and y in the expression mandelbrot[x + > Iy] (should be mandelbrot[x + I y]). Also, you should omit the semicolon > after DensityPlot, otherwise the plot will not be shown. > > Incidentally, tabulating the values and then plotting them with ArrayPlot > is faster for this example than using DensityPlot. That is, > > ArrayPlot@Table[ > mandelbrot[x + I y], > {y, -1.5, 1.5, 0.005}, {x, -2.0, 1.0, 0.005} > ] > > On Fri, 22 Jul 2011 02:15:27 +0100, DaleJenk > <dale.jenkins8 at deletegooglemail.com> wrote: > >> I bought Mathematica 7 Home Edition last year. I'm trying to plot the >> Mandelbrot Set following the instructions in Ruskeepaa's Mathematica >> Navigator version 3. I'm getting an error message. >> >> Here's what I am introducing: >> >> mandelbrot = Compile[{{c,_Complex}}, >> Module[{z=0+0I, n=0}, While[Abs[z]<2 && n<50, z=z^2+c; n++]; n]]; >> >> DensityPlot[mandelbrot[x+Iy], {x,-2,1},{y,-1.5,1.5}, PlotPoints->200, >> Mesh->False, FrameTicks->{{-2,-1,0,1},{-1,0,1}}]; //Timing >> >> I get the message: >> >> CompiledFunction::cfsa: >> Argument -1.99998 + Iy at position 1 should be a machine-size complex >> number. >> >> Where am I going wrong? >> >> Thanks. >> > From mathgroup-adm at smc.vnet.net Fri Jul 22 18:22:00 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id D13D76BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:22:00 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MNM2pF004661; Fri, 22 Jul 2011 18:22:02 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 1D64ABF4D7; Fri, 22 Jul 2011 18:22:02 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 2CC0AA813D; Fri, 22 Jul 2011 18:22:00 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28530 for mathgroup-newout; Fri, 22 Jul 2011 19:44:52 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28525 for mathgroup-newsend; Fri, 22 Jul 2011 19:44:52 -0400 (EDT) Date: Fri, 22 Jul 2011 19:44:52 -0400 (EDT) Message-Id: <201107222344.TAA28525 at smc.vnet.net> From: DANA DELOUIS <dana.del at gmail.com> Subject: [mg120430] Re: FinancialData still broken To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.231214 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ALLCAPS 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_2000_2999 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, ECARD_KNOWN_DOMAINS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __C230066_P5 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __LINES_OF_YELLING 0, __MIME_TEXT_ONLY 0, __PHISH_SPEAR_STRUCTURE_2 0, __SANE_MSGID 0, __STOCK_PHRASE_6 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. ...> {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8... Hi. This function has lots of problems. In addition to the problems you point out, here's a slightly different view. Sometimes the Price, and Latest Price match. Other times, the Price is corrupt, but the latest price is correct, and sometimes it's the other way around. Sometimes the CIK codes or Exchange are missing, etc. Other issues are bugs in Option pricing, etc. I really hope they fix this soon, but I guess they never issue bug fixes. stocks={"ACEIX","FCNTX","JACNX","JANFX","JANWX","JMSCX","JNGIX","JNGLX", "JNMCX=94, "JNOSX","JNSGX","JNSTX","PTTAX","RGACX","STRFX=94}; Transpose[ { Map[FinancialData[#,"Price"]&,stocks], Map[FinancialData[#,"LatestTrade"]&,stocks], Map[FinancialData[#,"CIK"]&,stocks], Map[FinancialData[#,"Company"]&,stocks] }][[;;6]] < Just the first 6 for posting < Looks better in MatrixForm, or something similar...> {5.0324*10^8,{Missing[NotAvailable],5.0324*10^8},0000080832,Van Kampen Equity Income Fund A} {5.0311*10^8,{{2011,7,20,17,11,0.},72.17},0000024238,Fidelity Contra Fund} {13.97,{{2011,7,20,17,50,0.},13.97},0000277751,Janus Contrarian Fund D Shares} {5.0324*10^8,{{2001,12,22,20,42,0.},5.0324*10^8},0000277751,Janus Flexible Bond Fund D Shar} {5.0324*10^8,{{2011,7,20,18,24,0.},46.74},0000277751,Janus Worldwide Fund D Shares} {12.48,{{2011,7,20,17,51,0.},12.48},Missing[NotAvailable],Janus Smart Portfolio Conservat} = = = = = = = = = = Dana DeLouis $Version 8.0 for Mac OS X x86 (64-bit) (November 6, 2010) On Jul 21, 5:47 am, DrMajorBob <btre... at austin.rr.com> wrote: > Erroneous prices are randomly returned: > > FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", > "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", > "PTTAX", "RGACX", "STRFX"} > > {8.81, 72.4, 14., 10.64, 46.49, 12.48, > 5.03202*10^8, 26.48, 23.72, 45.35, 12.48, > 5.03241*10^8, 11.04, 31.44, 32.47} > > FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", > "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", > "PTTAX", "RGACX", "STRFX"} > > {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8, > 5.03168*10^8, 32.61, 26.48, 23.72, 5.03168*10^8, > 5.03168*10^8, 3.1, 11.04, 5.03241*10^8, 32.47} > > Bobby > > -- > DrMajor... at yahoo.com From mathgroup-adm at smc.vnet.net Fri Jul 22 18:22:51 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id BD5EA6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 22 Jul 2011 18:22:51 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6MNMqN5004786; Fri, 22 Jul 2011 18:22:52 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id A0407BF4B9; Fri, 22 Jul 2011 18:22:52 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id C12D5BF417; Fri, 22 Jul 2011 18:22:50 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28596 for mathgroup-newout; Fri, 22 Jul 2011 19:45:35 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA28591 for mathgroup-newsend; Fri, 22 Jul 2011 19:45:35 -0400 (EDT) Date: Fri, 22 Jul 2011 19:45:35 -0400 (EDT) Message-Id: <201107222345.TAA28591 at smc.vnet.net> From: Gregory Lypny <gregory.lypny at videotron.ca> Subject: [mg120434] Re: How Can I Include a Button in a Manipulate References: <5165123.71643.1311294303544.JavaMail.root@m06> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.22.231214 Thank you, David. I will check it out. Where can I find the Presentations application? Gregory On Thu, Jul 21, 2011, at 8:59 PM, David Park wrote: > Gregory, > > I'm not certain how easy it is to do with Manipulate, but it is certainly > possible to do it with a custom dynamic display. I find custom dynamic > displays much easier to write because you can format them any way you wish > without having to override defaults. > > The Presentations application, in the PlaneGeometry section, has a tutorial > that shows how to write custom dynamics, including one example with a button > that performs an action on the displayed dynamic. > > The trick is to think of primary dynamic variables (operated by controls) > and secondary dynamic variables that depend on the primary variables. Write > a routine, or routines, that calculate the secondary variables from the > primary variables. Invoke these by using the second argument in the Dynamic > statement. The random number could be an initially set primary variable. The > button could then regenerate it and recalculate all the secondary variables. > > > David Park > djmpark at comcast.net > http://home.comcast.net/~djmpark/ > > > > > From: Gregory Lypny [mailto:gregory.lypny at videotron.ca] > > > Hello everyone, > > I have a Manipulate that generates a random integer or integers > depending on the user's choice of parameters in a number of setter > bars. I'd like to include a button in the Manipulate's output pane > that allows the user to generate a new result by generating a new random > number while keeping all of the parameters in the setter bar the same. > Can that be done? > > > Regards, > > Gregory > From mathgroup-adm at smc.vnet.net Sat Jul 23 00:35:53 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 076216BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sat, 23 Jul 2011 00:35:52 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6N5ZrM0009440; Sat, 23 Jul 2011 00:35:54 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id CBA00A8195; Sat, 23 Jul 2011 00:35:53 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 298C9A818D; Sat, 23 Jul 2011 00:35:52 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id CAA01708 for mathgroup-newout; Sat, 23 Jul 2011 02:29:21 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id CAA01702 for mathgroup-newsend; Sat, 23 Jul 2011 02:29:20 -0400 (EDT) Date: Sat, 23 Jul 2011 02:29:20 -0400 (EDT) Message-Id: <201107230629.CAA01702 at smc.vnet.net> From: "Scot T. Martin" <smartin at seas.harvard.edu> Subject: [mg120450] call Fortran subroutine from Mathematica // use NETLink and DLL To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.23.52414 This post explains how to call a Fortran subroutine as a DLL from Mathematica. I don't think the hints in this post exist in explicit form in the Wolfram documentation or in the MathArchive, at least so far as I could find. There is information in a post from Wolfram for how to use Mathlink via C wrappers to get to Fortran subroutines (version 3 of Mathematica? http://library.wolfram.com/infocenter/TechNotes/174/). *BUT* I think since the introduction of NETLink into Mathematica (version 6?), the matter is now much more straightforward, at least in a Windows environment. The purpose of this post is therefore to a future user who might want to follow what I have done. >From Windows7, 64-bit, and using the gnu compiler (http://gcc.gnu.org/wiki/GFortranUsage), here is the trace of the CMD commands: C:\Demo>dir 22-Jul-11 21:16 336 SumAndDifference.f90 C:\Demo>more SumAndDifference.f90 subroutine sum_and_difference(i,j,resultArray) implicit none integer*4, intent (in) :: i integer*4, intent (in) :: j integer*4, dimension(2), intent (out) :: resultArray resultArray(1) = i + j resultArray(2) = i - j return end subroutine sum_and_difference C:\Demo>gfortran -c SumAndDifference.f90 C:\Demo>gfortran -s -shared -mrtd -o SumAndDifference.dll SumAndDifference. o C:\Demo>dir 22-Jul-11 21:21 12,800 SumAndDifference.dll 22-Jul-11 21:16 336 SumAndDifference.f90 22-Jul-11 21:20 429 SumAndDifference.o Now follows the Mathematica part: In[1]:= Needs["NETLink`"] In[2]:= SetDirectory@NotebookDirectory[] Out[2]= "C:\\MyFortran" In[3]:= $pathToDLL = FileNameJoin[{Directory[], "SumAndDifference.dll"}] Out[3]= "C:\\MyFortran\\SumAndDifference.dll" [To understand below, read: http://www.wolfram.com/learningcenter/tutorialcollection/NETLinkUserGuide/ ] [Note addition of "_" to "sum_and_difference" that is done by compiler.] In[4]:= SumAndDifference = DefineDLLFunction["sum_and_difference_", $pathToDLL, "void", {"Int32*", "Int32*", "Int32[]"}] In[5]:= results = MakeNETObject[{0, 0}, "System.Int32[]"] In[6]:= SumAndDifference[10, 20, results] In[7]:= NETObjectToExpression@results Out[7]= {30, -10} From mathgroup-adm at smc.vnet.net Sat Jul 23 00:36:56 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 951546BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sat, 23 Jul 2011 00:36:56 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6N5av2R009502; Sat, 23 Jul 2011 00:36:57 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id BD628FF004; Sat, 23 Jul 2011 00:36:57 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 4A43BA8195; Sat, 23 Jul 2011 00:36:56 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id CAA01701 for mathgroup-newout; Sat, 23 Jul 2011 02:29:10 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id CAA01696 for mathgroup-newsend; Sat, 23 Jul 2011 02:29:09 -0400 (EDT) Date: Sat, 23 Jul 2011 02:29:09 -0400 (EDT) Message-Id: <201107230629.CAA01696 at smc.vnet.net> From: James Stein <mathgroup at stein.org> Subject: [mg120449] Re: FinancialData still broken References: <201107222344.TAA28525 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.23.52414 DANA DELOUIS wrote: I really hope they fix this soon, but I guess they never issue bug fixes. Are these bugs in Mathematica, or bugs in Yahoo? FWIW, I do not see the bug reported by the OP (DrMajorBob). On Fri, Jul 22, 2011 at 4:44 PM, DANA DELOUIS <dana.del at gmail.com> wrote: > ...> {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8... > > Hi. This function has lots of problems. > In addition to the problems you point out, here's a slightly different > view. > Sometimes the Price, and Latest Price match. > Other times, the Price is corrupt, but the latest price is correct, and > sometimes it's the other way around. > Sometimes the CIK codes or Exchange are missing, etc. > Other issues are bugs in Option pricing, etc. > I really hope they fix this soon, but I guess they never issue bug fixes. > > > stocks={"ACEIX","FCNTX","JACNX","JANFX","JANWX","JMSCX","JNGIX","JNGLX", > "JNMCX=94, > "JNOSX","JNSGX","JNSTX","PTTAX","RGACX","STRFX=94}; > > Transpose[ > { > Map[FinancialData[#,"Price"]&,stocks], > Map[FinancialData[#,"LatestTrade"]&,stocks], > Map[FinancialData[#,"CIK"]&,stocks], > Map[FinancialData[#,"Company"]&,stocks] > }][[;;6]] > > < Just the first 6 for posting > < Looks better in MatrixForm, or something similar...> > > {5.0324*10^8,{Missing[NotAvailable],5.0324*10^8},0000080832,Van Kampen > Equity Income Fund A} > {5.0311*10^8,{{2011,7,20,17,11,0.},72.17},0000024238,Fidelity Contra Fund} > {13.97,{{2011,7,20,17,50,0.},13.97},0000277751,Janus Contrarian Fund D > Shares} > {5.0324*10^8,{{2001,12,22,20,42,0.},5.0324*10^8},0000277751,Janus Flexible > Bond Fund D Shar} > {5.0324*10^8,{{2011,7,20,18,24,0.},46.74},0000277751,Janus Worldwide Fund D > Shares} > {12.48,{{2011,7,20,17,51,0.},12.48},Missing[NotAvailable],Janus Smart > Portfolio Conservat} > > = = = = = = = = = = > Dana DeLouis > $Version > 8.0 for Mac OS X x86 (64-bit) (November 6, 2010) > > > On Jul 21, 5:47 am, DrMajorBob <btre... at austin.rr.com> wrote: > > Erroneous prices are randomly returned: > > > > FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", > > "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", > > "PTTAX", "RGACX", "STRFX"} > > > > {8.81, 72.4, 14., 10.64, 46.49, 12.48, > > 5.03202*10^8, 26.48, 23.72, 45.35, 12.48, > > 5.03241*10^8, 11.04, 31.44, 32.47} > > > > FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", > > "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", > > "PTTAX", "RGACX", "STRFX"} > > > > {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8, > > 5.03168*10^8, 32.61, 26.48, 23.72, 5.03168*10^8, > > 5.03168*10^8, 3.1, 11.04, 5.03241*10^8, 32.47} > > > > Bobby > > > > -- > > DrMajor... at yahoo.com > > > > From mathgroup-adm at smc.vnet.net Sat Jul 23 00:38:44 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 354806BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sat, 23 Jul 2011 00:38:44 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6N5cjLQ009604; Sat, 23 Jul 2011 00:38:45 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 177C8A8195; Sat, 23 Jul 2011 00:38:45 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 5E268A8194; Sat, 23 Jul 2011 00:38:43 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id CAA01694 for mathgroup-newout; Sat, 23 Jul 2011 02:28:59 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id CAA01688 for mathgroup-newsend; Sat, 23 Jul 2011 02:28:58 -0400 (EDT) Date: Sat, 23 Jul 2011 02:28:58 -0400 (EDT) Message-Id: <201107230628.CAA01688 at smc.vnet.net> From: DrMajorBob <btreat1 at austin.rr.com> Subject: [mg120448] Re: FinancialData still broken Reply-To: drmajorbob at yahoo.com References: <201107222344.TAA28525 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.23.53022 I'm used to some of these problems, and I wrote code to try something else when Missing comes back. This is the first time I've seen prices on the order of 5 x 10^8. And so... I've coded an infinite loop to call over and over (on each stock) until I get a price less than 10^8. I may never get rid of that kludge, since it doesn't hurt anything unless it's TRULY infinite, or semi-infinite, if you will. So far, the error seems truly random, so it only takes an extra call or two to get past it. I don't think there's a problem in Mathematica on our machines. It's probably a problem at the curated database end of things, and if so, there couldn't be a bug fix. Bobby On Fri, 22 Jul 2011 18:44:52 -0500, DANA DELOUIS <dana.del at gmail.com> wrote: > ...> {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8... > > Hi. This function has lots of problems. > In addition to the problems you point out, here's a slightly different > view. > Sometimes the Price, and Latest Price match. > Other times, the Price is corrupt, but the latest price is correct, and > sometimes it's the other way around. > Sometimes the CIK codes or Exchange are missing, etc. > Other issues are bugs in Option pricing, etc. > I really hope they fix this soon, but I guess they never issue bug fixes. > > > stocks={"ACEIX","FCNTX","JACNX","JANFX","JANWX","JMSCX","JNGIX","JNGLX", > "JNMCX=94, > "JNOSX","JNSGX","JNSTX","PTTAX","RGACX","STRFX=94}; > > Transpose[ > { > Map[FinancialData[#,"Price"]&,stocks], > Map[FinancialData[#,"LatestTrade"]&,stocks], > Map[FinancialData[#,"CIK"]&,stocks], > Map[FinancialData[#,"Company"]&,stocks] > }][[;;6]] > > < Just the first 6 for posting > < Looks better in MatrixForm, or something similar...> > > {5.0324*10^8,{Missing[NotAvailable],5.0324*10^8},0000080832,Van Kampen > Equity Income Fund A} > {5.0311*10^8,{{2011,7,20,17,11,0.},72.17},0000024238,Fidelity Contra > Fund} > {13.97,{{2011,7,20,17,50,0.},13.97},0000277751,Janus Contrarian Fund D > Shares} > {5.0324*10^8,{{2001,12,22,20,42,0.},5.0324*10^8},0000277751,Janus > Flexible Bond Fund D Shar} > {5.0324*10^8,{{2011,7,20,18,24,0.},46.74},0000277751,Janus Worldwide > Fund D Shares} > {12.48,{{2011,7,20,17,51,0.},12.48},Missing[NotAvailable],Janus Smart > Portfolio Conservat} > > = = = = = = = = = = > Dana DeLouis > $Version > 8.0 for Mac OS X x86 (64-bit) (November 6, 2010) > > > On Jul 21, 5:47 am, DrMajorBob <btre... at austin.rr.com> wrote: >> Erroneous prices are randomly returned: >> >> FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", >> "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", >> "PTTAX", "RGACX", "STRFX"} >> >> {8.81, 72.4, 14., 10.64, 46.49, 12.48, >> 5.03202*10^8, 26.48, 23.72, 45.35, 12.48, >> 5.03241*10^8, 11.04, 31.44, 32.47} >> >> FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", >> "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", >> "PTTAX", "RGACX", "STRFX"} >> >> {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8, >> 5.03168*10^8, 32.61, 26.48, 23.72, 5.03168*10^8, >> 5.03168*10^8, 3.1, 11.04, 5.03241*10^8, 32.47} >> >> Bobby >> >> -- >> DrMajor... at yahoo.com > > > -- DrMajorBob at yahoo.com From mathgroup-adm at smc.vnet.net Sat Jul 23 18:00:20 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id A8A2E6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sat, 23 Jul 2011 18:00:20 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6NN0LQd007468; Sat, 23 Jul 2011 18:00:21 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 49CD1A8158; Sat, 23 Jul 2011 18:00:21 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id CF891A813D; Sat, 23 Jul 2011 18:00:19 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08684 for mathgroup-newout; Sat, 23 Jul 2011 19:53:12 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08679 for mathgroup-newsend; Sat, 23 Jul 2011 19:53:12 -0400 (EDT) Date: Sat, 23 Jul 2011 19:53:12 -0400 (EDT) Message-Id: <201107232353.TAA08679 at smc.vnet.net> From: Markus <markus.seywerd at seywerd.com> Subject: [mg120453] CDF Files Break when being mailed or uploaded To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.23.224516 Hi I have created a Computable Document File with a Barchart. When I transfer the file to a machine using a flash drive or over the office network the receiver can read the file with the CDF reader and everything looks good. However if I email or ftp the file to another location the barchart is broken. Does anyone have any ideas? From mathgroup-adm at smc.vnet.net Sat Jul 23 18:00:56 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 1B12D6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sat, 23 Jul 2011 18:00:56 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6NN0rfn007535; Sat, 23 Jul 2011 18:00:53 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 6056EA813D; Sat, 23 Jul 2011 18:00:53 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 68D8BFF003; Sat, 23 Jul 2011 18:00:48 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08690 for mathgroup-newout; Sat, 23 Jul 2011 19:53:23 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08685 for mathgroup-newsend; Sat, 23 Jul 2011 19:53:22 -0400 (EDT) Date: Sat, 23 Jul 2011 19:53:22 -0400 (EDT) Message-Id: <201107232353.TAA08685 at smc.vnet.net> From: Heike Gramberg <heike.gramberg at gmail.com> Subject: [mg120454] Re: Code is not working... References: <201107222347.TAA28685 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.23.224516 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1400_1499 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __CP_MEDIA_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. If you want any useful help you'll probably need to give a bit more information. For example, what are image, RegionGrowing and imgfilter? And what is the function of imageFilled (it doesn't seem to do anything at the moment)? Heike. On 23 Jul 2011, at 00:47, =?iso-8859-1?Q?S=F6nmezer at smc.vnet.net wrote: > > Hello, > > I am in trouble with below codes: > > I run this code but Program is not finsh evertime It is running and running... > Could you possible help me. > > dim = Dimensions[image] > r = 1; > k = 1; > n = 10; > cost = Function[{positionValues, neighborValues}, > First[neighborValues] == 1]; > > (* Image that only contains the value zero *) > imageNew = Table[0, {i, 1, dim[[1]]}, {j, 1, dim[[2]]}]; > > (* Walk through the rows of the image *) > While[r < dim[[1]], > (* Walk through the columns of the image*) > k = 1; > While[k < dim[[2]], > (* Find a white pixel*) > If[imgfilter[[r, k]] == 1, > (* Proceed RegionGrowing and give them a identical value by \ > multiplying it with n *) > region = RegionGrowing[{imgfilter}, {{r, k}}, 1, cost]*n; > (* Add the identical cell to imageNew *) > imageNew = imageNew + region; > (* Change n, so each cell has a different value *) > n = n + 2; > (* Take the cell out of the original image, > so he will stop when there is no white pixel anymore *) > imageFilled = imgfilter - region; > ]; > k++; > ]; > r++; > ]; > > From mathgroup-adm at smc.vnet.net Sat Jul 23 18:01:15 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 6BF606BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sat, 23 Jul 2011 18:01:15 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6NN13BD007601; Sat, 23 Jul 2011 18:01:03 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 6CF80A815B; Sat, 23 Jul 2011 18:01:03 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 1181BA813D; Sat, 23 Jul 2011 18:00:54 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08668 for mathgroup-newout; Sat, 23 Jul 2011 19:53:02 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08658 for mathgroup-newsend; Sat, 23 Jul 2011 19:53:01 -0400 (EDT) Date: Sat, 23 Jul 2011 19:53:01 -0400 (EDT) Message-Id: <201107232353.TAA08658 at smc.vnet.net> From: "Dr. Robert Kragler" <kragler at hs-weingarten.de> Subject: [mg120452] Editing/modifying palettes Reply-To: kragler at hs-weingarten.de To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.23.225114 My question ist : How can I merge resp. copy some useful buttons from one palette into another one? I am aware that there exists a thread "How edit a saved palette?" [mg85234], but the recipes given do not really work with Mathematica V7. Any suggestions are appreciated. Robert Kragler Email : kragler at hs-weingarten.de URL : http://portal.hs-weingarten.de/web/kragler From mathgroup-adm at smc.vnet.net Sat Jul 23 18:02:49 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 991AF6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sat, 23 Jul 2011 18:02:49 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6NN2o4f008107; Sat, 23 Jul 2011 18:02:50 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 735D7FF003; Sat, 23 Jul 2011 18:02:50 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id E9532A813D; Sat, 23 Jul 2011 18:02:48 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08724 for mathgroup-newout; Sat, 23 Jul 2011 19:54:17 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08719 for mathgroup-newsend; Sat, 23 Jul 2011 19:54:16 -0400 (EDT) Date: Sat, 23 Jul 2011 19:54:16 -0400 (EDT) Message-Id: <201107232354.TAA08719 at smc.vnet.net> From: "Harvey P. Dale" <hpd1 at nyu.edu> Subject: [mg120459] From Reduce to List To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.23.225114 What is the easiest and most efficient way to transform the output from Reduce into a list of values? For example, if Reduce produces (a==1001&&b==1001000)||(a==1002&&b==501000)||(a==1004= &&b==251000) and I want {{1001,1001000},{1002,501000},{1004,251000}}, what is the best way to go from the former to the latter? Harvey Harvey P. Dale University Professor of Philanthropy and the Law Director, National Center on Philanthropy and the Law 139 MacDougal Street New York, N.Y. 10012-1076 Tel: 212-998-6161 Fax: 212-995-3149 From mathgroup-adm at smc.vnet.net Sat Jul 23 18:04:50 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 1892F6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sat, 23 Jul 2011 18:04:50 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6NN4pY7008466; Sat, 23 Jul 2011 18:04:51 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id EA2E1FF006; Sat, 23 Jul 2011 18:04:50 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id A6FEEFF008; Sat, 23 Jul 2011 18:04:48 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08717 for mathgroup-newout; Sat, 23 Jul 2011 19:54:06 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08712 for mathgroup-newsend; Sat, 23 Jul 2011 19:54:06 -0400 (EDT) Date: Sat, 23 Jul 2011 19:54:06 -0400 (EDT) Message-Id: <201107232354.TAA08712 at smc.vnet.net> From: "Ted Sariyski" <tsariysk at craft-tech.com> Subject: [mg120458] how to ListPlot3D large data sets References: <201107222344.TAA28525 at smc.vnet.net> <201107230628.CAA01688 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.23.225414 Hi, I guess I am pushing the limits of ListPlot3D. I try to ListPlot3d a data set with many millions of records. I was not able to get an image from the full dataset, it takes forever. If I use e.g. every fifth record, although slow, I get an image. The machine running Mathematica is Windows 7 (64 bit), has 24 GB RAM and there was no swapping. I wonder what is considered as a reasonable data size for ListPlot3D and are there other tools in Mathematica for visualization of large data sets? Thanks in advance, --Ted From mathgroup-adm at smc.vnet.net Sat Jul 23 18:07:00 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id BC6426BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sat, 23 Jul 2011 18:06:59 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6NN70Fn008646; Sat, 23 Jul 2011 18:07:01 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 01C81FF003; Sat, 23 Jul 2011 18:07:01 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 43436A818E; Sat, 23 Jul 2011 18:06:54 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08653 for mathgroup-newout; Sat, 23 Jul 2011 19:52:51 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08648 for mathgroup-newsend; Sat, 23 Jul 2011 19:52:50 -0400 (EDT) Date: Sat, 23 Jul 2011 19:52:50 -0400 (EDT) Message-Id: <201107232352.TAA08648 at smc.vnet.net> From: paulvonhippel at yahoo <paulvonhippel at yahoo.com> Subject: [mg120451] random variables To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.23.221214 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_600_699 0, BODY_SIZE_7000_LESS 0, FROM_NAME_PHRASE 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_YAHOO 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. I would like to define a symbol representing a random variable, and then use that symbol in other expressions. It's not clear to me how to do that. For example, when I type the following input -- U = ChiSquareDistribution[n - 1] V = 2*U W = 3*U Mean[V] Mean[W] -- I do not get the mean of the random variables V and W. I know I can get the desired answer by typing: V = TransformedDistribution[2*U, U \[Distributed] ChiSquareDistribution[n - 1]] W = TransformedDistribution[3*U, U \[Distributed] ChiSquareDistribution[n - 1]] Mean[V] Mean[W] But that requires me to redefine the distribution of U every time I need it. Is there a way to define U just once? From mathgroup-adm at smc.vnet.net Sat Jul 23 18:09:19 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id D64246BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sat, 23 Jul 2011 18:09:18 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6NN9JR8010110; Sat, 23 Jul 2011 18:09:19 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id B0929FF004; Sat, 23 Jul 2011 18:09:17 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 1AF80A813D; Sat, 23 Jul 2011 18:09:15 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08697 for mathgroup-newout; Sat, 23 Jul 2011 19:53:34 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08692 for mathgroup-newsend; Sat, 23 Jul 2011 19:53:33 -0400 (EDT) Date: Sat, 23 Jul 2011 19:53:33 -0400 (EDT) Message-Id: <201107232353.TAA08692 at smc.vnet.net> From: Murray Eisenberg <murray at math.umass.edu> Subject: [mg120455] Re: Producing an image that only contains its interior and boundary but, no exterior. To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.23.230016 How did you discover that option for Show? I find no entry for "ShrinkWrap" in the Documentation Center, see no mention of that option value on the page for Show. On the Graphics3D ref page, the option Method is listed in the More Information section, but that Method option is not listed in the Options section of Examples. And of course the ref page for Method is essentially useless in such a case. It's long been a documentation lacuna that there are no "inverse references" for such options as Method that apply to multiple functions -- from the general option such as Method back to all the functions for which it's an option, along with some information as to what settings are allowed for each such function (at least in cases where within the target function page itself the settings are not all listed). On 7/22/11 7:47 PM, Yves Klett wrote: > g = Graphics3D[Cuboid[], SphericalRegion -> True] > > Show[g, Method -> {"ShrinkWrap" -> True}] -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 413 549-1020 (H) University of Massachusetts 413 545-2859 (W) 710 North Pleasant Street fax 413 545-1801 Amherst, MA 01003-9305 From mathgroup-adm at smc.vnet.net Sat Jul 23 18:11:02 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 38F5C6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sat, 23 Jul 2011 18:11:02 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6NNB3o2013626; Sat, 23 Jul 2011 18:11:03 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id A5060FF004; Sat, 23 Jul 2011 18:11:02 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id D52B0FF003; Sat, 23 Jul 2011 18:10:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08711 for mathgroup-newout; Sat, 23 Jul 2011 19:53:56 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08706 for mathgroup-newsend; Sat, 23 Jul 2011 19:53:55 -0400 (EDT) Date: Sat, 23 Jul 2011 19:53:55 -0400 (EDT) Message-Id: <201107232353.TAA08706 at smc.vnet.net> From: Bill Rowe <readnews at sbcglobal.net> Subject: [mg120457] Re: TransformedDistribution, for a sum of M iid variables To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.23.230016 On 7/22/11 at 3:42 AM, paulvonhippel at yahoo.com (Paul von Hippel) wrote: >Thanks for the neat proof. Sorry I wasn't clear about my goals. I >want to include a sum of iid variables in a TransfornedDistribution, >and then calculate the Mean and Variance of the distribution. >The iid variables need not be normal, and the TrasformedDistribution >will contain other variables besides the iid sum. While it is possible to do this using TransformedDistribution, I think it is far easier to to what you want with the various generating functions built into Mathematica. Use the exponential distribution as an example. For the exponential distribution: In[2]:= mg = CumulantGeneratingFunction[ExponentialDistribution[a], t] Out[2]= Log[a/(a - t)] Cumulants sum. So, the cumulant generating function for the sum n exponential deviates is simply n times the cumulant generating function of the original exponential distribution. And the mean is the first derivative of the cumulant generating function evaluated at t = 0. So, the mean of the sum of n exponential deviates is: In[3]:= D[n mg, t] /. t -> 0 Out[3]= n/a And the variance is given by the second derivative. So, the desired variance is: In[4]:= D[n mg, {t, 2}] /. t -> 0 Out[4]= n/a^2 And to check the validity of the above, note: In[5]:= MomentGeneratingFunction[ExponentialDistribution[a], t] Out[5]= a/(a - t) In[8]:= MomentGeneratingFunction[GammaDistribution[n, 1/a], t] Out[8]= (1 - t/a)^(-n) That is, the sum of n exponential deviates is distributed as a gamma distribution with parameters n, 1/a. So, In[9]:= Mean[GammaDistribution[n, 1/a]] Out[9]= n/a In[10]:= Variance[GammaDistribution[n, 1/a]] Out[10]= n/a^2 which verifies the earlier result using the cumulant generating function. Note, this technique of using generating functions does not require the sum to be of identically distributed values. I could just as easily find the mean and variance of say the sum of an exponential deviate and the sum of a normal deviate using this technique. From mathgroup-adm at smc.vnet.net Sat Jul 23 18:12:54 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 26DE76BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sat, 23 Jul 2011 18:12:54 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6NNCsGZ016623; Sat, 23 Jul 2011 18:12:54 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 11BF0A813D; Sat, 23 Jul 2011 18:12:54 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 0C501FF006; Sat, 23 Jul 2011 18:12:51 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08705 for mathgroup-newout; Sat, 23 Jul 2011 19:53:45 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id TAA08700 for mathgroup-newsend; Sat, 23 Jul 2011 19:53:44 -0400 (EDT) Date: Sat, 23 Jul 2011 19:53:44 -0400 (EDT) Message-Id: <201107232353.TAA08700 at smc.vnet.net> From: DrMajorBob <btreat1 at austin.rr.com> Subject: [mg120456] Re: FinancialData still broken Reply-To: drmajorbob at yahoo.com References: <201107222344.TAA28525 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.23.230314 I usually don't see the "price > 10^8" bug, either. It may have been permanently gone by the time you looked for it. But it was there for a day or so. I know the occasional spurious Missing coming back is a months-old issue at least, and Dan Delouis confirmed it still exists. I've inoculated my code against both bugs, so I may not notice when they go away. Bobby On Sat, 23 Jul 2011 01:29:09 -0500, James Stein <mathgroup at stein.org> wrote: > > DANA DELOUIS wrote: > I really hope they fix this soon, but I guess they never issue bug fixes. > > Are these bugs in Mathematica, or bugs in Yahoo? > FWIW, I do not see the bug reported by the OP (DrMajorBob). > > > On Fri, Jul 22, 2011 at 4:44 PM, DANA DELOUIS <dana.del at gmail.com> wrote: > >> ...> {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8... >> >> Hi. This function has lots of problems. >> In addition to the problems you point out, here's a slightly different >> view. >> Sometimes the Price, and Latest Price match. >> Other times, the Price is corrupt, but the latest price is correct, and >> sometimes it's the other way around. >> Sometimes the CIK codes or Exchange are missing, etc. >> Other issues are bugs in Option pricing, etc. >> I really hope they fix this soon, but I guess they never issue bug >> fixes. >> >> >> stocks={"ACEIX","FCNTX","JACNX","JANFX","JANWX","JMSCX","JNGIX","JNGLX", >> "JNMCX=94, >> "JNOSX","JNSGX","JNSTX","PTTAX","RGACX","STRFX=94}; >> >> Transpose[ >> { >> Map[FinancialData[#,"Price"]&,stocks], >> Map[FinancialData[#,"LatestTrade"]&,stocks], >> Map[FinancialData[#,"CIK"]&,stocks], >> Map[FinancialData[#,"Company"]&,stocks] >> }][[;;6]] >> >> < Just the first 6 for posting >> < Looks better in MatrixForm, or something similar...> >> >> {5.0324*10^8,{Missing[NotAvailable],5.0324*10^8},0000080832,Van Kampen >> Equity Income Fund A} >> {5.0311*10^8,{{2011,7,20,17,11,0.},72.17},0000024238,Fidelity Contra >> Fund} >> {13.97,{{2011,7,20,17,50,0.},13.97},0000277751,Janus Contrarian Fund D >> Shares} >> {5.0324*10^8,{{2001,12,22,20,42,0.},5.0324*10^8},0000277751,Janus >> Flexible >> Bond Fund D Shar} >> {5.0324*10^8,{{2011,7,20,18,24,0.},46.74},0000277751,Janus Worldwide >> Fund D >> Shares} >> {12.48,{{2011,7,20,17,51,0.},12.48},Missing[NotAvailable],Janus Smart >> Portfolio Conservat} >> >> = = = = = = = = = = >> Dana DeLouis >> $Version >> 8.0 for Mac OS X x86 (64-bit) (November 6, 2010) >> >> >> On Jul 21, 5:47 am, DrMajorBob <btre... at austin.rr.com> wrote: >> > Erroneous prices are randomly returned: >> > >> > FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", >> > "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", >> > "PTTAX", "RGACX", "STRFX"} >> > >> > {8.81, 72.4, 14., 10.64, 46.49, 12.48, >> > 5.03202*10^8, 26.48, 23.72, 45.35, 12.48, >> > 5.03241*10^8, 11.04, 31.44, 32.47} >> > >> > FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", >> > "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", >> > "PTTAX", "RGACX", "STRFX"} >> > >> > {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8, >> > 5.03168*10^8, 32.61, 26.48, 23.72, 5.03168*10^8, >> > 5.03168*10^8, 3.1, 11.04, 5.03241*10^8, 32.47} >> > >> > Bobby >> > >> > -- >> > DrMajor... at yahoo.com >> >> >> >> -- DrMajorBob at yahoo.com From mathgroup-adm at smc.vnet.net Sun Jul 24 01:26:31 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id CB5B96BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sun, 24 Jul 2011 01:26:30 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6O6QVxe015018; Sun, 24 Jul 2011 01:26:32 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 801DFA813D; Sun, 24 Jul 2011 01:26:31 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 5D747FF003; Sun, 24 Jul 2011 01:26:29 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA11655 for mathgroup-newout; Sun, 24 Jul 2011 03:19:36 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA11650 for mathgroup-newsend; Sun, 24 Jul 2011 03:19:35 -0400 (EDT) Date: Sun, 24 Jul 2011 03:19:35 -0400 (EDT) Message-Id: <201107240719.DAA11650 at smc.vnet.net> From: Simon <simonjtyler at gmail.com> Subject: [mg120463] Re: From Reduce to List Reply-To: comp.soft-sys.math.mathematica at googlegroups.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.24.61214 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ONE_WORD 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_10_99 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, SMALL_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. Reduce[expr, vars] vars /. ToRules[%] From mathgroup-adm at smc.vnet.net Sun Jul 24 01:26:50 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id D87556BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sun, 24 Jul 2011 01:26:49 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6O6QpF6015033; Sun, 24 Jul 2011 01:26:51 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id F2C8BFF003; Sun, 24 Jul 2011 01:26:50 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 213DEA815B; Sun, 24 Jul 2011 01:26:49 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA11647 for mathgroup-newout; Sun, 24 Jul 2011 03:19:25 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA11642 for mathgroup-newsend; Sun, 24 Jul 2011 03:19:24 -0400 (EDT) Date: Sun, 24 Jul 2011 03:19:24 -0400 (EDT) Message-Id: <201107240719.DAA11642 at smc.vnet.net> From: DrMajorBob <btreat1 at austin.rr.com> Subject: [mg120462] Re: From Reduce to List Reply-To: drmajorbob at yahoo.com References: <201107232354.TAA08719 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.24.61214 (a == 1001 && b == 1001000) || (a == 1002 && b == 501000) || (a == 1004 && b == 251000) /. {Or -> List, And -> List, Equal[_, x_] :> x} {{1001, 1001000}, {1002, 501000}, {1004, 251000}} or expr = (a == 1001 && b == 1001000) || (a == 1002 && b == 501000) || (a == 1004 && b == 251000); {a, b} /. List[expr // ToRules] {{1001, 1001000}, {1002, 501000}, {1004, 251000}} Bobby On Sat, 23 Jul 2011 18:54:16 -0500, Harvey P. Dale <hpd1 at nyu.edu> wrote: > What is the easiest and most efficient way to transform the > output from Reduce into a list of values? For example, if Reduce > produces > (a==1001&&b==1001000)||(a==1002&&b==501000)||(a==1004= > &&b==251000) and I > want {{1001,1001000},{1002,501000},{1004,251000}}, what is the best way > to go from the former to the latter? > > Harvey > > Harvey P. Dale > University Professor of Philanthropy and the Law > Director, National Center on Philanthropy and the Law > 139 MacDougal Street > New York, N.Y. 10012-1076 > Tel: 212-998-6161 > Fax: 212-995-3149 > -- DrMajorBob at yahoo.com From mathgroup-adm at smc.vnet.net Sun Jul 24 01:27:06 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id E15F96BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sun, 24 Jul 2011 01:27:05 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6O6R7b2015060; Sun, 24 Jul 2011 01:27:07 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id EAE09A818A; Sun, 24 Jul 2011 01:27:06 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 0D31DA813D; Sun, 24 Jul 2011 01:27:03 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA11667 for mathgroup-newout; Sun, 24 Jul 2011 03:19:57 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA11662 for mathgroup-newsend; Sun, 24 Jul 2011 03:19:57 -0400 (EDT) Date: Sun, 24 Jul 2011 03:19:57 -0400 (EDT) Message-Id: <201107240719.DAA11662 at smc.vnet.net> From: paulvonhippel at yahoo <paulvonhippel at yahoo.com> Subject: [mg120465] TransformedDistribution -- odd problem To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.24.61214 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_500_599 0, BODY_SIZE_7000_LESS 0, FROM_NAME_PHRASE 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_YAHOO 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. I'm having a very strange problem with TransformedDistribution, where I can calculate the mean of an F distribution but I cannot calculate the mean of a constant multiplied by an F distribution. That is, if I type Mean[TransformedDistribution[F, F \[Distributed] FRatioDistribution[v, v]]] Mathematica gives me an answer. But if I type Mean[TransformedDistribution[k*F , F \[Distributed] FRatioDistribution[v, v]]] Mathematica just echoes the input. I swear I got an answer for the second expression earlier today. What am I doing wrong? From mathgroup-adm at smc.vnet.net Sun Jul 24 01:29:03 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 5BD846BB19 for <l-mathgroup at mail-archive0.wolfram.com>; Sun, 24 Jul 2011 01:29:03 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6O6T4af015203; Sun, 24 Jul 2011 01:29:04 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 8D53AFF004; Sun, 24 Jul 2011 01:29:04 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 13FB2A813D; Sun, 24 Jul 2011 01:28:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA11661 for mathgroup-newout; Sun, 24 Jul 2011 03:19:47 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA11656 for mathgroup-newsend; Sun, 24 Jul 2011 03:19:46 -0400 (EDT) Date: Sun, 24 Jul 2011 03:19:46 -0400 (EDT) Message-Id: <201107240719.DAA11656 at smc.vnet.net> From: Glenn Carlson <g.crlsn at gmail.com> Subject: [mg120464] NDSolve in matrix form To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.24.62114 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1100_1199 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. I am trying to numerically solve systems of ODEs using Mathematica 7. The desired accuracy that I am striving for depends on the number of solution functions so I want to structure my solution algorithm to allow different numbers of solution functions. Solving the problem as a system of ODEs in matrix form seems the logical choice: dX/dt = f[X[t]], where f[X[t]] is a specified function, and X[t] is a vector of solution functions {x1[t],x2[t],...}. The initial conditions are specified by a vector X[0] = {x1[0],x2[0],...}. In my problem, the number of solution functions will usually vary from 3 to 7, but could be any number. One approach that doesn't work is: f := {f[[1]][t], f[[2]][t], f[[3]][t]} fInit := {0, 0, 2} mat := {(-3*f[[1]][t] - f[[2]][t]), 26.5*f[[1]][t] - f[[2]][t] - f[[1]][t]*f[[3]][t], f[[1]][t]*f[[2]][t] - f[[3]][t]} solution = NDSolve[{Derivative[1][f][t] == mat, f[0] == fInit}, f, {t, 0, 17}] I don't know if the problem is in the way f is specified or in my expression for NDSolve. I'd appreciate any assistance. Thanks and regards, Glenn From mathgroup-adm at smc.vnet.net Sun Jul 24 01:30:53 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 739346BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sun, 24 Jul 2011 01:30:53 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6O6UsCn015443; Sun, 24 Jul 2011 01:30:54 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 610B7A818A; Sun, 24 Jul 2011 01:30:54 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 9CA9DA815B; Sun, 24 Jul 2011 01:30:52 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA11619 for mathgroup-newout; Sun, 24 Jul 2011 03:19:03 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA11613 for mathgroup-newsend; Sun, 24 Jul 2011 03:19:03 -0400 (EDT) Date: Sun, 24 Jul 2011 03:19:03 -0400 (EDT) Message-Id: <201107240719.DAA11613 at smc.vnet.net> From: gcarlson <gcarlson at xannah.org> Subject: [mg120460] NDSolve in matrix form To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.24.61814 I am trying to numerically solve systems of ODEs using Mathematica 7. The desired accuracy that I am striving for depends on the number of solution functions so I want to structure my solution algorithm to allow different numbers of solution functions. Solving the problem as a system of ODEs in matrix form seems the logical choice: dX/dt = f[X[t]], where f[X[t]] is a specified function, and X[t] is a vector of solution functions {x1[t],x2[t],...}. The initial conditions are specified by a vector X[0] = {x1[0],x2[0],...}. In my problem, the number of solution functions will usually vary from 3 to 7, but could be any number. One approach that doesn't work is: f := {f[[1]][t], f[[2]][t], f[[3]][t]} fInit := {0, 0, 2} mat := {(-3*f[[1]][t] - f[[2]][t]), 26.5*f[[1]][t] - f[[2]][t] - f[[1]][t]*f[[3]][t], f[[1]][t]*f[[2]][t] - f[[3]][t]} solution = NDSolve[{Derivative[1][f][t] == mat, f[0] == fInit}, f, {t, 0, 17}] I don't know if the problem is in the way f is specified or in my expression for NDSolve. I'd appreciate any assistance. Thanks and regards, Glenn From mathgroup-adm at smc.vnet.net Sun Jul 24 01:33:13 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id D0F7F6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sun, 24 Jul 2011 01:33:12 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6O6XEe9015714; Sun, 24 Jul 2011 01:33:14 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id B7A27FF003; Sun, 24 Jul 2011 01:33:13 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id C39ECA813D; Sun, 24 Jul 2011 01:33:11 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA11640 for mathgroup-newout; Sun, 24 Jul 2011 03:19:14 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id DAA11635 for mathgroup-newsend; Sun, 24 Jul 2011 03:19:14 -0400 (EDT) Date: Sun, 24 Jul 2011 03:19:14 -0400 (EDT) Message-Id: <201107240719.DAA11635 at smc.vnet.net> From: DrMajorBob <btreat1 at austin.rr.com> Subject: [mg120461] Re: random variables Reply-To: drmajorbob at yahoo.com References: <201107232352.TAA08648 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.24.62114 U=ChiSquareDistribution[n-1]; twoU=TransformedDistribution[2*u,u\[Distributed]U]; Through[{Mean,Variance,PDF}@twoU] {2 (-1+n),8 (-1+n),Function[\[FormalX],\[Piecewise] (2^(1-n) \[FormalX]^(-1+1/2 (-1+n)) E^(-\[FormalX]/4))/Gamma[1/2 (-1+n)] \[FormalX]>0 0 True ,Listable]} Bobby On Sat, 23 Jul 2011 18:52:50 -0500, paulvonhippel at yahoo <paulvonhippel at yahoo.com> wrote: > I would like to define a symbol representing a random variable, and > then use that symbol in other expressions. It's not clear to me how to > do that. For example, when I type the following input -- > > U = ChiSquareDistribution[n - 1] > V = 2*U > W = 3*U > Mean[V] > Mean[W] > > -- I do not get the mean of the random variables V and W. I know I can > get the desired answer by typing: > > V = TransformedDistribution[2*U, > U \[Distributed] ChiSquareDistribution[n - 1]] > W = TransformedDistribution[3*U, > U \[Distributed] ChiSquareDistribution[n - 1]] > Mean[V] > Mean[W] > > But that requires me to redefine the distribution of U every time I > need it. > > Is there a way to define U just once? > -- DrMajorBob at yahoo.com From mathgroup-adm at smc.vnet.net Sun Jul 24 05:44:19 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id A00836BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sun, 24 Jul 2011 05:44:19 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6OAiKk1020446; Sun, 24 Jul 2011 05:44:20 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 1B0B4A813D; Sun, 24 Jul 2011 05:44:20 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 868FBBF483; Sun, 24 Jul 2011 05:44:18 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA13806 for mathgroup-newout; Sun, 24 Jul 2011 07:38:01 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA13798 for mathgroup-newsend; Sun, 24 Jul 2011 07:38:00 -0400 (EDT) Date: Sun, 24 Jul 2011 07:38:00 -0400 (EDT) Message-Id: <201107241138.HAA13798 at smc.vnet.net> From: Fred Simons <f.h.simons at tue.nl> Subject: [mg120466] Re: From Reduce to List References: <201107232354.TAA08719 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.24.103314 In[8]:= expr=(a==1001&&b==1001000)||(a==1002&&b==501000)||(a==1004&&b==251000); {a,b}/.{ToRules[expr]} Out[9]= {{1001,1001000},{1002,501000},{1004,251000}} If expr is indeed the result of a Reduce command, I think it is very likely that instead of Reduce you could have used Solve (it has quite a lot of new features) in order to obtain the rules immediately. Kind regards, Fred Simons Eindhoven University of Technology Op 24-7-2011 1:54, Harvey P. Dale schreef: > What is the easiest and most efficient way to transform the > output from Reduce into a list of values? For example, if Reduce > produces > (a==1001&&b==1001000)||(a==1002&&b==501000)||(a==1004= > &&b==251000) and I > want {{1001,1001000},{1002,501000},{1004,251000}}, what is the best way > to go from the former to the latter? > > Harvey > > Harvey P. Dale > University Professor of Philanthropy and the Law > Director, National Center on Philanthropy and the Law > 139 MacDougal Street > New York, N.Y. 10012-1076 > Tel: 212-998-6161 > Fax: 212-995-3149 From mathgroup-adm at smc.vnet.net Sun Jul 24 05:44:48 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 7E1DA6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sun, 24 Jul 2011 05:44:48 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6OAinvC020466; Sun, 24 Jul 2011 05:44:49 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id B9134A813D; Sun, 24 Jul 2011 05:44:49 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 4881FBF4AE; Sun, 24 Jul 2011 05:44:48 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA13823 for mathgroup-newout; Sun, 24 Jul 2011 07:38:24 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA13819 for mathgroup-newsend; Sun, 24 Jul 2011 07:38:23 -0400 (EDT) Date: Sun, 24 Jul 2011 07:38:23 -0400 (EDT) Message-Id: <201107241138.HAA13819 at smc.vnet.net> From: Jay Bee <jiri.bocan at gmail.com> Subject: [mg120468] Re: CDF Files Break when being mailed or uploaded References: <j0fop8$8or$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.24.103314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_400_499 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. On Jul 24, 1:25 am, Markus <markus.seyw... at seywerd.com> wrote: > Hi I have created a Computable Document File with a Barchart. When I > transfer the file to a machine using a flash drive or over the office > network the receiver can read the file with the CDF reader and > everything looks good. However if I email or ftp the file to another > location the barchart is broken. Does anyone have any ideas? Hi, Markus. Have you tried to send it archived? -jb- From mathgroup-adm at smc.vnet.net Sun Jul 24 05:47:37 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 6C4E16BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sun, 24 Jul 2011 05:47:37 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6OAlc9S021122; Sun, 24 Jul 2011 05:47:38 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id A07B3A815B; Sun, 24 Jul 2011 05:47:38 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id C5278A813D; Sun, 24 Jul 2011 05:47:34 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA13831 for mathgroup-newout; Sun, 24 Jul 2011 07:38:35 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA13826 for mathgroup-newsend; Sun, 24 Jul 2011 07:38:34 -0400 (EDT) Date: Sun, 24 Jul 2011 07:38:34 -0400 (EDT) Message-Id: <201107241138.HAA13826 at smc.vnet.net> From: Heike Gramberg <heike.gramberg at gmail.com> Subject: [mg120469] Re: From Reduce to List References: <201107232354.TAA08719 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.24.103314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, BODY_SIZE_800_899 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __C230066_P5 0, __FRAUD_CONTACT_NUM 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. You would use ToRules: {a, b} /. {ToRules[(a == 1001 && b == 1001000) || (a == 1002 && b == 501000) || (a == 1004 && b == 251000)]} out: {{1001, 1001000}, {1002, 501000}, {1004, 251000}} Heike On 24 Jul 2011, at 00:54, Harvey P. Dale wrote: > What is the easiest and most efficient way to transform the > output from Reduce into a list of values? For example, if Reduce > produces > (a==1001&&b==1001000)||(a==1002&&b==501000)||(a==1004= > &&b==251000) and I > want {{1001,1001000},{1002,501000},{1004,251000}}, what is the best way > to go from the former to the latter? > > Harvey > > Harvey P. Dale > University Professor of Philanthropy and the Law > Director, National Center on Philanthropy and the Law > 139 MacDougal Street > New York, N.Y. 10012-1076 > Tel: 212-998-6161 > Fax: 212-995-3149 > From mathgroup-adm at smc.vnet.net Sun Jul 24 05:48:10 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 68E6F6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sun, 24 Jul 2011 05:48:10 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6OAmBRg021158; Sun, 24 Jul 2011 05:48:11 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 54810A815B; Sun, 24 Jul 2011 05:48:11 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 3015EBF4B0; Sun, 24 Jul 2011 05:48:09 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA13817 for mathgroup-newout; Sun, 24 Jul 2011 07:38:13 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA13812 for mathgroup-newsend; Sun, 24 Jul 2011 07:38:12 -0400 (EDT) Date: Sun, 24 Jul 2011 07:38:12 -0400 (EDT) Message-Id: <201107241138.HAA13812 at smc.vnet.net> From: Jay Bee <jiri.bocan at gmail.com> Subject: [mg120467] Re: Code is not working... References: <201107222347.TAA28685 at smc.vnet.net> <j0foq7$8ov$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.24.103314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1800_1899 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __CP_MEDIA_BODY 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. On Jul 24, 1:25 am, Heike Gramberg <heike.gramb... at gmail.com> wrote: > If you want any useful help you'll probably need to give a bit more > information. For example, what are > image, RegionGrowing and imgfilter? And what is the function of > imageFilled (it doesn't seem to do anything > at the moment)? > > Heike. > > On 23 Jul 2011, at 00:47, =?iso-8859-1?Q?S=F6nme... at smc.vnet.net wrot= e: > > > > > > > > > > > Hello, > > > I am in trouble with below codes: > > > I run this code but Program is not finsh evertime It is running and run= ning... > > Could you possible help me. > > > dim = Dimensions[image] > > r = 1; > > k = 1; > > n = 10; > > cost = Function[{positionValues, neighborValues}, > > First[neighborValues] == 1]; > > > (* Image that only contains the value zero *) > > imageNew = Table[0, {i, 1, dim[[1]]}, {j, 1, dim[[2]]}]; > > > (* Walk through the rows of the image *) > > While[r < dim[[1]], > > (* Walk through the columns of the image*) > > k = 1; > > While[k < dim[[2]], > > (* Find a white pixel*) > > If[imgfilter[[r, k]] == 1, > > (* Proceed RegionGrowing and give them a identical value by \ > > multiplying it with n *) > > region = RegionGrowing[{imgfilter}, {{r, k}}, 1, cost]*n; > > (* Add the identical cell to imageNew *) > > imageNew = imageNew + region; > > (* Change n, so each cell has a different value *) > > n = n + 2;As > > (* Take the cell out of the original image, > > so he will stop when there is no white pixel anymore *) > > imageFilled = imgfilter - region; > > ]; > > k++; > > ]; > > r++; > > ]; As Heike asked, what are those functions you use? If the computation lasts forever, there must be some bug... Check all braces - correct number and position, if all the inputs and outputs have an expected format, and so on... From mathgroup-adm at smc.vnet.net Sun Jul 24 05:48:57 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 6DB5C6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Sun, 24 Jul 2011 05:48:57 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6OAmw5q021225; Sun, 24 Jul 2011 05:48:58 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 4DD9DBF4B5; Sun, 24 Jul 2011 05:48:58 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 57B32BF4B0; Sun, 24 Jul 2011 05:48:56 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA13838 for mathgroup-newout; Sun, 24 Jul 2011 07:38:46 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA13833 for mathgroup-newsend; Sun, 24 Jul 2011 07:38:45 -0400 (EDT) Date: Sun, 24 Jul 2011 07:38:45 -0400 (EDT) Message-Id: <201107241138.HAA13833 at smc.vnet.net> From: "Kevin J. McCann" <kjm at KevinMcCann.com> Subject: [mg120470] Re: NDSolve in matrix form References: <j0gh6t$bd4$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.24.103314 Glenn, First of all, you got into a recurrence problem with you definition of f. Second, the form of the input to NDSolve isn't quite right, you need to use Thread to transform something like {f1[t],f2[t],f3[t]}=={0,0,2} into {f1[t]==0,f2[t]==0,f3[t]==2} Take the code below apart and you will see how this is used. Finally, note that f3 does not enter the first two de's and that it is fairly simple to see that f1=f2=0. Here is my take: Clear[f,fInit,mat] f[t_]={f1[t],f2[t],f3[t]} fInit={0,0,2} mat={-3 f1[t]-f2[t],26.5 f1[t]-f2[t]-f1[t] f2[t],f1[t] f2[t]-f3[t]} eqns=Flatten[{Thread[(f^\[Prime])[t]==mat],Thread[f[0]==fInit]}] solution=NDSolve[eqns,f[t],{t,0,17}][[1]] Cheers, Kevin On 7/24/2011 3:22 AM, Glenn Carlson wrote: > I am trying to numerically solve systems of ODEs using Mathematica 7. > > The desired accuracy that I am striving for depends on the number of solution functions so I want to structure my solution algorithm to allow different numbers of solution functions. Solving the problem as a system of ODEs in matrix form seems the logical choice: > > dX/dt = f[X[t]], > > where f[X[t]] is a specified function, and X[t] is a vector of solution functions {x1[t],x2[t],...}. The initial conditions are specified by a vector X[0] = {x1[0],x2[0],...}. > > In my problem, the number of solution functions will usually vary from 3 to 7, but could be any number. > > One approach that doesn't work is: > > f := {f[[1]][t], f[[2]][t], f[[3]][t]} > fInit := {0, 0, 2} > mat := {(-3*f[[1]][t] - f[[2]][t]), 26.5*f[[1]][t] - f[[2]][t] - f[[1]][t]*f[[3]][t], f[[1]][t]*f[[2]][t] - f[[3]][t]} > solution = NDSolve[{Derivative[1][f][t] == mat, f[0] == fInit}, f, {t, 0, 17}] > > I don't know if the problem is in the way f is specified or in my expression for NDSolve. > > I'd appreciate any assistance. > > Thanks and regards, > > Glenn > From mathgroup-adm at smc.vnet.net Mon Jul 25 05:32:57 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id E2C586BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:32:57 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAWxjE026096; Mon, 25 Jul 2011 05:32:59 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id E3F42A81B0; Mon, 25 Jul 2011 05:32:58 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 2E701A8195; Mon, 25 Jul 2011 05:32:57 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25449 for mathgroup-newout; Mon, 25 Jul 2011 07:27:30 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25444 for mathgroup-newsend; Mon, 25 Jul 2011 07:27:29 -0400 (EDT) Date: Mon, 25 Jul 2011 07:27:29 -0400 (EDT) Message-Id: <201107251127.HAA25444 at smc.vnet.net> From: Glenn Carlson <g.crlsn at gmail.com> Subject: [mg120473] Re: NDSolve in matrix form To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.102121 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1500_1599 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __CP_URI_IN_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NO_MAILTO 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. Thanks for your response, Kevin. I figured out how to do this late last night. I attribute differences between the solution in terms of f[1][t], f[2][t], and f[3][t] and the solution from the tutorial in terms of x[t], y[t], and z[t] to be due to internal numerics in solving the nonlinear system. Applying either approach to the differential-algebraic system in the tutorial gives the same result. Thanks again very much. Glenn ------------ (* System of ordinary differential equations. http://reference.wolfram.com/mathematica/tutorial/NumericalSolutionOfDifferentialEquations.html *) n := 3 fInit := {0, 2, 0} mat[t_] = {-3 (f[1][t] - f[2][t]), -f[1][t] f[3][t] + 26.5 f[1][t] - f[2][t], f[1][t] f[2][t] - f[3][t]}; (* Create a list of the solution functions excl. the argument t. *) fsol = Table[f[i], {i, 1, n}]; (* Create a list of ODEs and ICs for NDSolve. *) sys = Join[Table[fsol[[i]]'[t] == mat[t][[i]], {i, 1, n}], Table[fsol[[i]][0] == fInit[[i]], {i, 1, n}]]; solution1 = NDSolve[sys, fsol, {t, 0, 200}, MaxSteps -> Infinity] (* Create a list of solution functions incl. the argument t for ParametricPlot3D. *) fsolt = Table[f[i][t], {i, 1, n}] ParametricPlot3D[Evaluate[fsolt /. solution1], {t, 0, 200}, PlotPoints -> 10000, ColorFunction ->(ColorData["Rainbow"][#4] &)] (* Plot solutions as functions of time. *) Plot[Evaluate[f[1][t] /. solution1], {t, 0, 200}] Plot[Evaluate[f[2][t] /. solution1], {t, 0, 200}] Plot[Evaluate[f[3][t] /. solution1], {t, 0, 200}] Plot[Evaluate[fsolt /. solution1], {t, 0, 200}] From mathgroup-adm at smc.vnet.net Mon Jul 25 05:33:40 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id DAC6C6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:33:40 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAXgaI026136; Mon, 25 Jul 2011 05:33:42 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 271BEBF417; Mon, 25 Jul 2011 05:33:42 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id C49B7A813D; Mon, 25 Jul 2011 05:33:40 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25464 for mathgroup-newout; Mon, 25 Jul 2011 07:27:51 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25459 for mathgroup-newsend; Mon, 25 Jul 2011 07:27:51 -0400 (EDT) Date: Mon, 25 Jul 2011 07:27:51 -0400 (EDT) Message-Id: <201107251127.HAA25459 at smc.vnet.net> From: icegood <icegood1980 at gmail.com> Subject: [mg120475] default font To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.102121 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ONE_WORD 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_10_99 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, SMALL_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. everytime with new norebook i change font size. How to change it in default manner? From mathgroup-adm at smc.vnet.net Mon Jul 25 05:35:19 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 4F6416BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:35:19 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAZKLY026302; Mon, 25 Jul 2011 05:35:20 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 9BE62BF471; Mon, 25 Jul 2011 05:35:20 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 237B4BF42E; Mon, 25 Jul 2011 05:35:19 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25492 for mathgroup-newout; Mon, 25 Jul 2011 07:28:35 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25487 for mathgroup-newsend; Mon, 25 Jul 2011 07:28:34 -0400 (EDT) Date: Mon, 25 Jul 2011 07:28:34 -0400 (EDT) Message-Id: <201107251128.HAA25487 at smc.vnet.net> From: rych <rychphd at gmail.com> Subject: [mg120479] Simplify[ArcTan[Tan[a] + Tan[b]]] To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.102121 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ONE_WORD 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_200_299 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, SMALL_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. Can't Mathematica tell anything about ArcTan[Tan[a] + Tan[b]]? Maybe there exists no useful identity for that? By useful I mean the expression with functions of the "angles" a and b other than tangents. Thanks Igor From mathgroup-adm at smc.vnet.net Mon Jul 25 05:37:08 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id A4A2A6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:37:08 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAb9X4026406; Mon, 25 Jul 2011 05:37:09 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 6F3DBBF471; Mon, 25 Jul 2011 05:37:09 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id D5E01BF42E; Mon, 25 Jul 2011 05:37:07 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25520 for mathgroup-newout; Mon, 25 Jul 2011 07:29:07 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25514 for mathgroup-newsend; Mon, 25 Jul 2011 07:29:07 -0400 (EDT) Date: Mon, 25 Jul 2011 07:29:07 -0400 (EDT) Message-Id: <201107251129.HAA25514 at smc.vnet.net> From: Richard Fateman <fateman at cs.berkeley.edu> Subject: [mg120482] And now for something completely different To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.102714 Can you start a paragraph with "And"? http://answers.yahoo.com/question/index?qid090413160418AAyfRO2 says, 'No.' Stephen Wolfram often does so, and I find it annoying. example http://www.wolframscience.com/nksonline/page-42?firstview=1 This construction seems to have been removed from the online documentation. --RJF From mathgroup-adm at smc.vnet.net Mon Jul 25 05:39:13 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 5FA676BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:39:13 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAdEiO026585; Mon, 25 Jul 2011 05:39:14 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id A6D09BF42E; Mon, 25 Jul 2011 05:39:14 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 4E0E0BF417; Mon, 25 Jul 2011 05:39:13 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25537 for mathgroup-newout; Mon, 25 Jul 2011 07:29:29 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25532 for mathgroup-newsend; Mon, 25 Jul 2011 07:29:28 -0400 (EDT) Date: Mon, 25 Jul 2011 07:29:28 -0400 (EDT) Message-Id: <201107251129.HAA25532 at smc.vnet.net> From: paulvonhippel at yahoo <paulvonhippel at yahoo.com> Subject: [mg120484] Re: TransformedDistribution -- odd problem References: <j0gh7s$bd7$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.102714 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_500_599 0, BODY_SIZE_7000_LESS 0, FROM_NAME_PHRASE 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_YAHOO 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. I also have a more complicated example where Mathematica will give the mean of A and the mean of B, but when I ask for the mean of A+B Mathematica just echoes the input. (Here A and B are complicated functions of several random variables.) This strikes me as really odd, since of course Mean(A+B)=Mean(A)+Mean(B). What could be going on here? Under what circumstances does Mathematica echo the input when asked to provide a Mean? Is there a setting I need to change? I suspect this is a software issue rather than a mathematical issue. From mathgroup-adm at smc.vnet.net Mon Jul 25 05:41:11 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id AAE306BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:41:11 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAfDc6026873; Mon, 25 Jul 2011 05:41:13 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id BF531A8158; Mon, 25 Jul 2011 05:41:12 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 65EE9A813D; Mon, 25 Jul 2011 05:41:11 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25478 for mathgroup-newout; Mon, 25 Jul 2011 07:28:13 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25473 for mathgroup-newsend; Mon, 25 Jul 2011 07:28:12 -0400 (EDT) Date: Mon, 25 Jul 2011 07:28:12 -0400 (EDT) Message-Id: <201107251128.HAA25473 at smc.vnet.net> From: Don <donabc at comcast.net> Subject: [mg120477] Grid Divider Style With Background Colors To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.102714 Mathematica permits divider lines between rows and columns in a table (grid) such as this example from the documentation: Grid[Table[x, {4}, {11}], Dividers -> {{{{True, False}}, -1 -> True}, False}] But, the dividers are single lines only. Sometimes double line dividers are desired as shown in this table on the Web: http://www.assetcorrelation.com/user/correlations/90 Notice that the background color for an item is only within the inside line of a double line divider. Is there any way to produce (a) this kind of divider (double line) and (b) with background colors for specific items that don't cross the inside line of the double line divider? Thank you in advance. Don From mathgroup-adm at smc.vnet.net Mon Jul 25 05:43:25 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id EB7E16BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:43:25 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAhR3j027023; Mon, 25 Jul 2011 05:43:27 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 2E6ADA8158; Mon, 25 Jul 2011 05:43:27 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 87D8AA813D; Mon, 25 Jul 2011 05:43:25 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25470 for mathgroup-newout; Mon, 25 Jul 2011 07:28:02 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25465 for mathgroup-newsend; Mon, 25 Jul 2011 07:28:02 -0400 (EDT) Date: Mon, 25 Jul 2011 07:28:02 -0400 (EDT) Message-Id: <201107251128.HAA25465 at smc.vnet.net> From: Markus <markus.seywerd at googlemail.com> Subject: [mg120476] Re: CDF Files Break when being mailed or uploaded References: <j0fop8$8or$1 at smc.vnet.net> <j0h0a2$dgm$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.103015 On Jul 24, 12:39 pm, Jay Bee <jiri.bo... at gmail.com> wrote: > On Jul 24, 1:25 am, Markus <markus.seyw... at seywerd.com> wrote: > > > Hi I have created a Computable Document File with a Barchart. When I > > transfer the file to a machine using a flash drive or over the office > > network the receiver can read the file with the CDF reader and > > everything looks good. However if I email or ftp the file to another > > location the barchart is broken. Does anyone have any ideas? > > Hi, Markus. Have you tried to send it archived? > -jb- Yes I have tried to send it as a zip file and the same thing happens. From mathgroup-adm at smc.vnet.net Mon Jul 25 05:45:35 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 4D2E56BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:45:35 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAjall027314; Mon, 25 Jul 2011 05:45:36 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 7E619FF004; Mon, 25 Jul 2011 05:45:36 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id B3D3DFF003; Mon, 25 Jul 2011 05:45:34 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25563 for mathgroup-newout; Mon, 25 Jul 2011 07:30:02 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25558 for mathgroup-newsend; Mon, 25 Jul 2011 07:30:01 -0400 (EDT) Date: Mon, 25 Jul 2011 07:30:01 -0400 (EDT) Message-Id: <201107251130.HAA25558 at smc.vnet.net> From: Oliver Ruebenkoenig <ruebenko at wolfram.com> Subject: [mg120487] Re: how to ListPlot3D large data sets References: <201107232354.TAA08712 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.103015 On Sat, 23 Jul 2011, Ted Sariyski wrote: > Hi, > I guess I am pushing the limits of ListPlot3D. I try to ListPlot3d a data > set with many millions of records. I was not able to get an image from the > full dataset, it takes forever. If I use e.g. every fifth record, although > slow, I get an image. The machine running Mathematica is Windows 7 (64 bit), > has 24 GB RAM and there was no swapping. I wonder what is considered as a > reasonable data size for ListPlot3D and are there other tools in Mathematica > for visualization of large data sets? > Thanks in advance, > --Ted > > > Ted, is your data packed? Developer`PackedArrayQ[yourData] Oliver From mathgroup-adm at smc.vnet.net Mon Jul 25 05:47:26 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 150DC6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:47:26 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAlMB2027438; Mon, 25 Jul 2011 05:47:27 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 3ED69FF006; Mon, 25 Jul 2011 05:47:22 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 5E0E6FF004; Mon, 25 Jul 2011 05:47:20 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25511 for mathgroup-newout; Mon, 25 Jul 2011 07:28:57 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25506 for mathgroup-newsend; Mon, 25 Jul 2011 07:28:56 -0400 (EDT) Date: Mon, 25 Jul 2011 07:28:56 -0400 (EDT) Message-Id: <201107251128.HAA25506 at smc.vnet.net> From: Alan <alan.isaac at gmail.com> Subject: [mg120481] Re: CDF Files Break when being mailed or uploaded References: <j0fop8$8or$1 at smc.vnet.net> <j0h0a2$dgm$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.103914 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ONE_WORD 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, BODY_SIZE_700_799 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __CP_URI_IN_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NO_MAILTO 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. Are you running on the same version of Mathematica at both ends? If it is Mathematica on one end and the Mathematica Player on the other, it could be a player bug. If the former, either the file is changed or it is different than expected at the other platform, probably the latter. You can tell if the file changes by using a check sum tool at both ends. The most likely cross-platform problem would involve handling of end- of-line conventions. http://www.rfc-editor.org/EOLstory.txt This is pure speculation: I don't know how Mathematica handles end-of-lines across platforms. Hopefully it transparently handles any common end-of-lines (like many popular editors). fwiw, Alan Isaac From mathgroup-adm at smc.vnet.net Mon Jul 25 05:49:29 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 8EAA36BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:49:29 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAnUUt027619; Mon, 25 Jul 2011 05:49:30 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 8BAC0A81B0; Mon, 25 Jul 2011 05:49:30 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 27904A8195; Mon, 25 Jul 2011 05:49:29 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25552 for mathgroup-newout; Mon, 25 Jul 2011 07:29:51 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25547 for mathgroup-newsend; Mon, 25 Jul 2011 07:29:50 -0400 (EDT) Date: Mon, 25 Jul 2011 07:29:50 -0400 (EDT) Message-Id: <201107251129.HAA25547 at smc.vnet.net> From: Joseph Gwinn <joegwinn at comcast.net> Subject: [mg120486] Re: how to ListPlot3D large data sets References: <201107222344.TAA28525 at smc.vnet.net> <201107230628.CAA01688 at smc.vnet.net> <j0fou1$8pm$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.103914 In article <j0fou1$8pm$1 at smc.vnet.net>, "Ted Sariyski" <tsariysk at craft-tech.com> wrote: > Hi, > I guess I am pushing the limits of ListPlot3D. I try to ListPlot3d a data > set with many millions of records. I was not able to get an image from the > full dataset, it takes forever. If I use e.g. every fifth record, although > slow, I get an image. The machine running Mathematica is Windows 7 (64 bit), > has 24 GB RAM and there was no swapping. I wonder what is considered as a > reasonable data size for ListPlot3D and are there other tools in Mathematica > for visualization of large data sets? How long did you wait for the full dataset picture to form? I have plotted some very large datasets over the years, and although slow, it usually worked. So long as there was enough memory. But printing the image is quite another matter. Joe Gwinn From mathgroup-adm at smc.vnet.net Mon Jul 25 05:51:23 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id C641F6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:51:23 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PApPfK027739; Mon, 25 Jul 2011 05:51:25 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 1010CFF007; Mon, 25 Jul 2011 05:51:25 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 4670AFF006; Mon, 25 Jul 2011 05:51:23 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25442 for mathgroup-newout; Mon, 25 Jul 2011 07:27:19 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25437 for mathgroup-newsend; Mon, 25 Jul 2011 07:27:19 -0400 (EDT) Date: Mon, 25 Jul 2011 07:27:19 -0400 (EDT) Message-Id: <201107251127.HAA25437 at smc.vnet.net> From: Helen Read <readhpr at gmail.com> Subject: [mg120472] Re: CDF Files Break when being mailed or uploaded References: <j0fop8$8or$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.104514 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_1099 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. On 7/23/2011 8:25 PM, Markus wrote: > Hi I have created a Computable Document File with a Barchart. When I > transfer the file to a machine using a flash drive or over the office > network the receiver can read the file with the CDF reader and > everything looks good. However if I email or ftp the file to another > location the barchart is broken. Does anyone have any ideas? Your FTP client and email client (or web server, if you are using webmail) may be sending the CDF files as ASCII, which is often the default if the file type is not recognized, and may be throwing in extra line breaks that wreck the file. Try setting your FTP client to send CDF files (or all files, for that matter) as Binary. As for email, if it is webmail, ask your Sys Admin to set a Mime type for CDF so that it is recognized as an application. If you are using some an e-mail client (Outlook or whatever), you may have to look around in the settings to see how it handles attachments. -- Helen Read University of Vermont From mathgroup-adm at smc.vnet.net Mon Jul 25 05:53:12 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 08EDC6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:53:12 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAr8CQ027799; Mon, 25 Jul 2011 05:53:13 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 5D262FF006; Mon, 25 Jul 2011 05:53:08 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 93D6FFF004; Mon, 25 Jul 2011 05:53:06 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25505 for mathgroup-newout; Mon, 25 Jul 2011 07:28:46 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25499 for mathgroup-newsend; Mon, 25 Jul 2011 07:28:45 -0400 (EDT) Date: Mon, 25 Jul 2011 07:28:45 -0400 (EDT) Message-Id: <201107251128.HAA25499 at smc.vnet.net> From: John Fultz <jfultz at wolfram.com> Subject: [mg120480] Re: Preventing In-line Math Typesetting From Being Scaled Down in Text Cells Reply-To: jfultz at wolfram.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.104514 On Fri, 22 Jul 2011 19:46:07 -0400 (EDT), Gregory Lypny wrote: > Hi everyone, > > When I include fractions as inline math typesetting, they are scaled down > to fit the effective line height of the cell. How can I prevent this or, > I guess, make the line height automatically expand to accommodate the > math? If my regular text in the cell is 12-point times, I'd like all > math variables that are not subscripts or superscripts to be 12-point as > well. > > Incidentally, other big typeset objects like matrices are not scaled > down, or at least they down't appear to be. > > Sincerely, > > Gregory If you look in Core.nb, you'll find a style called "InlineCell". This style is automatically applied to all inline cells everywhere. One of the options it has set is: ScriptLevel->1 This is what's causing the behavior you're seeing. You can override this with a custom stylesheet. For example, in a given notebook, you can make a private override by doing Format->Edit Stylesheet..., and pasting and interpreting the following cell expression at the end of the resulting stylesheet notebook: Cell[StyleData["InlineCell"], ScriptLevel->0] Sincerely, John Fultz jfultz at wolfram.com User Interface Group Wolfram Research, Inc. From mathgroup-adm at smc.vnet.net Mon Jul 25 05:55:20 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 078C86BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:55:20 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAtLK4028427; Mon, 25 Jul 2011 05:55:21 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 09F33BF47E; Mon, 25 Jul 2011 05:55:21 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 08BA1BF471; Mon, 25 Jul 2011 05:55:19 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25458 for mathgroup-newout; Mon, 25 Jul 2011 07:27:41 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25453 for mathgroup-newsend; Mon, 25 Jul 2011 07:27:40 -0400 (EDT) Date: Mon, 25 Jul 2011 07:27:40 -0400 (EDT) Message-Id: <201107251127.HAA25453 at smc.vnet.net> From: Andrzej Kozlowski <akoz at mimuw.edu.pl> Subject: [mg120474] Re: From Reduce to List References: <201107232354.TAA08719 at smc.vnet.net> <201107241138.HAA13798 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.104514 I think the only exceptions are non-generic cases like this one: {Reduce[a x == 0, x] // ToRules} {{a->0},{x->0}} Solve[a x == 0, x] {{x->0}} Andrzej Kozlowski On 24 Jul 2011, at 12:38, Fred Simons wrote: > In[8]:= > expr=(a==1001&&b==1001000)||(a==1002&&b==501000)||(a==1004&&b==251000); > {a,b}/.{ToRules[expr]} > > Out[9]= {{1001,1001000},{1002,501000},{1004,251000}} > > If expr is indeed the result of a Reduce command, I think it is very > likely that instead of Reduce you could have used Solve (it has quite a > lot of new features) in order to obtain the rules immediately. > > Kind regards, > > Fred Simons > Eindhoven University of Technology > > Op 24-7-2011 1:54, Harvey P. Dale schreef: >> What is the easiest and most efficient way to transform the >> output from Reduce into a list of values? For example, if Reduce >> produces >> (a==1001&&b==1001000)||(a==1002&&b==501000)||(a==1004= >> &&b==251000) and I >> want {{1001,1001000},{1002,501000},{1004,251000}}, what is the best way >> to go from the former to the latter? >> >> Harvey >> >> Harvey P. Dale >> University Professor of Philanthropy and the Law >> Director, National Center on Philanthropy and the Law >> 139 MacDougal Street >> New York, N.Y. 10012-1076 >> Tel: 212-998-6161 >> Fax: 212-995-3149 > > From mathgroup-adm at smc.vnet.net Mon Jul 25 05:57:13 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 863036BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:57:13 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAvE3U028551; Mon, 25 Jul 2011 05:57:14 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 4E5EAA8158; Mon, 25 Jul 2011 05:57:14 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 93567BF42E; Mon, 25 Jul 2011 05:57:12 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25436 for mathgroup-newout; Mon, 25 Jul 2011 07:27:08 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25431 for mathgroup-newsend; Mon, 25 Jul 2011 07:27:08 -0400 (EDT) Date: Mon, 25 Jul 2011 07:27:08 -0400 (EDT) Message-Id: <201107251127.HAA25431 at smc.vnet.net> From: Yves Klett <yves.klett at googlemail.com> Subject: [mg120471] Re: Producing an image that only contains its interior and boundary but, no exterior. To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.104814 Murray, not sure anymore if someone from WRI helped me out (John Fultz comes to mind) at some point or if I found it somewhere else. And yes, I do not think it is documented properly for whatever reason. Googling for "mathematica shrinkwrap" turns up several hits around 2008. Regards, Yves Am 24.07.2011 02:26, schrieb Murray Eisenberg: > How did you discover that option for Show? > > I find no entry for "ShrinkWrap" in the Documentation Center, see no > mention of that option value on the page for Show. On the Graphics3D ref > page, the option Method is listed in the More Information section, but > that Method option is not listed in the Options section of Examples. > > And of course the ref page for Method is essentially useless in such a > case. It's long been a documentation lacuna that there are no "inverse > references" for such options as Method that apply to multiple functions > -- from the general option such as Method back to all the functions for > which it's an option, along with some information as to what settings > are allowed for each such function (at least in cases where within the > target function page itself the settings are not all listed). > > > On 7/22/11 7:47 PM, Yves Klett wrote: >> g = Graphics3D[Cuboid[], SphericalRegion -> True] >> >> Show[g, Method -> {"ShrinkWrap" -> True}] > From mathgroup-adm at smc.vnet.net Mon Jul 25 05:59:48 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id A3FB46BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 05:59:48 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PAxn22028704; Mon, 25 Jul 2011 05:59:50 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id E5B64A8170; Mon, 25 Jul 2011 05:59:49 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id F04C4A8158; Mon, 25 Jul 2011 05:59:27 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25546 for mathgroup-newout; Mon, 25 Jul 2011 07:29:40 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25540 for mathgroup-newsend; Mon, 25 Jul 2011 07:29:39 -0400 (EDT) Date: Mon, 25 Jul 2011 07:29:39 -0400 (EDT) Message-Id: <201107251129.HAA25540 at smc.vnet.net> From: paulvonhippel at yahoo <paulvonhippel at yahoo.com> Subject: [mg120485] Re: TransformedDistribution -- odd problem References: <j0gh7s$bd7$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.104814 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1500_1599 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, ECARD_KNOWN_DOMAINS 0, FROM_NAME_PHRASE 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_YAHOO 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. A little more experimenting shows that the TransformedDistribution function will also not provide the mean of k+F where k is a constant and F has an F distribution -- i.e., Mean[TransformedDistribution[k*F , F \[Distributed] FRatioDistribution[v, v]]] If I changce the distribution of F to NormalDistribution or ChiSquareDistribution, I can get a mean for k*F or k+F. So the problem only occurs when I define a simple function of an F variable using the TransformedDistribution function. This all strikes me as very strange, and I'd be curious to know if others can reproduce my results. If you can't reproduce my results, I'd be interested in theories about why my results differ from yours. E.g., is there a setting I should change in the software? I am using version 8.0.0.0 and looking to upgrade to 8.0.1, if that makes a difference. Many thanks for any pointers. On Jul 24, 2:22 am, paulvonhippel at yahoo <paulvonhip... at yahoo.com> wrote: > I'm having a very strange problem with TransformedDistribution, where > I can calculate the mean of an F distribution but I cannot calculate > the mean of a constant multiplied by an F distribution. That is, if I > type > > Mean[TransformedDistribution[F, F \[Distributed] > FRatioDistribution[v, v]]] > > Mathematica gives me an answer. But if I type > > Mean[TransformedDistribution[k*F , F \[Distributed] > FRatioDistribution[v, v]]] > > Mathematica just echoes the input. I swear I got an answer for the > second expression earlier today. What am I doing wrong? From mathgroup-adm at smc.vnet.net Mon Jul 25 06:01:17 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 562636BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 06:01:17 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PB16NI029093; Mon, 25 Jul 2011 06:01:09 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id A32B9A8170; Mon, 25 Jul 2011 06:01:05 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 173E3A813D; Mon, 25 Jul 2011 06:01:04 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25571 for mathgroup-newout; Mon, 25 Jul 2011 07:30:12 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25566 for mathgroup-newsend; Mon, 25 Jul 2011 07:30:12 -0400 (EDT) Date: Mon, 25 Jul 2011 07:30:12 -0400 (EDT) Message-Id: <201107251130.HAA25566 at smc.vnet.net> From: Gabriel Landi <gtlandi at gmail.com> Subject: [mg120488] Re: NDSolve in matrix form References: <201107240719.DAA11656 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.104814 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1600_1699 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Hi Glenn. I solve a similar system in the following way: Say it is defined as X'(t) = a X(t) + b Then once i know a,b and my initial conditions ic, i do: vars = Table[f[i][t],{i,n}]; varsD = D[#,t ] &/@vars; eqns = Flatten@{Thread[varsD == a.vars + b], Thread[(vars /. t -> 0) == ic]}; sol = NDSolve[eqns,vars,{t,0,tf}] Good luck, Gabriel On Jul 24, 2011, at 4:19 AM, Glenn Carlson wrote: > I am trying to numerically solve systems of ODEs using Mathematica 7. > > The desired accuracy that I am striving for depends on the number of solution functions so I want to structure my solution algorithm to allow different numbers of solution functions. Solving the problem as a system of ODEs in matrix form seems the logical choice: > > dX/dt = f[X[t]], > > where f[X[t]] is a specified function, and X[t] is a vector of solution functions {x1[t],x2[t],...}. The initial conditions are specified by a vector X[0] = {x1[0],x2[0],...}. > > In my problem, the number of solution functions will usually vary from 3 to 7, but could be any number. > > One approach that doesn't work is: > > f := {f[[1]][t], f[[2]][t], f[[3]][t]} > fInit := {0, 0, 2} > mat := {(-3*f[[1]][t] - f[[2]][t]), 26.5*f[[1]][t] - f[[2]][t] - f[[1]][t]*f[[3]][t], f[[1]][t]*f[[2]][t] - f[[3]][t]} > solution = NDSolve[{Derivative[1][f][t] == mat, f[0] == fInit}, f, {t, 0, 17}] > > I don't know if the problem is in the way f is specified or in my expression for NDSolve. > > I'd appreciate any assistance. > > Thanks and regards, > > Glenn > From mathgroup-adm at smc.vnet.net Mon Jul 25 06:02:58 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id DBA316BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 06:02:58 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PB30sx029608; Mon, 25 Jul 2011 06:03:00 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id B8164BF417; Mon, 25 Jul 2011 06:02:59 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 4EF58A813D; Mon, 25 Jul 2011 06:02:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25528 for mathgroup-newout; Mon, 25 Jul 2011 07:29:18 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25523 for mathgroup-newsend; Mon, 25 Jul 2011 07:29:17 -0400 (EDT) Date: Mon, 25 Jul 2011 07:29:17 -0400 (EDT) Message-Id: <201107251129.HAA25523 at smc.vnet.net> From: Robert Rosenbaum <robertr at math.uh.edu> Subject: [mg120483] Re: TransformedDistribution, for a sum of M iid variables References: <201107232353.TAA08706 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.105414 >> Thanks for the neat proof. Sorry I wasn't clear about my goals. I >> want to include a sum of iid variables in a TransfornedDistribution, >> and then calculate the Mean and Variance of the distribution. I know I'm pointing out the obvious here, but the mean and variance of a sum of independent variables is the sum of the means and variances. No need to use TransformedDistribution or CumulantGeneratingFunction or anything else. Perhaps you're trying to provide an illustration to a classroom or something along those lines and you want to plot the density of the sum, then find its mean and variance. You can achieve this by convolving the individual densities. On Jul 23, 2011, at 6:53 PM, Bill Rowe wrote: > On 7/22/11 at 3:42 AM, paulvonhippel at yahoo.com (Paul von Hippel) > wrote: > >> Thanks for the neat proof. Sorry I wasn't clear about my goals. I >> want to include a sum of iid variables in a TransfornedDistribution, >> and then calculate the Mean and Variance of the distribution. > >> The iid variables need not be normal, and the TrasformedDistribution >> will contain other variables besides the iid sum. > > While it is possible to do this using TransformedDistribution, I > think it is far easier to to what you want with the various > generating functions built into Mathematica. Use the exponential > distribution as an example. For the exponential distribution: > > In[2]:= mg = > CumulantGeneratingFunction[ExponentialDistribution[a], t] > > Out[2]= Log[a/(a - t)] > > Cumulants sum. So, the cumulant generating function for the sum > n exponential deviates is simply n times the cumulant generating > function of the original exponential distribution. And the mean > is the first derivative of the cumulant generating function > evaluated at t = 0. So, the mean of the sum of n exponential > deviates is: > > In[3]:= D[n mg, t] /. t -> 0 > > Out[3]= n/a > > And the variance is given by the second derivative. So, the > desired variance is: > > In[4]:= D[n mg, {t, 2}] /. t -> 0 > > Out[4]= n/a^2 > > And to check the validity of the above, note: > > In[5]:= MomentGeneratingFunction[ExponentialDistribution[a], t] > > Out[5]= a/(a - t) > > In[8]:= MomentGeneratingFunction[GammaDistribution[n, 1/a], t] > > Out[8]= (1 - t/a)^(-n) > > That is, the sum of n exponential deviates is distributed as a > gamma distribution with parameters n, 1/a. So, > > In[9]:= Mean[GammaDistribution[n, 1/a]] > > Out[9]= n/a > > In[10]:= Variance[GammaDistribution[n, 1/a]] > > Out[10]= n/a^2 > > which verifies the earlier result using the cumulant generating > function. Note, this technique of using generating functions > does not require the sum to be of identically distributed > values. I could just as easily find the mean and variance of say > the sum of an exponential deviate and the sum of a normal > deviate using this technique. > > Best, Robert From mathgroup-adm at smc.vnet.net Mon Jul 25 06:03:27 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id B36416BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Mon, 25 Jul 2011 06:03:27 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6PB3TIg029671; Mon, 25 Jul 2011 06:03:29 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id D5BCCBF42E; Mon, 25 Jul 2011 06:03:28 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 6B15FA813D; Mon, 25 Jul 2011 06:03:27 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25485 for mathgroup-newout; Mon, 25 Jul 2011 07:28:24 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA25480 for mathgroup-newsend; Mon, 25 Jul 2011 07:28:23 -0400 (EDT) Date: Mon, 25 Jul 2011 07:28:23 -0400 (EDT) Message-Id: <201107251128.HAA25480 at smc.vnet.net> From: Paul von Hippel <paulvonhippel at yahoo.com> Subject: [mg120478] Re: TransformedDistribution, for a sum of M iid variables Reply-To: Paul von Hippel <paulvonhippel at yahoo.com> References: <20110721225621.9H9BM.1153349.imail@eastrmwml34> <j0b9p4$jl1$1 at smc.vnet.net> <201107222346.TAA28623 at smc.vnet.net> <4E2D4909.813B.006A.0 at newcastle.edu.au> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.25.105414 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_2000_2999 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, ECARD_KNOWN_DOMAINS 0, FROM_NAME_PHRASE 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FRAUD_WEBMAIL_REPLYTO 0, __FROM_YAHOO 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. I meant question ii -- i.e., how do I code this in Mathematica. The problem I am trying to solve is complicated and it wouldn't be productive to lay out all its details. But a simpler version would be this: I wish to calculate the mean and variance of the distribution U+avgMF, where U is a chi-square variable and avgMF is the average of M iid F variables. I can solve this problem by hand, but I wish solve this and similar, more complicated problems using the TransformedDistribution function. Many thanks for any pointers. ________________________________ From: Barrie Stokes <Barrie.Stokes at newcastle.edu.au> To: mathgroup at smc.vnet.net; paulvonhippel at yahoo <paulvonhippel at yahoo.com> Sent: Sunday, July 24, 2011 7:44 PM Subject: [mg120478] Re: TransformedDistribution, for a sum of M iid variables Hi Paul I for one am not clear on the exact question you are asking. If by "Is there a convenient way to do this?" and you mean by "this" "... replace Z2 with the average of M independent variables", do you mean: (i) how do I calculate the distribution of the average of M independent variables (a technical statistical question, the answer to which can be found an any statistics textbook), or (ii) how do I code the whole calculation in Mathematica (a Mathematica coding/representation question). Maybe, as with many questions posted on this group, more background details will help respondents to your question(s) give you better answers. For example, do you have a particular problem in mind (i.e., application), or are you just generally curious (always a great idea) about how to do such and similar things? (I often think there's a monotonically increasing relation between usefulness of answer and quality of question, if I may put it like that). Willing to help with either question ... Cheers Barrie >>> On 23/07/2011 at 9:46 am, in message <201107222346.TAA28623 at smc.vnet.net>, paulvonhippel at yahoo <paulvonhippel at yahoo.com> wrote: > To clarify what I'm looking for, suppose I have the following > distribution: > > TransformedDistribution[Z1+Sqrt[U/(n-1)]*Z2,{Z1\ > [Distributed]NormalDistribution[0,1],Z2\ > [Distributed]NormalDistribution[0,1],U\ > [Distributed]ChiSquareDistribution[n-1]}] > > I want to replace Z2 with the average of M independent variables that > are distributed like Z2. > Or I might want to replace U with the average of M independent > variables that are distributed like U. > > Is there a convenient way to do this? Thanks! From mathgroup-adm at smc.vnet.net Tue Jul 26 05:14:50 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 7EC9A6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:14:50 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAEpJm017934; Tue, 26 Jul 2011 05:14:51 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 86C4EBF47C; Tue, 26 Jul 2011 05:14:51 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id CC6F1BF471; Tue, 26 Jul 2011 05:14:49 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09208 for mathgroup-newout; Tue, 26 Jul 2011 07:05:58 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09203 for mathgroup-newsend; Tue, 26 Jul 2011 07:05:57 -0400 (EDT) Date: Tue, 26 Jul 2011 07:05:57 -0400 (EDT) Message-Id: <201107261105.HAA09203 at smc.vnet.net> From: "Joseph O'Rourke" <orourke at scinix.smith.edu> Subject: [mg120493] Re: ExampleData[{"Geometry3D", "Torus"}] To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.100314 Thanks, Heike, for the suggestion to use RevolutionPlot3D[]. I didn't even know about that function! So your suggestion is very useful. From mathgroup-adm at smc.vnet.net Tue Jul 26 05:14:50 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id C59E16BB19 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:14:50 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAEpjX017937; Tue, 26 Jul 2011 05:14:51 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id CDDB9A813D; Tue, 26 Jul 2011 05:14:51 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id CF943A818D; Tue, 26 Jul 2011 05:14:49 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09272 for mathgroup-newout; Tue, 26 Jul 2011 07:07:14 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09267 for mathgroup-newsend; Tue, 26 Jul 2011 07:07:13 -0400 (EDT) Date: Tue, 26 Jul 2011 07:07:13 -0400 (EDT) Message-Id: <201107261107.HAA09267 at smc.vnet.net> From: Heike Gramberg <heike.gramberg at gmail.com> Subject: [mg120500] Re: default font References: <201107251127.HAA25459 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.100314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_200_299 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, SMALL_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. The default FontSize of a notebook is set by the global option FontSize. You can change it by running something like SetOptions[$FrontEnd, FontSize -> 14] Heike. > everytime with new norebook i change font size. How to change it in > default manner? > From mathgroup-adm at smc.vnet.net Tue Jul 26 05:15:02 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 0295F6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:15:02 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAF2uD018025; Tue, 26 Jul 2011 05:15:03 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 51730A813D; Tue, 26 Jul 2011 05:15:03 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id E6F45A8176; Tue, 26 Jul 2011 05:15:01 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09223 for mathgroup-newout; Tue, 26 Jul 2011 07:06:19 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09218 for mathgroup-newsend; Tue, 26 Jul 2011 07:06:19 -0400 (EDT) Date: Tue, 26 Jul 2011 07:06:19 -0400 (EDT) Message-Id: <201107261106.HAA09218 at smc.vnet.net> From: Gary Wardall <gwardall at gmail.com> Subject: [mg120495] Re: Simplify[ArcTan[Tan[a] + Tan[b]]] References: <j0jk6s$ovj$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.100314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_600_699 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. On Jul 25, 6:31 am, rych <rych... at gmail.com> wrote: > Can't Mathematica tell anything about ArcTan[Tan[a] + Tan[b]]? Maybe > there exists no useful identity for that? By useful I mean the > expression with functions of the "angles" a and b other than tangents. > Thanks > Igor Igor, I'm not quite sure what you want Mathematica to do with it. It's not like ArcTan and Tan are truly inverses. ArcTan[Tan[W]] my not be W while Tan[ArcTan[W]] is W. Personally I think ArcTan[Tan[a] + Tan[b]] is simplified enough. Of course there are many alternate and equal expressions to it that could be of some use. But, which one? Gary From mathgroup-adm at smc.vnet.net Tue Jul 26 05:17:19 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 444846BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:17:19 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAHKNH018293; Tue, 26 Jul 2011 05:17:20 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 7878DA8110; Tue, 26 Jul 2011 05:17:20 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id B1637BF47C; Tue, 26 Jul 2011 05:17:18 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09230 for mathgroup-newout; Tue, 26 Jul 2011 07:06:30 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09224 for mathgroup-newsend; Tue, 26 Jul 2011 07:06:29 -0400 (EDT) Date: Tue, 26 Jul 2011 07:06:29 -0400 (EDT) Message-Id: <201107261106.HAA09224 at smc.vnet.net> From: JonSilverman <jonsilverman2006 at gmail.com> Subject: [mg120496] Can't make Input[] work the way I want it to. To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.100614 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ONE_WORD 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_300_399 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. When prompted for an input by Input[], I want to input a list of numbers. But when i try to enter more than one number I get something like this: RowBox[{"45", ",", "65", ",", "56"}] What is that? If I added spaces then the space got automatically turned into a multiplication sign! How can I enter a list at the input prompt? From mathgroup-adm at smc.vnet.net Tue Jul 26 05:18:48 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id C3F5D6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:18:48 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAIo5M018361; Tue, 26 Jul 2011 05:18:50 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 23001BF471; Tue, 26 Jul 2011 05:18:50 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 8EA45A8110; Tue, 26 Jul 2011 05:18:48 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09321 for mathgroup-newout; Tue, 26 Jul 2011 07:08:19 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09316 for mathgroup-newsend; Tue, 26 Jul 2011 07:08:19 -0400 (EDT) Date: Tue, 26 Jul 2011 07:08:19 -0400 (EDT) Message-Id: <201107261108.HAA09316 at smc.vnet.net> From: Brett Champion <brettc at wolfram.com> Subject: [mg120506] Re: And now for something completely different References: <201107251129.HAA25514 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.100614 On Jul 25, 2011, at 6:29 AM, Richard Fateman wrote: > > Can you start a paragraph with "And"? > > http://answers.yahoo.com/question/index?qid090413160418AAyfRO2 > > says, 'No.' > > > Stephen Wolfram often does so, and I find it annoying. > example > http://www.wolframscience.com/nksonline/page-42?firstview=1 > http://www.wolframscience.com/nksonline/page-849c-text?firstview=1 Other links, which show up above Yahoo! Answers in a Google search: http://wiki.answers.com/Q/Can_you_start_a_sentence_with_the_word_And = http://www.dailywritingtips.com/can-you-start-sentences-with-=93and=94-and= -=93but=94/ http://www.gpuss.co.uk/english_usage/start_sentence_conjunction.htm Brett= From mathgroup-adm at smc.vnet.net Tue Jul 26 05:21:39 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 0AE9C6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:21:39 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QALenv018750; Tue, 26 Jul 2011 05:21:40 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 57CD6BF47C; Tue, 26 Jul 2011 05:21:40 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id C2243A813D; Tue, 26 Jul 2011 05:21:38 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09215 for mathgroup-newout; Tue, 26 Jul 2011 07:06:09 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09210 for mathgroup-newsend; Tue, 26 Jul 2011 07:06:08 -0400 (EDT) Date: Tue, 26 Jul 2011 07:06:08 -0400 (EDT) Message-Id: <201107261106.HAA09210 at smc.vnet.net> From: Jack L Goldberg 1 <jackgold at umich.edu> Subject: [mg120494] Re: And now for something completely different References: <201107251129.HAA25514 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.101514 As long as we are talking about poor written English, a particularly annoying habit of Wolfram (or his editors) is the use of the word "essentially" throughout his tome, "Mathematica". It appears so often that it both disturbing and unessential (so to speak) :-) Jack Quoting Richard Fateman <fateman at cs.berkeley.edu>: > > Can you start a paragraph with "And"? > > http://answers.yahoo.com/question/index?qid090413160418AAyfRO2 > > says, 'No.' > > > Stephen Wolfram often does so, and I find it annoying. > example > http://www.wolframscience.com/nksonline/page-42?firstview=1 > > This construction seems to have been removed from the online documentation. > > > --RJF > > > > From mathgroup-adm at smc.vnet.net Tue Jul 26 05:22:42 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 84C2E6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:22:42 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAMgIh018808; Tue, 26 Jul 2011 05:22:43 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 9D238BF47C; Tue, 26 Jul 2011 05:22:43 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 118F2BF471; Tue, 26 Jul 2011 05:22:42 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09282 for mathgroup-newout; Tue, 26 Jul 2011 07:07:25 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09277 for mathgroup-newsend; Tue, 26 Jul 2011 07:07:24 -0400 (EDT) Date: Tue, 26 Jul 2011 07:07:24 -0400 (EDT) Message-Id: <201107261107.HAA09277 at smc.vnet.net> From: "Oleksandr Rasputinov" <oleksandr_rasputinov at hmamail.com> Subject: [mg120501] Re: Simplify[ArcTan[Tan[a] + Tan[b]]] References: <j0jk6s$ovj$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.101514 On Mon, 25 Jul 2011 12:31:40 +0100, rych <rychphd at gmail.com> wrote: > Can't Mathematica tell anything about ArcTan[Tan[a] + Tan[b]]? Maybe > there exists no useful identity for that? By useful I mean the > expression with functions of the "angles" a and b other than tangents. > Thanks > Igor It can certainly tell you something: In[1] := f = Function[{expr}, 100 Count[expr, _Tan, {0, Infinity}] + 100 Count[expr, _ArcTan, {0, Infinity}] + LeafCount[expr] ]; In[2] := FullSimplify[ ArcTan[Tan[a] + Tan[b]], ComplexityFunction -> f ] Out[2] = 1/2 I (Log[1-I Sec[a] Sec[b] Sin[a+b]]-Log[1+I Sec[a] Sec[b] Sin[a+b]]) However, this result is arguably neither interesting nor useful. Best, O. R. From mathgroup-adm at smc.vnet.net Tue Jul 26 05:25:17 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id B33B56BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:25:17 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAPILi019652; Tue, 26 Jul 2011 05:25:19 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id E7A63BF471; Tue, 26 Jul 2011 05:25:18 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 84507A8110; Tue, 26 Jul 2011 05:25:17 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09187 for mathgroup-newout; Tue, 26 Jul 2011 07:05:25 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09182 for mathgroup-newsend; Tue, 26 Jul 2011 07:05:25 -0400 (EDT) Date: Tue, 26 Jul 2011 07:05:25 -0400 (EDT) Message-Id: <201107261105.HAA09182 at smc.vnet.net> From: "Oleksandr Rasputinov" <oleksandr_rasputinov at hmamail.com> Subject: [mg120490] Re: And now for something completely different References: <j0jk9o$ovv$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.101514 On Mon, 25 Jul 2011 12:33:12 +0100, Richard Fateman <fateman at cs.berkeley.edu> wrote: > Can you start a paragraph with "And"? > > http://answers.yahoo.com/question/index?qid090413160418AAyfRO2 > > says, 'No.' > > Stephen Wolfram often does so, and I find it annoying. > example > http://www.wolframscience.com/nksonline/page-42?firstview=1 > > This construction seems to have been removed from the online > documentation. > > --RJF A curious choice of topic for this mailing list, if I may say so. Nevertheless, I do agree with you that Stephen Wolfram seems to have a rather awkward writing style. However, in my humble opinion, one should be wary of using Yahoo! Answers as a source, as it is populated almost entirely by trolls. Of course, I am sure you would not wish to be associated with such a thing. :-) Best, O. R. From mathgroup-adm at smc.vnet.net Tue Jul 26 05:26:49 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 48D366BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:26:49 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAQoEP019780; Tue, 26 Jul 2011 05:26:50 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 76EE4BF47C; Tue, 26 Jul 2011 05:26:50 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id B5C1DBF471; Tue, 26 Jul 2011 05:26:48 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09291 for mathgroup-newout; Tue, 26 Jul 2011 07:07:36 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09286 for mathgroup-newsend; Tue, 26 Jul 2011 07:07:35 -0400 (EDT) Date: Tue, 26 Jul 2011 07:07:35 -0400 (EDT) Message-Id: <201107261107.HAA09286 at smc.vnet.net> From: ccarter at mit.edu Subject: [mg120502] Re: And now for something completely different References: <201107251129.HAA25514 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.101514 And, how is this relevant to the group topic? And, for what it is worth: HAMLET ACT III SCENE I A room in the castle. [Enter KING CLAUDIUS, QUEEN GERTRUDE, POLONIUS, OPHELIA, ROSENCRANTZ, and GUILDENSTERN] KING CLAUDIUS And can you, by no drift of circumstance, Get from him why he puts on this confusion, Grating so harshly all his days of quiet With turbulent and dangerous lunacy? On Mon, 25 Jul 2011, Richard Fateman wrote: > Date: Mon, 25 Jul 2011 07:29:07 -0400 (EDT) > From: Richard Fateman <fateman at cs.berkeley.edu> > To: mathgroup at smc.vnet.net > Subject: And now for something completely different > > > Can you start a paragraph with "And"? > > http://answers.yahoo.com/question/index?qid090413160418AAyfRO2 > > says, 'No.' > > > Stephen Wolfram often does so, and I find it annoying. > example > http://www.wolframscience.com/nksonline/page-42?firstview=1 > > This construction seems to have been removed from the online documentation. > > > --RJF > > From mathgroup-adm at smc.vnet.net Tue Jul 26 05:29:42 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 772E76BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:29:42 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAThc0019998; Tue, 26 Jul 2011 05:29:43 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id B3A6DA814C; Tue, 26 Jul 2011 05:29:43 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id E98DEA813D; Tue, 26 Jul 2011 05:29:41 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09181 for mathgroup-newout; Tue, 26 Jul 2011 07:05:15 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09176 for mathgroup-newsend; Tue, 26 Jul 2011 07:05:14 -0400 (EDT) Date: Tue, 26 Jul 2011 07:05:14 -0400 (EDT) Message-Id: <201107261105.HAA09176 at smc.vnet.net> From: Heike Gramberg <heike.gramberg at gmail.com> Subject: [mg120489] Re: Grid Divider Style With Background Colors References: <201107251128.HAA25473 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.101514 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1200_1299 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __CP_URI_IN_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NO_MAILTO 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. You could do something like With[{gap = 1, elemWidth=3, h = 8, w = 7}, mat = RandomInteger[10, {h, w}]; colours = Table[Blend[{Lighter[Blue], Pink}, j/w], {i, h}, {j, w}]; Framed[Grid[ MapThread[ Framed[Pane[#1, Scaled[1]], ImageMargins -> gap, Background -> #2] &, {mat, colours}, 2], Spacings -> {0, 0}, ItemSize -> elemWidth], FrameMargins -> gap]] elemWidth is the width of the elements in the Grid and gap the distance between the lines. Heike On 25 Jul 2011, at 12:28, Don wrote: > Mathematica permits divider lines between rows and columns in a table > (grid) such > as this example from the documentation: > > Grid[Table[x, {4}, {11}], Dividers -> {{{{True, False}}, -1 -> True}, > False}] > > But, the dividers are single lines only. > > Sometimes double line dividers are desired > as shown in this table on the Web: > > http://www.assetcorrelation.com/user/correlations/90 > > Notice that the background color for an item is only within > the inside line of a double line divider. > > Is there any way to produce (a) this kind of divider (double line) > and (b) with background colors for specific items that don't cross > the inside line of the double line divider? > > Thank you in advance. > > Don > From mathgroup-adm at smc.vnet.net Tue Jul 26 05:30:50 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id BC7046BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:30:50 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAUqO4020216; Tue, 26 Jul 2011 05:30:52 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 04321A814C; Tue, 26 Jul 2011 05:30:52 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 4F1D4A813D; Tue, 26 Jul 2011 05:30:50 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09334 for mathgroup-newout; Tue, 26 Jul 2011 07:08:30 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09330 for mathgroup-newsend; Tue, 26 Jul 2011 07:08:29 -0400 (EDT) Date: Tue, 26 Jul 2011 07:08:29 -0400 (EDT) Message-Id: <201107261108.HAA09330 at smc.vnet.net> From: Murray Eisenberg <murray at math.umass.edu> Subject: [mg120507] Re: And now for something completely different Reply-To: murray at math.umass.edu References: <201107251129.HAA25514 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.101514 Disallowing conjunctions such as "and" and "but" to introduce sentences is one of those prissy prohibitions promulgated by grammar police, especially in school. But it's quite common and acceptable today to violate that, at least in informal writing. And certainly in speaking. Yet the usage is long established in English: check the OED. And indeed Stephen Wolfram often does begin sentences with "and". Which you find annoying. But you seem to find so much that Stephen Wolfram does annoying, so why should this be any different? On 7/25/11 7:29 AM, Richard Fateman wrote: > Can you start a paragraph with "And"? > > http://answers.yahoo.com/question/index?qid090413160418AAyfRO2 > > says, 'No.' > > > Stephen Wolfram often does so, and I find it annoying. > example > http://www.wolframscience.com/nksonline/page-42?firstview=1 > > This construction seems to have been removed from the online documentation. > > > --RJF > -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 413 549-1020 (H) University of Massachusetts 413 545-2859 (W) 710 North Pleasant Street fax 413 545-1801 Amherst, MA 01003-9305 From mathgroup-adm at smc.vnet.net Tue Jul 26 05:33:27 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id DD84A6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:33:26 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAXSwH020433; Tue, 26 Jul 2011 05:33:28 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 1C643A814C; Tue, 26 Jul 2011 05:33:28 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 3E0F0A813D; Tue, 26 Jul 2011 05:33:26 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09252 for mathgroup-newout; Tue, 26 Jul 2011 07:06:52 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09247 for mathgroup-newsend; Tue, 26 Jul 2011 07:06:51 -0400 (EDT) Date: Tue, 26 Jul 2011 07:06:51 -0400 (EDT) Message-Id: <201107261106.HAA09247 at smc.vnet.net> From: Paul von Hippel <paulvonhippel at yahoo.com> Subject: [mg120498] Re: TransformedDistribution -- odd problem Reply-To: Paul von Hippel <paulvonhippel at yahoo.com> References: <j0gh7s$bd7$1 at smc.vnet.net> <201107251129.HAA25532 at smc.vnet.net> <4E2EA10E.813B.006A.0 at newcastle.edu.au> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.102414 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1300_1399 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, ECARD_KNOWN_DOMAINS 0, FROM_NAME_PHRASE 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FRAUD_WEBMAIL_REPLYTO 0, __FROM_YAHOO 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. That problem went away, thanks. I upgraded to 8.0.1, and I learned that Mathematica can have trouble evaluating symbols with subscripts. ________________________________ From: Barrie Stokes <Barrie.Stokes at newcastle.edu.au> To: mathgroup at smc.vnet.net; paulvonhippel at yahoo <paulvonhippel at yahoo.com> Sent: Monday, July 25, 2011 8:12 PM Subject: [mg120498] Re: TransformedDistribution -- odd problem Hi Paul Could we see an example of "a more complicated example where Mathematica will give the mean of A and the mean of B, but when I ask for the mean of A+B Mathematica just echoes the input", please? Barrie >>> On 25/07/2011 at 9:29 pm, in message <201107251129.HAA25532 at smc.vnet.net>, paulvonhippel at yahoo <paulvonhippel at yahoo.com> wrote: > I also have a more complicated example where Mathematica will give the > mean of A and the mean of B, but when I ask for the mean of A+B > Mathematica just echoes the input. (Here A and B are complicated > functions of several random variables.) This strikes me as really odd, > since of course Mean(A+B)=Mean(A)+Mean(B). > > What could be going on here? Under what circumstances does Mathematica > echo the input when asked to provide a Mean? Is there a setting I need > to change? I suspect this is a software issue rather than a > mathematical issue. From mathgroup-adm at smc.vnet.net Tue Jul 26 05:34:52 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 999BE6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:34:52 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAYrRf021297; Tue, 26 Jul 2011 05:34:53 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id E7891BF471; Tue, 26 Jul 2011 05:34:53 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 4F747A8110; Tue, 26 Jul 2011 05:34:52 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09307 for mathgroup-newout; Tue, 26 Jul 2011 07:07:57 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09302 for mathgroup-newsend; Tue, 26 Jul 2011 07:07:57 -0400 (EDT) Date: Tue, 26 Jul 2011 07:07:57 -0400 (EDT) Message-Id: <201107261107.HAA09302 at smc.vnet.net> From: Gregory Lypny <gregory.lypny at jmsb.concordia.ca> Subject: [mg120504] Re: Preventing In-line Math Typesetting From Being Scaled Down in Text To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.101815 Thank you, John. Excellent. Gregory On Mon, Jul 25, 2011, at 4:39 AM, jfultz at wolfram.com wrote: > On Fri, 22 Jul 2011 19:46:07 -0400 (EDT), Gregory Lypny wrote: > > Hi everyone, > > > > When I include fractions as inline math typesetting, they are scaled down > > to fit the effective line height of the cell. How can I prevent this or, > > I guess, make the line height automatically expand to accommodate the > > math? If my regular text in the cell is 12-point times, I'd like all > > math variables that are not subscripts or superscripts to be 12-point as > > well. > > > > Incidentally, other big typeset objects like matrices are not scaled > > down, or at least they down't appear to be. > > > > Sincerely, > > > > Gregory > > If you look in Core.nb, you'll find a style called "InlineCell". This style is > automatically applied to all inline cells everywhere. One of the options it has > set is: > > ScriptLevel->1 > > This is what's causing the behavior you're seeing. You can override this with a > custom stylesheet. For example, in a given notebook, you can make a private > override by doing Format->Edit Stylesheet..., and pasting and interpreting the > following cell expression at the end of the resulting stylesheet notebook: > > > Cell[StyleData["InlineCell"], ScriptLevel->0] > > > Sincerely, > > John Fultz > jfultz at wolfram.com > User Interface Group > Wolfram Research, Inc. > > and pasting and interpreting the following cell expression at the end of the resulting stylesheet notebook: Cell[StyleData["InlineCell"], ScriptLevel->0] Sincerely, John Fultzjfultz at wolfram.com User Interface Group Wolfram Research, Inc. From mathgroup-adm at smc.vnet.net Tue Jul 26 05:37:26 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 465246BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:37:26 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAbRBO021541; Tue, 26 Jul 2011 05:37:27 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 48656BF471; Tue, 26 Jul 2011 05:37:27 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 7A086A8110; Tue, 26 Jul 2011 05:37:25 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09193 for mathgroup-newout; Tue, 26 Jul 2011 07:05:36 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09188 for mathgroup-newsend; Tue, 26 Jul 2011 07:05:35 -0400 (EDT) Date: Tue, 26 Jul 2011 07:05:35 -0400 (EDT) Message-Id: <201107261105.HAA09188 at smc.vnet.net> From: Glenn Carlson <g.crlsn at gmail.com> Subject: [mg120491] Re: NDSolve in matrix form To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.102715 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_2000_2999 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Here's a more complicated example. The system is of the form A[i]'[t] + a[[i]] A[i][t] = Sum[G[t][[i]][[j]] A[j][t], {j,1,n}], where A is an array of solution functions with i = 1 to n. G[t][[]][[]] and a[[]] are specified arrays. Note how I can work with different numbers of solution functions just by assigning a different value to n and defining the inputs G, a, AInit, and tf. I'm still trying to make sense out why the single and double brackets have to be specified as they are, and why sometimes the index is after t and sometimes before t. Thanks to all. Glenn ----- ClearAll; n := 4 AInit := {1, 0, 0, 0}; G[t_] = {{0, t, 1, 0}, {0, 0, t, 1}, {1, 0, 0, t}, {t, 1, 0, 0}}; a = {5, 3, 2, 1}; tf := 5 (* Create a list of the solution functions excl. the argument t. *) Asol = Table[A[i], {i, 1, n}]; (* Create a list of ODEs and ICs for NDSolve. *) Table[Asol[[i]][t], {i, 1, n}]; eqns = Table[ Asol[[i]]'[t] + a[[i]] Asol[[i]][t] == Sum[G[t][[i]][[j]] Asol[[j]][t], {j, 1, n}], {i, 1, n}]; ic := Table[Asol[[i]][0] == AInit[[i]], {i, 1, n}]; sys = Join[eqns, ic]; Table[Asol[[i]]'[t] + a[[i]] Asol[[i]][t] == Sum[G[t][[i]][[j]] Asol[[j]][t], {j, 1, n}], {i, 1, n}] // MatrixForm Table[Asol[[i]][0] == AInit[[i]], {i, 1, n}] // MatrixForm solution1 = NDSolve[sys, Asol, {t, 0, tf}, MaxSteps -> Infinity] (* Create a list of solution functions incl. the argument t for ParametricPlot3D. *) (* fsolt=Table[A[i][t],{i,1,n}] ParametricPlot3D[Evaluate[fsolt/.solution1],{t,0,tf},PlotPoints->1000,ColorFunction->(ColorData["Rainbow"][#4]&)] *) (* Plot solutions as functions of time. *) (* Plot[Evaluate[A[1][t]/.solution1],{t,0,tf},PlotRange->{0,2}] Plot[Evaluate[A[2][t]/.solution1],{t,0,tf},PlotRange->{0,2}] Plot[Evaluate[A[3][t]/.solution1],{t,0,tf},PlotRange->{0,2}] Plot[Evaluate[A[4][t]/.solution1],{t,0,tf},PlotRange->{0,2}] *) Asolt = Table[A[i][t], {i, 1, n}]; Asum[t_] := Sum[(A[i][t] /. solution1), {i, 1, n}] Plot[{Evaluate[Asolt /. solution1], Asum[t]}, {t, 0, tf}, PlotRange -> Automatic] From mathgroup-adm at smc.vnet.net Tue Jul 26 05:38:59 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 71C0F6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:38:59 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAd01A021643; Tue, 26 Jul 2011 05:39:00 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 46D5DA813D; Tue, 26 Jul 2011 05:39:00 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 34F39BF471; Tue, 26 Jul 2011 05:38:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09301 for mathgroup-newout; Tue, 26 Jul 2011 07:07:47 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09296 for mathgroup-newsend; Tue, 26 Jul 2011 07:07:46 -0400 (EDT) Date: Tue, 26 Jul 2011 07:07:46 -0400 (EDT) Message-Id: <201107261107.HAA09296 at smc.vnet.net> From: Jacopo Bertolotti <J.Bertolotti at utwente.nl> Subject: [mg120503] Roots of a Jacobi polynomial To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.102715 Dear MathGroup, Mathematica implements Jacobi polynomials as JacobiP[n,a,b,x] where n is the order of the polynomial. As it can be checked plotting it a Jacobi polynomial has n real roots in the interval [-1,1] and it goes rapidly to infinity outside this interval (at least when both a and b are >-1). The problem arise when you try to find the roots of such a polynomial for a relatively high value of n. As an example the command NSolve[JacobiP[20, -0.5, -0.5, x] == 0, x] correctly returns {{x -> -0.99702}, {x -> -0.972111}, {x -> -0.92418}, {x -> -0.852398}, {x -> -0.760555}, {x -> -0.649375}, {x -> -0.522529}, {x -> -0.382672}, {x -> -0.233449}, {x -> -0.0784582}, {x -> 0.0784591}, {x -> 0.233445}, {x -> 0.382684}, {x -> 0.522504}, {x -> 0.649423}, {x -> 0.760466}, {x -> 0.852539}, {x -> 0.924002}, {x -> 0.972267}, {x -> 0.996958}} while NSolve[JacobiP[25, -0.5, -0.5, x] == 0, x] gives {{x -> -1.01869}, {x -> -0.979859 - 0.0479527 I}, {x -> -0.979859 + 0.0479527 I}, {x -> -0.870962 - 0.070991 I}, {x -> -0.870962 + 0.070991 I}, {x -> -0.71378 - 0.0505783 I}, {x -> -0.71378 + 0.0505783 I}, {x -> -0.571283}, {x -> -0.486396}, {x -> -0.367829}, {x -> -0.248377}, {x -> -0.125513}, {x -> -0.0000434329}, {x -> 0.125442}, {x -> 0.2489}, {x -> 0.365644}, {x -> 0.496977}, {x -> 0.555743}, {x -> 0.717741- 0.0573399 I}, {x -> 0.717741+ 0.0573399 I}, {x -> 0.87423- 0.0652273 I}, {x -> 0.87423+ 0.0652273 I}, {x -> 0.977876- 0.0422422 I}, {x -> 0.977876+ 0.0422422 I}, {x -> 1.01494}} i.e. both complex roots and roots outside the [-1,1] interval. Substituting any of these values back into the polynomial easily show that these values are not roots at all. Also notice that using the command Root (e.g. Sort@Table[Root[JacobiP[25, -0.5, -0.5, x], i], {i, 1, 25}]) gives different but still wrong results. On a related note: NIntegrate sometimes gives wrong results when integrating function of the form (1-x)^a (1+x)^b f[x] and I feel this might related to the Gauss-Jacobi quadrature failing to retrieve the correct roots of a Jacobi polynomial. Do anyone have a solution for that? Thank you Jacopo From mathgroup-adm at smc.vnet.net Tue Jul 26 05:41:40 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id BA9CF6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:41:40 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAfg6K021957; Tue, 26 Jul 2011 05:41:42 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 11C72A814C; Tue, 26 Jul 2011 05:41:42 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 064DEFF003; Tue, 26 Jul 2011 05:41:40 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09238 for mathgroup-newout; Tue, 26 Jul 2011 07:06:41 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09233 for mathgroup-newsend; Tue, 26 Jul 2011 07:06:40 -0400 (EDT) Date: Tue, 26 Jul 2011 07:06:40 -0400 (EDT) Message-Id: <201107261106.HAA09233 at smc.vnet.net> From: Paul von Hippel <paulvonhippel at yahoo.com> Subject: [mg120497] Re: TransformedDistribution -- odd problem Reply-To: Paul von Hippel <paulvonhippel at yahoo.com> References: <j0gh7s$bd7$1 at smc.vnet.net> <201107251129.HAA25540 at smc.vnet.net> <4E2EA04E.813B.006A.0 at newcastle.edu.au> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.103314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_2000_2999 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, ECARD_KNOWN_DOMAINS 0, FROM_NAME_PHRASE 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __C230066_P2 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FRAUD_WEBMAIL_REPLYTO 0, __FROM_YAHOO 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Thanks -- that fixes it! Bonus question: if we don't specify v2>2, why doesn't Mathematica return a two part solution: k v2 / (v2-2) v2>2 Indeterminate True That's what it does if we request the mean of F -- why doesn't it do the same if we request the mean of k*F. ________________________________ From: Barrie Stokes <Barrie.Stokes at newcastle.edu.au> To: mathgroup at smc.vnet.net; paulvonhippel at yahoo <paulvonhippel at yahoo.com> Sent: Monday, July 25, 2011 8:09 PM Subject: [mg120497] Re: TransformedDistribution -- odd problem Hi Paul There are conditions on the v1 and v2, the degrees of freedom of the F distribution: Assuming[v2 > 2, Mean[TransformedDistribution[F , F \[Distributed] FRatioDistribution[v1, v2]]]] {Assuming[v2 > 2, Mean[TransformedDistribution[k*F , F \[Distributed] FRatioDistribution[v1, v2]]]], k*v2/(-2 + v2)} {Assuming[v2 > 2, Mean[TransformedDistribution[k + F , F \[Distributed] FRatioDistribution[v1, v2]]]], k + v2/(-2 + v2)} // FullSimplify which shows precisely what you expect for k*F and k+F. Cheers Barrie >>> On 25/07/2011 at 9:29 pm, in message <201107251129.HAA25540 at smc.vnet.net>, paulvonhippel at yahoo <paulvonhippel at yahoo.com> wrote: > A little more experimenting shows that the TransformedDistribution > function will also not provide the mean of k+F where k is a constant > and F has an F distribution -- i.e., > Mean[TransformedDistribution[k*F , F \[Distributed] > FRatioDistribution[v, v]]] > > If I changce the distribution of F to NormalDistribution or > ChiSquareDistribution, I can get a mean for k*F or k+F. So the problem > only occurs when I define a simple function of an F variable using the > TransformedDistribution function. > This all strikes me as very strange, and I'd be curious to know if > others can reproduce my results. If you can't reproduce my results, > I'd be interested in theories about why my results differ from yours. > E.g., is there a setting I should change in the software? > > I am using version 8.0.0.0 and looking to upgrade to 8.0.1, if that > makes a difference. > > Many thanks for any pointers. > > On Jul 24, 2:22 am, paulvonhippel at yahoo <paulvonhip... at yahoo.com> > wrote: >> I'm having a very strange problem with TransformedDistribution, where >> I can calculate the mean of an F distribution but I cannot calculate >> the mean of a constant multiplied by an F distribution. That is, if I >> type >> >> Mean[TransformedDistribution[F, F \[Distributed] >> FRatioDistribution[v, v]]] >> >> Mathematica gives me an answer. But if I type >> >> Mean[TransformedDistribution[k*F , F \[Distributed] >> FRatioDistribution[v, v]]] >> >> Mathematica just echoes the input. I swear I got an answer for the >> second expression earlier today. What am I doing wrong? From mathgroup-adm at smc.vnet.net Tue Jul 26 05:41:46 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 952B56BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:41:46 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAfhTn021964; Tue, 26 Jul 2011 05:41:43 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 603E9BF42E; Tue, 26 Jul 2011 05:41:43 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id E08D1A813D; Tue, 26 Jul 2011 05:41:41 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09202 for mathgroup-newout; Tue, 26 Jul 2011 07:05:47 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09197 for mathgroup-newsend; Tue, 26 Jul 2011 07:05:46 -0400 (EDT) Date: Tue, 26 Jul 2011 07:05:46 -0400 (EDT) Message-Id: <201107261105.HAA09197 at smc.vnet.net> From: Richard Fateman <fateman at eecs.berkeley.edu> Subject: [mg120492] Re: And now for something completely different References: <201107251129.HAA25514 at smc.vnet.net> <52E64356-FB20-4D6A-B89F-9125DD8B55B8 at wolfram.com> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.103314 On 7/25/2011 7:36 AM, Brett Champion wrote: > On Jul 25, 2011, at 6:29 AM, Richard Fateman wrote: > >> Can you start a paragraph with "And"? >> >> http://answers.yahoo.com/question/index?qid090413160418AAyfRO2 >> >> says, 'No.' >> >> >> Stephen Wolfram often does so, and I find it annoying. >> example >> http://www.wolframscience.com/nksonline/page-42?firstview=1 >> > http://www.wolframscience.com/nksonline/page-849c-text?firstview=1 Thanks for the pointer! I now know that Wolfram knows that it will be annoying to some people. I find it interesting that on this particular page, striking out each of the "And"s at the beginning of the sentences has no negative consequences, at least as I read it. There is a reason, one that some may dismiss as pedantry, for removing the "And"s and fixing some of the other oddities of Wolfram's prose. That is, formal English discourse has sentences with "subject" and "predicate". They adhere to rules of syntax and can be formally diagrammed. Humans and (especially of interest to some people) computer programs can sometimes read and parse sentences, assign semantic interpretations, etc. Sentence fragments and "extra" words are not helpful. By the way, a sentence beginning with "But" which is not part of a subordinate clause is also a no-no traditionally... Using the word "And" at the beginning of a sentence to indicate that this sentence is related to the one before it should not be required since adjacent sentences in the same paragraph should be related. Adjacent paragraphs in the same chapter should be related as well, so they need not begin with "And". The occasional relaxation of rules as some kind of device or flourish may be effective. I find Wolfram's use of "And" to be annoying. But how did he know he would annoy me? RJF > > Other links, which show up above Yahoo! Answers in a Google search: > > http://wiki.answers.com/Q/Can_you_start_a_sentence_with_the_word_And > http://www.dailywritingtips.com/can-you-start-sentences-with-?and?-and-?but?/ > http://www.gpuss.co.uk/english_usage/start_sentence_conjunction.htm > > Brett From mathgroup-adm at smc.vnet.net Tue Jul 26 05:42:47 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 31AD26BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:42:47 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAgm5S022082; Tue, 26 Jul 2011 05:42:48 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 722D6A8110; Tue, 26 Jul 2011 05:42:48 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id CCD52BF42E; Tue, 26 Jul 2011 05:42:46 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09313 for mathgroup-newout; Tue, 26 Jul 2011 07:08:08 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09308 for mathgroup-newsend; Tue, 26 Jul 2011 07:08:08 -0400 (EDT) Date: Tue, 26 Jul 2011 07:08:08 -0400 (EDT) Message-Id: <201107261108.HAA09308 at smc.vnet.net> From: Richard Fateman <fateman at eecs.berkeley.edu> Subject: [mg120505] Re: And now for something completely different References: <201107251129.HAA25514 at smc.vnet.net> <alpine.LRH.2.00.1107250900100.19262 at pruffle.mit.edu> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.103314 On 7/25/2011 6:12 AM, ccarter at mit.edu wrote: > And, how is this relevant to the group topic? > > And, for what it is worth: > > HAMLET > ACT III > SCENE I A room in the castle. > [Enter KING CLAUDIUS, QUEEN GERTRUDE, POLONIUS, > OPHELIA, ROSENCRANTZ, and GUILDENSTERN] > > KING CLAUDIUS And can you, by no drift of circumstance, > Get from him why he puts on this confusion, > Grating so harshly all his days of quiet > With turbulent and dangerous lunacy? One can find arguments on both sides, e.g. http://www.dailywritingtips.com/can-you-start-sentences-with-%E2%80%9Cand%E2%80%9D-and-%E2%80%9Cbut%E2%80%9D/ For example, I find the quote from Shakespeare to be non- annoying, perhaps because as "spoken" English it is informal, it is not repetitive, and in verse. Presumably Shakespeare had some motive based on cadence. On the other hand, your first sentence beginning with "And" is grating, though understandable as humor/snark.. The second one actually operates as a conjunction, sort of. Email probably falls into the category of "informal", so some syntax might be more relaxed. I have noticed many of my colleagues begin all their initial sentences with "So, .." perhaps as a way of clearing their throats and seeing if their voices still work. A reference claiming that this originated in Microsoft, is, in my opinion, bogus: http://boingboing.net/2010/06/17/origins-of-using-so.html As for why this is relevant: I was reading some documentation for Mathematica. And it had a link to Wolfram's A New Kind of Science. :) RJF > > > On Mon, 25 Jul 2011, Richard Fateman wrote: > >> Date: Mon, 25 Jul 2011 07:29:07 -0400 (EDT) >> From: Richard Fateman <fateman at cs.berkeley.edu> >> To: mathgroup at smc.vnet.net >> Subject: And now for something completely different >> >> >> Can you start a paragraph with "And"? >> >> http://answers.yahoo.com/question/index?qid090413160418AAyfRO2 >> >> says, 'No.' >> >> >> Stephen Wolfram often does so, and I find it annoying. >> example >> http://www.wolframscience.com/nksonline/page-42?firstview=1 >> >> This construction seems to have been removed from the online >> documentation. >> >> >> --RJF >> >> From mathgroup-adm at smc.vnet.net Tue Jul 26 05:42:59 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id D427C6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Tue, 26 Jul 2011 05:42:59 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6QAh1nJ022151; Tue, 26 Jul 2011 05:43:01 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id B4DEAA8110; Tue, 26 Jul 2011 05:43:00 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id EB3C2BF42E; Tue, 26 Jul 2011 05:42:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09260 for mathgroup-newout; Tue, 26 Jul 2011 07:07:03 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA09255 for mathgroup-newsend; Tue, 26 Jul 2011 07:07:02 -0400 (EDT) Date: Tue, 26 Jul 2011 07:07:02 -0400 (EDT) Message-Id: <201107261107.HAA09255 at smc.vnet.net> From: DANA DELOUIS <dana01 at me.com> Subject: [mg120499] Re: FinancialData still broken To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.26.103314 Hi. Here's some added thoughts on the issue you bring up. I added some stocks just in case the issue is related to mutual funds. stocks = {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", "JMSCX=94, "JNGIX=94, "JNGLX", "JNMCX=94, "JNOSX", "JNSGX", "JNSTX", "PTTAX", "RGACX=94, "STRFX=94, "AAPL", "IBM", "INTL", "VZ", "GE"}; I've noticed that if I ask for price about 100 times, then about 80% of the time I get a correct value, and 20% an incorrect value (n*^8). Here, a value of 8.91 was returned 77 times, or 77% (out of 100 tries) f[n_]:=Table[FinancialData[stocks[[n]],"Price"],{100}]//Tally//Sort f[1] {{8.91,77},{5.032406*10^8,23}} This took a little while, but I did it 100 times on each stock. m=Table[f[j],{j,stocks//Length}]; m//TableForm Here's a count of the successful returns: good=m[[All,1,-1]] {76,74,77,77,87,77,90,79,81,82,76,79,79,77,85,77,80,78,76,81} Here's the Mean and SD. As you can see, there's only about a 80% success rate, with a small Stand Deviation. {Mean[good],StandardDeviation[good]}//N {79.4, 4.031455} With such a consistent failure rate, it sounds like a communication problem between servers Out of curiosity, here are the different values that were high. I don't see any pattern to these nonsense values. m[[All,2,1]]//Union 5.031051*10^8 5.031396*10^8 5.031565*10^8 5.031669*10^8 5.031676*10^8 5.031677*10^8 5.031678*10^8 5.032022*10^8 5.032406*10^8 5.055450*10^8 5.055453*10^8 5.055455*10^8 5.055456*10^8 5.055457*10^8 Thanks for bringing this up. = = = = = = = = = = Dana DeLouis $Version 8.0 for Mac OS X x86 (64-bit) (November 6, 2010) On Jul 21, 5:47 am, DrMajorBob <btre... at austin.rr.com> wrote: Erroneous prices are randomly returned: FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", "PTTAX", "RGACX", "STRFX"} {8.81, 72.4, 14., 10.64, 46.49, 12.48, 5.03202*10^8, 26.48, 23.72, 45.35, 12.48, 5.03241*10^8, 11.04, 31.44, 32.47} FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", "PTTAX", "RGACX", "STRFX"} {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8, 5.03168*10^8, 32.61, 26.48, 23.72, 5.03168*10^8, 5.03168*10^8, 3.1, 11.04, 5.03241*10^8, 32.47} Bobby -- DrMajor... at yahoo.com From mathgroup-adm at smc.vnet.net Wed Jul 27 04:17:45 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 31B4A6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:17:45 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9HkCd008133; Wed, 27 Jul 2011 04:17:46 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 1DBD8FF006; Wed, 27 Jul 2011 04:17:46 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 764FDFF007; Wed, 27 Jul 2011 04:17:44 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21080 for mathgroup-newout; Wed, 27 Jul 2011 06:10:54 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21069 for mathgroup-newsend; Wed, 27 Jul 2011 06:10:53 -0400 (EDT) Date: Wed, 27 Jul 2011 06:10:53 -0400 (EDT) Message-Id: <201107271010.GAA21069 at smc.vnet.net> From: "Max Böhring" <texuser at arcor.de> Subject: [mg120509] Path variable To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.90314 Hi, how do I delete a mistakenly added folder from the $Path variable? Thanks, Max From mathgroup-adm at smc.vnet.net Wed Jul 27 04:18:03 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 5F87A6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:18:03 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9I4Vm008173; Wed, 27 Jul 2011 04:18:04 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id B6F43FF006; Wed, 27 Jul 2011 04:18:04 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 5CDEFFF004; Wed, 27 Jul 2011 04:18:03 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21054 for mathgroup-newout; Wed, 27 Jul 2011 06:10:42 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21049 for mathgroup-newsend; Wed, 27 Jul 2011 06:10:42 -0400 (EDT) Date: Wed, 27 Jul 2011 06:10:42 -0400 (EDT) Message-Id: <201107271010.GAA21049 at smc.vnet.net> From: Jay Bee <jiri.bocan at gmail.com> Subject: [mg120508] Re: Simplify[ArcTan[Tan[a] + Tan[b]]] References: <j0jk6s$ovj$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.90314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_100_199 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, SMALL_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Since tg(a) + tg(b) = sin(a+b)/[cos(a)*cos(b)] = tg(a+b)*[1-tg(a)*tg(b)] = [tg(a)*tg(b)]*[cotg(a) + cotg(b)] maybe Mathematica is right... From mathgroup-adm at smc.vnet.net Wed Jul 27 04:18:10 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 248256BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:18:10 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9IBU4008187; Wed, 27 Jul 2011 04:18:11 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 705D0A8176; Wed, 27 Jul 2011 04:18:11 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 96F4BA8158; Wed, 27 Jul 2011 04:18:09 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21140 for mathgroup-newout; Wed, 27 Jul 2011 06:11:26 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21135 for mathgroup-newsend; Wed, 27 Jul 2011 06:11:25 -0400 (EDT) Date: Wed, 27 Jul 2011 06:11:25 -0400 (EDT) Message-Id: <201107271011.GAA21135 at smc.vnet.net> From: Leo Ditolaghi <leoditolaghi at gmail.com> Subject: [mg120512] Re: And now for something completely different References: <j0jk9o$ovv$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.90314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_10_99 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, SMALL_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. And really, gentlemen. ;-) Leo From mathgroup-adm at smc.vnet.net Wed Jul 27 04:19:43 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 859D46BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:19:43 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9JiN9008260; Wed, 27 Jul 2011 04:19:44 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 92AEAA80E4; Wed, 27 Jul 2011 04:19:44 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 21AB1FF003; Wed, 27 Jul 2011 04:19:43 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21217 for mathgroup-newout; Wed, 27 Jul 2011 06:13:14 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21212 for mathgroup-newsend; Wed, 27 Jul 2011 06:13:14 -0400 (EDT) Date: Wed, 27 Jul 2011 06:13:14 -0400 (EDT) Message-Id: <201107271013.GAA21212 at smc.vnet.net> From: Bob Hanlon <hanlonr at cox.net> Subject: [mg120522] Re: work the way I want it to. Reply-To: hanlonr at cox.net To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.90314 Input it as a List, i.e., include the List brackets: {1,2,3,4,5} Bob Hanlon ---- JonSilverman <jonsilverman2006 at gmail.com> wrote: ============= When prompted for an input by Input[], I want to input a list of numbers. But when i try to enter more than one number I get something like this: RowBox[{"45", ",", "65", ",", "56"}] What is that? If I added spaces then the space got automatically turned into a multiplication sign! How can I enter a list at the input prompt? From mathgroup-adm at smc.vnet.net Wed Jul 27 04:21:33 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 3EFF96BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:21:33 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9LY5L008490; Wed, 27 Jul 2011 04:21:34 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 1BA22FF004; Wed, 27 Jul 2011 04:21:34 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 80234FF009; Wed, 27 Jul 2011 04:21:32 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21280 for mathgroup-newout; Wed, 27 Jul 2011 06:14:41 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21275 for mathgroup-newsend; Wed, 27 Jul 2011 06:14:40 -0400 (EDT) Date: Wed, 27 Jul 2011 06:14:40 -0400 (EDT) Message-Id: <201107271014.GAA21275 at smc.vnet.net> From: "E. Frauendorfer" <he.frauendorfer at t-online.de> Subject: [mg120530] File directory To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.91214 Hi, I am often working in two kernels with Mathematica Programs coming from different directories also from different drives. After working some time, I very often don't remember the origin of a particular open program. On opening a notebook the name of the program always appears on top of the notebook, but not the origin. In my latest installation of Mathematica (8.01 on Win 7, 64 bit) I am no longer able to find the origin of an open program. Please tell, how to recover this feature. Thanks E.F. From mathgroup-adm at smc.vnet.net Wed Jul 27 04:23:41 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 2643C6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:23:41 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9Ng9n008611; Wed, 27 Jul 2011 04:23:42 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 377C1FF003; Wed, 27 Jul 2011 04:23:42 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id D05E1A80E4; Wed, 27 Jul 2011 04:23:40 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21235 for mathgroup-newout; Wed, 27 Jul 2011 06:13:36 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21230 for mathgroup-newsend; Wed, 27 Jul 2011 06:13:35 -0400 (EDT) Date: Wed, 27 Jul 2011 06:13:35 -0400 (EDT) Message-Id: <201107271013.GAA21230 at smc.vnet.net> From: Simon <simonjtyler at gmail.com> Subject: [mg120524] Re: Can't make Input[] work the way I want it to. Reply-To: comp.soft-sys.math.mathematica at googlegroups.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.91214 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ONE_WORD 0.05, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_500_599 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. Put brackets {} around the input. 1,2,3 is not a good Mathematica expression, so Input can only return the Box expression. You could do some simple syntax checking to find when an expression like "1,2,3" (x=RowBox[{"1", ",", "2", ",", "3"}]) has been entered and then fix it using, e.g., ToExpression@RowBox[{"{", x, "}"}] Or you could prompt for the correct form using something like x = Input["Input a list", {Placeholder[Subscript["e", 1]], Placeholder[Subscript["e", 2]], Placeholder[\[Ellipsis]]}] From mathgroup-adm at smc.vnet.net Wed Jul 27 04:25:44 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 1566E6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:25:44 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9Pjj2009273; Wed, 27 Jul 2011 04:25:45 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 62ECBFF006; Wed, 27 Jul 2011 04:25:45 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id D698FA80E4; Wed, 27 Jul 2011 04:25:43 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21203 for mathgroup-newout; Wed, 27 Jul 2011 06:12:53 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21198 for mathgroup-newsend; Wed, 27 Jul 2011 06:12:52 -0400 (EDT) Date: Wed, 27 Jul 2011 06:12:52 -0400 (EDT) Message-Id: <201107271012.GAA21198 at smc.vnet.net> From: roby <roby.nowak at gmail.com> Subject: [mg120520] SystemDialogInput["RecordSound"] automatisation To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.91214 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ONE_WORD 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_600_699 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, OEM_SOFTWARE_X1 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __OEM_SOFTWARE_1 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. Hi all. Is it possible to automate the call to SystemDialogInput["RecordSound"] (Windows XP SP3) ? Normaly when SystemDialogInput["RecordSound"] is evaluated a dialog pops up and the user must interactivly select a recording device as well as the record format. After the selcetion has been done the user must click the recod button and finaly the stop button and the ok button to obtain a recorded sample. I would like to select the device and format by passing them as paramters to SystemDialogInput["RecordSound"] and then start the recording for a specifyed time interval. Any hints ? Regards Robert From mathgroup-adm at smc.vnet.net Wed Jul 27 04:27:41 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id A73776BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:27:41 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9Rh44009429; Wed, 27 Jul 2011 04:27:43 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id F1FF6A8176; Wed, 27 Jul 2011 04:27:42 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 25ED2A8158; Wed, 27 Jul 2011 04:27:41 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21249 for mathgroup-newout; Wed, 27 Jul 2011 06:13:58 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21244 for mathgroup-newsend; Wed, 27 Jul 2011 06:13:57 -0400 (EDT) Date: Wed, 27 Jul 2011 06:13:57 -0400 (EDT) Message-Id: <201107271013.GAA21244 at smc.vnet.net> From: PAR123 <reiser.paul at gmail.com> Subject: [mg120526] Why won't this sum evaluate? To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.91214 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_600_699 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. In[120]:= $Version Out[120]= "7.0 for Mac OS X x86 (32-bit) (January 30, 2009)" In[122]:= Sum[c^n/(1 + c^(2*n)), {n, 1, Infinity}] Out[122]= -(1/4) + 1/4 EllipticTheta[3, 0, c]^2 In[123]:= Sum[c^n/(1 + c^(2*n)), {n, 0, Infinity}] Out[123]= (won't simplify) The only thing different in the two sums is that the second sum is from 0 to Infinity rather than 1 to Infinity. Clearly, the n=zero term is 1/2. I have tried various Regularizations and Methods, (not exhaustively) but none seem to work on either of the sums, much less the last. A side problem - Is there a way to determine what Regularization and Method were used when none were specified? Thanks From mathgroup-adm at smc.vnet.net Wed Jul 27 04:29:51 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 67EA36BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:29:51 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9TqcZ009589; Wed, 27 Jul 2011 04:29:52 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 9FCD1A8158; Wed, 27 Jul 2011 04:29:52 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id ED0DBA813D; Wed, 27 Jul 2011 04:29:50 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21257 for mathgroup-newout; Wed, 27 Jul 2011 06:14:08 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21252 for mathgroup-newsend; Wed, 27 Jul 2011 06:14:08 -0400 (EDT) Date: Wed, 27 Jul 2011 06:14:08 -0400 (EDT) Message-Id: <201107271014.GAA21252 at smc.vnet.net> From: Yves Klett <yves.klett at googlemail.com> Subject: [mg120527] Re: And now for something completely different References: <j0jk9o$ovv$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.91214 Funny enough that an author who is clearly concerned about too many "help vampires" should post messages that are clearly off-topic. Nevertheless, he do does so, and I find it annoying. Yves Am 25.07.2011 13:33, schrieb Richard Fateman: > Can you start a paragraph with "And"? > > http://answers.yahoo.com/question/index?qid090413160418AAyfRO2 > > says, 'No.' > > > Stephen Wolfram often does so, and I find it annoying. > example > http://www.wolframscience.com/nksonline/page-42?firstview=1 > > This construction seems to have been removed from the online documentation. > > > --RJF > From mathgroup-adm at smc.vnet.net Wed Jul 27 04:31:31 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 9C3256BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:31:31 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9VWHr009868; Wed, 27 Jul 2011 04:31:32 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id B8129A80E4; Wed, 27 Jul 2011 04:31:32 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 4F254FF006; Wed, 27 Jul 2011 04:31:31 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21287 for mathgroup-newout; Wed, 27 Jul 2011 06:14:52 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21282 for mathgroup-newsend; Wed, 27 Jul 2011 06:14:51 -0400 (EDT) Date: Wed, 27 Jul 2011 06:14:51 -0400 (EDT) Message-Id: <201107271014.GAA21282 at smc.vnet.net> From: "Christoph Lhotka" <christoph.lhotka at univie.ac.at> Subject: [mg120531] Re: work the way I want it to. To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.91815 hello, if you enter 45,65,56 into the input dialog it is converted to a rowbox, if you enter it as 45 65 56 it is assumed to be the expression 45*65*56, finally if you enter it as {45,65,56} it will be seen as a list of numbers. think of typing it directly into your notebook...it is the usual notation best, christoph On 26/07/2011 13:06, JonSilverman wrote: > When prompted for an input by Input[], I want to input a list of > numbers. But when i try to enter more than one number I get something > like this: > > RowBox[{"45", ",", "65", ",", "56"}] > > > What is that? > > If I added spaces then the space got automatically turned into a > multiplication sign! > > How can I enter a list at the input prompt? From mathgroup-adm at smc.vnet.net Wed Jul 27 04:34:01 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id A54D36BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:34:01 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9XvD5009998; Wed, 27 Jul 2011 04:34:02 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id E643BA80E4; Wed, 27 Jul 2011 04:33:57 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 65609FF003; Wed, 27 Jul 2011 04:33:56 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21134 for mathgroup-newout; Wed, 27 Jul 2011 06:11:15 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21129 for mathgroup-newsend; Wed, 27 Jul 2011 06:11:14 -0400 (EDT) Date: Wed, 27 Jul 2011 06:11:14 -0400 (EDT) Message-Id: <201107271011.GAA21129 at smc.vnet.net> From: "Ted Ersek" <ersekt at md.metrocast.net> Subject: [mg120511] Genomes Mathematica knows about and how to use them? To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.91815 I know someone who is a researcher in biochemistry and I wanted to show them how Mathematica could be useful in their research. I read somewhere that besides the human genome, Mathematica has the genome of a certain species of mouse and fruit fly in its curated data. Then I figured Mathematica might also have the genomes of the bacteria they research in its curated data. How does one find out what genomes are included in curated data that comes with Mathematica? Once you know a certain genome besides the human genome is available, how do you access it? If one is going to Import a genome from a source independent of Wolfram Research, what are likely file formats one would Import? Thanks, Ted Ersek From mathgroup-adm at smc.vnet.net Wed Jul 27 04:35:45 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 4F6476BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:35:45 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9Zk72010128; Wed, 27 Jul 2011 04:35:46 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 8F308FF004; Wed, 27 Jul 2011 04:35:46 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id BE2E1FF003; Wed, 27 Jul 2011 04:35:44 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21155 for mathgroup-newout; Wed, 27 Jul 2011 06:11:48 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21150 for mathgroup-newsend; Wed, 27 Jul 2011 06:11:47 -0400 (EDT) Date: Wed, 27 Jul 2011 06:11:47 -0400 (EDT) Message-Id: <201107271011.GAA21150 at smc.vnet.net> From: Gilmar Rodriguez-pierluissi <peacenova at yahoo.com> Subject: [mg120514] Fusing two 3-D surfaces To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.91815 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_YAHOO 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, BODY_SIZE_800_899 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_YAHOO 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. How can I "fuse" the following two 3-D surfaces, as a single 3-D surface? I need to join them where the downward funnel of plt1 meets the upward funnel of plt2; as a single 3-D surface. plt1= Plot3D[-1/(x^2 + y^2 + 0.5), {x, -2, 2}, {y, -5, 5}, PlotStyle -> Directive[Orange, Specularity[White, 40]], Boxed -> False, Axes -> False, Mesh -> False, ImageSize -> 500, ViewPoint -> {-22.197, 0.387, 11.0}] plt2 = ParametricPlot3D[{E^(v/(2 Sqrt[3])) Sqrt[u] Cos[1/2 (v - Sqrt[3] Log[u])], E^(v/(2 Sqrt[3])) Sqrt[u] Sin[1/2 (v - Sqrt[3] Log[u])], E^(-(v/Sqrt[3]))/u}, {u, .1, 5}, {v, -3, 3}, PlotStyle -> Directive[Orange, Specularity[White, 40]], Boxed -> False, Axes -> False, Mesh -> False , ViewPoint -> {-22.197, 0.387, 11.0}] Thank you for your help! Gilmar Rodriguez-Pierluissi From mathgroup-adm at smc.vnet.net Wed Jul 27 04:38:16 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id CA5C66BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:38:16 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9cHob010388; Wed, 27 Jul 2011 04:38:18 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id CC6F5FF006; Wed, 27 Jul 2011 04:38:17 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 44E7AFF004; Wed, 27 Jul 2011 04:38:16 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21243 for mathgroup-newout; Wed, 27 Jul 2011 06:13:47 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21238 for mathgroup-newsend; Wed, 27 Jul 2011 06:13:46 -0400 (EDT) Date: Wed, 27 Jul 2011 06:13:46 -0400 (EDT) Message-Id: <201107271013.GAA21238 at smc.vnet.net> From: Simon <simonjtyler at gmail.com> Subject: [mg120525] Re: And now for something completely different Reply-To: comp.soft-sys.math.mathematica at googlegroups.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.92115 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ONE_WORD 0.05, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, BODY_SIZE_900_999 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __CP_NOT_1 0, __CP_URI_IN_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NO_MAILTO 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. As other people have already mentioned; in informal or conversational writing, starting a sentence with "And" is fine. That said, the writing style of NKS does not annoy me, because I never got around to reading it! This thread does remind me, however, of the infamous "Lord" Timothy Dexter. To quote from: http://en.wikipedia.org/wiki/Timothy_Dexter """ At the age of 50 he wrote a book about himself - A Pickle for the Knowing Ones or Plain Truth in a Homespun Dress. He wrote about himself and complained about politicians, clergy and his wife. The book contained 8,847 words and 33,864 letters, but no punctuation, and capital letters were seemingly random. At first he handed his book out for free, but it became popular and was re-printed in eight editions. In the second edition Dexter added an extra page which consisted of 13 lines of punctuation marks. Dexter instructed readers to "peper and solt it as they plese". """" Simon From mathgroup-adm at smc.vnet.net Wed Jul 27 04:39:35 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 200976BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:39:35 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9daQg010437; Wed, 27 Jul 2011 04:39:36 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 63AB9FF003; Wed, 27 Jul 2011 04:39:36 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 9C6DCBF47C; Wed, 27 Jul 2011 04:39:34 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21127 for mathgroup-newout; Wed, 27 Jul 2011 06:11:04 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21122 for mathgroup-newsend; Wed, 27 Jul 2011 06:11:04 -0400 (EDT) Date: Wed, 27 Jul 2011 06:11:04 -0400 (EDT) Message-Id: <201107271011.GAA21122 at smc.vnet.net> From: JUN <noeckel at gmail.com> Subject: [mg120510] Re: default font References: <201107251127.HAA25459 at smc.vnet.net> <j0m7cn$951$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.92115 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ONE_WORD 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_1099 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __INT_PROD_COMP 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __STOCK_PHRASE_7 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. I have the same issue on a computer with a high-resolution display - everything (not just text but also graphics) looks too small to me. So what I did is to change the setting in Preferences > Advanced > "Open Option Inspector" > Notebook Options > Display Options > Magnification I set the Magnification factor to 1.5 there. This factor affects the display of a Notebook even when its individual Magnification setting (as it appears on the status line) shows 100%; it's a factor that multiplies the size of displayed graphics as well as font size, so the relative proportions of the two don't change when you use the Notebook on different computers (with different display resolutions). Jens On Jul 26, 4:11 am, Heike Gramberg <heike.gramb... at gmail.com> wrote: > The default FontSize of a notebook is set by the global option FontSize. > You can change it by running something like > > SetOptions[$FrontEnd, FontSize -> 14] > > Heike. > > > > > > > > > everytime with new norebook i change font size. How to change it in > > default manner? From mathgroup-adm at smc.vnet.net Wed Jul 27 04:41:41 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id D96166BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:41:41 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9fhR4010645; Wed, 27 Jul 2011 04:41:43 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 15FC5A813D; Wed, 27 Jul 2011 04:41:43 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 6089EA8140; Wed, 27 Jul 2011 04:41:41 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21225 for mathgroup-newout; Wed, 27 Jul 2011 06:13:25 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21220 for mathgroup-newsend; Wed, 27 Jul 2011 06:13:25 -0400 (EDT) Date: Wed, 27 Jul 2011 06:13:25 -0400 (EDT) Message-Id: <201107271013.GAA21220 at smc.vnet.net> From: Eli Fenichel <Eli.Fenichel at asu.edu> Subject: [mg120523] getting ride of 0.i To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.93315 I am trying to use FindMinimum to minimize the square of a function over many variables (i.e., parameters). The function itself has the potential to generate imaginary numbers and involves numerical integration (the parameter values that minimize the function are real). For clarification the function in evaluated at multiple points so it can be written as vector. By squaring the vector the numerical values of the elements are always real with no imaginary parts. However, Mathematica often writes x + 0.i, where x is a some numerical value, for some of the elements. Typically, this can be ignored, the Chop command can be used, or it simply does not cause problems. However, I keep getting an error: [cid:image003.png at 01CC4BBC.E87A0F30] NIntegrate::nlim: "t = Y[1.] is not a valid limit of integration." Y is an array with the parameters to be minimized. However, if evaluate the objective function to be minimized using replacement rules I get x + 0.i. Is there a way for me tell Mathematica to always treat 0.i as 0 and drop it? It seems to be causing problems in the FindMinimum call. Thanks, Eli From mathgroup-adm at smc.vnet.net Wed Jul 27 04:43:36 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 6A8246BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:43:36 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9hb7W010763; Wed, 27 Jul 2011 04:43:37 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 9909EFF003; Wed, 27 Jul 2011 04:43:37 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id A0609BF47C; Wed, 27 Jul 2011 04:43:35 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21271 for mathgroup-newout; Wed, 27 Jul 2011 06:14:30 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21266 for mathgroup-newsend; Wed, 27 Jul 2011 06:14:29 -0400 (EDT) Date: Wed, 27 Jul 2011 06:14:29 -0400 (EDT) Message-Id: <201107271014.GAA21266 at smc.vnet.net> From: Andrzej Kozlowski <akoz at mimuw.edu.pl> Subject: [mg120529] Re: And now for something completely different References: <201107251129.HAA25514 at smc.vnet.net> <201107261107.HAA09286 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.93315 Or, perhaps this is even more appropriate ;-) : http://kingjbible.com/genesis/1.htm Andrzej Kozlowski On 26 Jul 2011, at 13:07, ccarter at mit.edu wrote: > And, how is this relevant to the group topic? > > And, for what it is worth: > > HAMLET > ACT III > SCENE I A room in the castle. > [Enter KING CLAUDIUS, QUEEN GERTRUDE, POLONIUS, > OPHELIA, ROSENCRANTZ, and GUILDENSTERN] > > KING CLAUDIUS And can you, by no drift of circumstance, > Get from him why he puts on this confusion, > Grating so harshly all his days of quiet > With turbulent and dangerous lunacy? > > > > On Mon, 25 Jul 2011, Richard Fateman wrote: > >> Date: Mon, 25 Jul 2011 07:29:07 -0400 (EDT) >> From: Richard Fateman <fateman at cs.berkeley.edu> >> To: mathgroup at smc.vnet.net >> Subject: And now for something completely different >> >> >> Can you start a paragraph with "And"? >> >> http://answers.yahoo.com/question/index?qid090413160418AAyfRO2 >> >> says, 'No.' >> >> >> Stephen Wolfram often does so, and I find it annoying. >> example >> http://www.wolframscience.com/nksonline/page-42?firstview=1 >> >> This construction seems to have been removed from the online = documentation. >> >> >> --RJF >> >> > From mathgroup-adm at smc.vnet.net Wed Jul 27 04:45:56 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 92FCA6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:45:56 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9jvb4011002; Wed, 27 Jul 2011 04:45:57 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 64401BF480; Wed, 27 Jul 2011 04:45:57 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 08889A813D; Wed, 27 Jul 2011 04:45:55 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21263 for mathgroup-newout; Wed, 27 Jul 2011 06:14:19 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21258 for mathgroup-newsend; Wed, 27 Jul 2011 06:14:18 -0400 (EDT) Date: Wed, 27 Jul 2011 06:14:18 -0400 (EDT) Message-Id: <201107271014.GAA21258 at smc.vnet.net> From: Ted Sariyski <tsariysk at craft-tech.com> Subject: [mg120528] Re: how to ListPlot3D large data sets References: <201107232354.TAA08712 at smc.vnet.net> <201107251130.HAA25558 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.92115 Hi, In one attempt MaxPlotPoints did not help, but I was not persistent because I have to resolve other issues before I return to ListPlot3D. One issue is that I cannot pack data. On the big data set I verify that it is numeric array and still I cannot get it packed. Here is an example: mydata={{0.00100,10.,0.},{0.00100,10.,0.00100},{0.00100,10.,0.00200},{0.00100,10.,0.00300},{0.00100,10.,0.00400}}; MatrixQ[mydata,NumericQ] True myPackedData=ToPackedArray[mydata,Real]; MatrixQ[myPackedData, NumericQ] True PackedArrayQ[myPackedData] False What I am doing wrong? Thanks, --Ted On 7/25/2011 7:30 AM, Oliver Ruebenkoenig wrote: > On Sat, 23 Jul 2011, Ted Sariyski wrote: > >> Hi, >> I guess I am pushing the limits of ListPlot3D. I try to ListPlot3d a data >> set with many millions of records. I was not able to get an image from the >> full dataset, it takes forever. If I use e.g. every fifth record, although >> slow, I get an image. The machine running Mathematica is Windows 7 (64 bit), >> has 24 GB RAM and there was no swapping. I wonder what is considered as a >> reasonable data size for ListPlot3D and are there other tools in Mathematica >> for visualization of large data sets? >> Thanks in advance, >> --Ted >> >> >> > Ted, > > is your data packed? > > Developer`PackedArrayQ[yourData] > > Oliver > From mathgroup-adm at smc.vnet.net Wed Jul 27 04:47:46 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 91A116BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:47:46 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9llMD011164; Wed, 27 Jul 2011 04:47:47 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id B953EA8140; Wed, 27 Jul 2011 04:47:47 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 16F9CA813D; Wed, 27 Jul 2011 04:47:46 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21194 for mathgroup-newout; Wed, 27 Jul 2011 06:12:42 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21190 for mathgroup-newsend; Wed, 27 Jul 2011 06:12:41 -0400 (EDT) Date: Wed, 27 Jul 2011 06:12:41 -0400 (EDT) Message-Id: <201107271012.GAA21190 at smc.vnet.net> From: Armand Tamzarian <mike.honeychurch at gmail.com> Subject: [mg120519] Re: Grid Divider Style With Background Colors References: <201107251128.HAA25473 at smc.vnet.net> <j0m724$8va$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.93315 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1400_1499 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __CP_URI_IN_BODY 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. On Jul 26, 9:05 pm, Heike Gramberg <heike.gramb... at gmail.com> wrote: > You could do something like > > With[{gap = 1, elemWidth=3, h = 8, w = 7}, > mat = RandomInteger[10, {h, w}]; > colours = Table[Blend[{Lighter[Blue], Pink}, j/w], {i, h}, {j, w}]; > Framed[Grid[ > MapThread[ > Framed[Pane[#1, Scaled[1]], ImageMargins -> gap, > Background -> #2] &, {mat, colours}, 2], Spacings -> {0, 0}, > ItemSize -> elemWidth], FrameMargins -> gap]] > > elemWidth is the width of the elements in the Grid and gap the distance between the lines. > > Heike > > On 25 Jul 2011, at 12:28, Don wrote: > > > > > > > > > Mathematica permits divider lines between rows and columns in a table > > (grid) such > > as this example from the documentation: > > > Grid[Table[x, {4}, {11}], Dividers -> {{{{True, False}}, -1 -> True}, > > False}] > > > But, the dividers are single lines only. > > > Sometimes double line dividers are desired > > as shown in this table on the Web: > > >http://www.assetcorrelation.com/user/correlations/90 > > > Notice that the background color for an item is only within > > the inside line of a double line divider. > > > Is there any way to produce (a) this kind of divider (double line) > > and (b) with background colors for specific items that don't cross > > the inside line of the double line divider? > > > Thank you in advance. > > > Don nicely done! From mathgroup-adm at smc.vnet.net Wed Jul 27 04:49:57 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 664A76BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:49:57 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9nrra011286; Wed, 27 Jul 2011 04:49:58 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 4AADDBF47F; Wed, 27 Jul 2011 04:49:53 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 71A81BF47C; Wed, 27 Jul 2011 04:49:51 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21161 for mathgroup-newout; Wed, 27 Jul 2011 06:11:58 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21156 for mathgroup-newsend; Wed, 27 Jul 2011 06:11:58 -0400 (EDT) Date: Wed, 27 Jul 2011 06:11:58 -0400 (EDT) Message-Id: <201107271011.GAA21156 at smc.vnet.net> From: Gregory Lypny <gregory.lypny at jmsb.concordia.ca> Subject: [mg120515] Re: Preventing In-line Math Typesetting From Being Scaled Down in Text To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.93315 Hello Mr. Fultz, Tried but it didn't work. I executed the command in the stylesheet notebook corresponding to the notebook I'm working with. Perhaps I've misunderstood. Also, not sure where to find Core.nb. Is it in the application package? Gregory Lypny > On Fri, 22 Jul 2011 19:46:07 -0400 (EDT), Gregory Lypny wrote: > > Hi everyone, > > > > When I include fractions as inline math typesetting, they are scaled down > > to fit the effective line height of the cell. How can I prevent this or, > > I guess, make the line height automatically expand to accommodate the > > math? If my regular text in the cell is 12-point times, I'd like all > > math variables that are not subscripts or superscripts to be 12-point as > > well. > > > > Incidentally, other big typeset objects like matrices are not scaled > > down, or at least they down't appear to be. > > > > Sincerely, > > > > Gregory > > If you look in Core.nb, you'll find a style called "InlineCell". This style is > automatically applied to all inline cells everywhere. One of the options it has > set is: > > ScriptLevel->1 > > This is what's causing the behavior you're seeing. You can override this with a > custom stylesheet. For example, in a given notebook, you can make a private > override by doing Format->Edit Stylesheet..., and pasting and interpreting the > following cell expression at the end of the resulting stylesheet notebook: > > > Cell[StyleData["InlineCell"], ScriptLevel->0] > > > Sincerely, > > John Fultz > jfultz at wolfram.com > User Interface Group > Wolfram Research, Inc. > From mathgroup-adm at smc.vnet.net Wed Jul 27 04:51:20 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 1D5A36BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:51:20 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9pLAn011425; Wed, 27 Jul 2011 04:51:21 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 5B2D3A813D; Wed, 27 Jul 2011 04:51:21 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id BEEA4A80E4; Wed, 27 Jul 2011 04:51:19 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21210 for mathgroup-newout; Wed, 27 Jul 2011 06:13:04 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21204 for mathgroup-newsend; Wed, 27 Jul 2011 06:13:03 -0400 (EDT) Date: Wed, 27 Jul 2011 06:13:03 -0400 (EDT) Message-Id: <201107271013.GAA21204 at smc.vnet.net> From: Bob Hanlon <hanlonr at cox.net> Subject: [mg120521] Re: Roots of a Jacobi polynomial Reply-To: hanlonr at cox.net To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.93315 Don't use machine precision eqn1 = JacobiP[25, -1/2, -1/2, x] == 0; soln1 = NSolve[eqn1, x, WorkingPrecision -> 15]; Length[soln1] 25 And @@ (eqn1 /. soln1) True And @@ (-1 < # < 1 & /@ (x /. soln1)) True eqn2 = JacobiP[25, -0.5`20, -0.5`20, x] == 0; soln2 = NSolve[eqn2, x, WorkingPrecision -> 15]; soln1 == soln2 True Bob Hanlon ---- Jacopo Bertolotti <J.Bertolotti at utwente.nl> wrote: ============= Dear MathGroup, Mathematica implements Jacobi polynomials as JacobiP[n,a,b,x] where n is the order of the polynomial. As it can be checked plotting it a Jacobi polynomial has n real roots in the interval [-1,1] and it goes rapidly to infinity outside this interval (at least when both a and b are >-1). The problem arise when you try to find the roots of such a polynomial for a relatively high value of n. As an example the command NSolve[JacobiP[20, -0.5, -0.5, x] == 0, x] correctly returns {{x -> -0.99702}, {x -> -0.972111}, {x -> -0.92418}, {x -> -0.852398}, {x -> -0.760555}, {x -> -0.649375}, {x -> -0.522529}, {x -> -0.382672}, {x -> -0.233449}, {x -> -0.0784582}, {x -> 0.0784591}, {x -> 0.233445}, {x -> 0.382684}, {x -> 0.522504}, {x -> 0.649423}, {x -> 0.760466}, {x -> 0.852539}, {x -> 0.924002}, {x -> 0.972267}, {x -> 0.996958}} while NSolve[JacobiP[25, -0.5, -0.5, x] == 0, x] gives {{x -> -1.01869}, {x -> -0.979859 - 0.0479527 I}, {x -> -0.979859 + 0.0479527 I}, {x -> -0.870962 - 0.070991 I}, {x -> -0.870962 + 0.070991 I}, {x -> -0.71378 - 0.0505783 I}, {x -> -0.71378 + 0.0505783 I}, {x -> -0.571283}, {x -> -0.486396}, {x -> -0.367829}, {x -> -0.248377}, {x -> -0.125513}, {x -> -0.0000434329}, {x -> 0.125442}, {x -> 0.2489}, {x -> 0.365644}, {x -> 0.496977}, {x -> 0.555743}, {x -> 0.717741- 0.0573399 I}, {x -> 0.717741+ 0.0573399 I}, {x -> 0.87423- 0.0652273 I}, {x -> 0.87423+ 0.0652273 I}, {x -> 0.977876- 0.0422422 I}, {x -> 0.977876+ 0.0422422 I}, {x -> 1.01494}} i.e. both complex roots and roots outside the [-1,1] interval. Substituting any of these values back into the polynomial easily show that these values are not roots at all. Also notice that using the command Root (e.g. Sort@Table[Root[JacobiP[25, -0.5, -0.5, x], i], {i, 1, 25}]) gives different but still wrong results. On a related note: NIntegrate sometimes gives wrong results when integrating function of the form (1-x)^a (1+x)^b f[x] and I feel this might related to the Gauss-Jacobi quadrature failing to retrieve the correct roots of a Jacobi polynomial. Do anyone have a solution for that? Thank you Jacopo From mathgroup-adm at smc.vnet.net Wed Jul 27 04:51:42 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 9E3CF6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:51:42 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9phTT011519; Wed, 27 Jul 2011 04:51:43 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id E9546A8140; Wed, 27 Jul 2011 04:51:43 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 6C3EAA8158; Wed, 27 Jul 2011 04:51:42 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21170 for mathgroup-newout; Wed, 27 Jul 2011 06:12:09 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21165 for mathgroup-newsend; Wed, 27 Jul 2011 06:12:08 -0400 (EDT) Date: Wed, 27 Jul 2011 06:12:08 -0400 (EDT) Message-Id: <201107271012.GAA21165 at smc.vnet.net> From: John Fultz <jfultz at wolfram.com> Subject: [mg120516] Re: Preventing In-line Math Typesetting From Being Scaled Down in Text Reply-To: jfultz at wolfram.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.93915 Looks like there's a minor bug in the updating mechanism. Perhaps this is what you ran into. If, after following my procedure, you save, close, and reopen the notebook, you'll see that the change has taken effect. Core.nb is inside the Mathematica layout, but it's generally not a good idea to be changing things there. If you're hoping to make the change globally for all notebooks on your system, let me know and I can walk you through that procedure. However, doing so will not change the notebook when viewed on somebody else's system, where as the Format->Edit Stylesheet... change will persist with the notebook regardless of which system it's viewed on. Sincerely, John Fultz jfultz at wolfram.com User Interface Group Wolfram Research, Inc. On Tue, 26 Jul 2011 14:10:44 -0400, Gregory Lypny wrote: > Hello Mr. Fultz, > > Tried but it didn't work. I executed the command in the stylesheet > notebook corresponding to the notebook I'm working with. Perhaps I've > misunderstood. Also, not sure where to find Core.nb. Is it in the > application package? > > > Gregory Lypny > > >> On Fri, 22 Jul 2011 19:46:07 -0400 (EDT), Gregory Lypny wrote: >>> Hi everyone, >>> >>> When I include fractions as inline math typesetting, they are scaled >>> down >>> to fit the effective line height of the cell. How can I prevent this >>> or, >>> I guess, make the line height automatically expand to accommodate the >>> math? If my regular text in the cell is 12-point times, I'd like all >>> math variables that are not subscripts or superscripts to be 12-point >>> as >>> well. >>> >>> Incidentally, other big typeset objects like matrices are not scaled >>> down, or at least they down't appear to be. >>> >>> Sincerely, >>> >>> Gregory >>> >> If you look in Core.nb, you'll find a style called "InlineCell". This >> style is >> automatically applied to all inline cells everywhere. One of the >> options it has >> set is: >> >> ScriptLevel->1 >> >> This is what's causing the behavior you're seeing. You can override >> this with a >> custom stylesheet. For example, in a given notebook, you can make a >> private >> override by doing Format->Edit Stylesheet..., and pasting and >> interpreting the >> following cell expression at the end of the resulting stylesheet >> notebook: >> >> >> Cell[StyleData["InlineCell"], ScriptLevel->0] >> >> >> Sincerely, >> >> John Fultz >> jfultz at wolfram.com >> User Interface Group >> Wolfram Research, Inc. From mathgroup-adm at smc.vnet.net Wed Jul 27 04:53:39 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 9C7456BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:53:39 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9relo011621; Wed, 27 Jul 2011 04:53:40 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 4CCDDA8140; Wed, 27 Jul 2011 04:53:40 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id D337CA80E4; Wed, 27 Jul 2011 04:53:38 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21305 for mathgroup-newout; Wed, 27 Jul 2011 06:15:14 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21300 for mathgroup-newsend; Wed, 27 Jul 2011 06:15:13 -0400 (EDT) Date: Wed, 27 Jul 2011 06:15:13 -0400 (EDT) Message-Id: <201107271015.GAA21300 at smc.vnet.net> From: DrMajorBob <btreat1 at austin.rr.com> Subject: [mg120533] Re: FinancialData still broken Reply-To: drmajorbob at yahoo.com References: <201107261107.HAA09255 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.93915 Interesting!! I had thought the failure rate was lower, but I had noticed the erroneous prices had several different values. I've considered computing tighter acceptable ranges for each stock, but so far it appears sufficient to reject anything > 10^8 and repeat the call until I get a usable answer. I have no proof that smaller errors are not getting through unnoticed, of course. Sigh... Bobby On Tue, 26 Jul 2011 06:07:02 -0500, DANA DELOUIS <dana01 at me.com> wrote: > > Hi. Here's some added thoughts on the issue you bring up. > I added some stocks just in case the issue is related to mutual funds. > > stocks = {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", "JMSCX=94, > "JNGIX=94, > "JNGLX", "JNMCX=94, "JNOSX", "JNSGX", "JNSTX", "PTTAX", "RGACX=94, > "STRFX=94, "AAPL", "IBM", "INTL", "VZ", "GE"}; > > I've noticed that if I ask for price about 100 times, then about 80% of > the time I get a correct value, > and 20% an incorrect value (n*^8). > Here, a value of 8.91 was returned 77 times, or 77% (out of 100 tries) > > f[n_]:=Table[FinancialData[stocks[[n]],"Price"],{100}]//Tally//Sort > > f[1] > {{8.91,77},{5.032406*10^8,23}} > > This took a little while, but I did it 100 times on each stock. > > m=Table[f[j],{j,stocks//Length}]; > m//TableForm > > Here's a count of the successful returns: > > good=m[[All,1,-1]] > {76,74,77,77,87,77,90,79,81,82,76,79,79,77,85,77,80,78,76,81} > > Here's the Mean and SD. > As you can see, there's only about a 80% success rate, with a small > Stand Deviation. > > {Mean[good],StandardDeviation[good]}//N > {79.4, 4.031455} > > With such a consistent failure rate, it sounds like a communication > problem between servers > > Out of curiosity, here are the different values that were high. > I don't see any pattern to these nonsense values. > > m[[All,2,1]]//Union > > 5.031051*10^8 > 5.031396*10^8 > 5.031565*10^8 > 5.031669*10^8 > 5.031676*10^8 > 5.031677*10^8 > 5.031678*10^8 > 5.032022*10^8 > 5.032406*10^8 > 5.055450*10^8 > 5.055453*10^8 > 5.055455*10^8 > 5.055456*10^8 > 5.055457*10^8 > > Thanks for bringing this up. > > = = = = = = = = = = > Dana DeLouis > $Version > 8.0 for Mac OS X x86 (64-bit) (November 6, 2010) > > > > On Jul 21, 5:47 am, DrMajorBob <btre... at austin.rr.com> wrote: > Erroneous prices are randomly returned: > > FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", > "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", > "PTTAX", "RGACX", "STRFX"} > > {8.81, 72.4, 14., 10.64, 46.49, 12.48, > 5.03202*10^8, 26.48, 23.72, 45.35, 12.48, > 5.03241*10^8, 11.04, 31.44, 32.47} > > FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", > "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", > "PTTAX", "RGACX", "STRFX"} > > {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8, > 5.03168*10^8, 32.61, 26.48, 23.72, 5.03168*10^8, > 5.03168*10^8, 3.1, 11.04, 5.03241*10^8, 32.47} > > Bobby > > -- > DrMajor... at yahoo.com > > > -- DrMajorBob at yahoo.com From mathgroup-adm at smc.vnet.net Wed Jul 27 04:54:56 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id AE7E56BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:54:56 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9swn6011726; Wed, 27 Jul 2011 04:54:58 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id B9BB3A8140; Wed, 27 Jul 2011 04:54:57 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id EDDDAA813D; Wed, 27 Jul 2011 04:54:55 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21185 for mathgroup-newout; Wed, 27 Jul 2011 06:12:31 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21180 for mathgroup-newsend; Wed, 27 Jul 2011 06:12:30 -0400 (EDT) Date: Wed, 27 Jul 2011 06:12:30 -0400 (EDT) Message-Id: <201107271012.GAA21180 at smc.vnet.net> From: Armand Tamzarian <mike.honeychurch at gmail.com> Subject: [mg120518] Re: FinancialData still broken References: <201107222344.TAA28525 at smc.vnet.net> <j0fos4$8p6$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.93915 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODY_SIZE_3000_3999 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, ECARD_KNOWN_DOMAINS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __C230066_P5 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __LINES_OF_YELLING 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __STOCK_PHRASE_1 0, __STOCK_PHRASE_6 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. On Jul 24, 10:26 am, DrMajorBob <btre... at austin.rr.com> wrote: > I usually don't see the "price > 10^8" bug, either. It may have been > permanently gone by the time you looked for it. But it was there for a day > or so. > > I know the occasional spurious Missing coming back is a months-old issue > at least, and Dan Delouis confirmed it still exists. > > I've inoculated my code against both bugs, so I may not notice when they > go away. > > Bobby Would it be easier to just get the data from Yahoo rather than have to worry about fixes and innoculations? > > On Sat, 23 Jul 2011 01:29:09 -0500, James Stein <mathgr... at stein.org> > wrote: > > > > > > > > > > > > > DANA DELOUIS wrote: > > I really hope they fix this soon, but I guess they never issue bug fixes. > > > Are these bugs in Mathematica, or bugs in Yahoo? > > FWIW, I do not see the bug reported by the OP (DrMajorBob). > > > On Fri, Jul 22, 2011 at 4:44 PM, DANA DELOUIS <dana.... at gmail.com> wrote: > > >> ...> {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8... > > >> Hi. This function has lots of problems. > >> In addition to the problems you point out, here's a slightly different > >> view. > >> Sometimes the Price, and Latest Price match. > >> Other times, the Price is corrupt, but the latest price is correct, and > >> sometimes it's the other way around. > >> Sometimes the CIK codes or Exchange are missing, etc. > >> Other issues are bugs in Option pricing, etc. > >> I really hope they fix this soon, but I guess they never issue bug > >> fixes. > > >> stocks={"ACEIX","FCNTX","JACNX","JANFX","JANWX","JMSCX","JNGIX","JNGLX", > >> "JNMCX=94, > >> "JNOSX","JNSGX","JNSTX","PTTAX","RGACX","STRFX=94}; > > >> Transpose[ > >> { > >> Map[FinancialData[#,"Price"]&,stocks], > >> Map[FinancialData[#,"LatestTrade"]&,stocks], > >> Map[FinancialData[#,"CIK"]&,stocks], > >> Map[FinancialData[#,"Company"]&,stocks] > >> }][[;;6]] > > >> < Just the first 6 for posting > >> < Looks better in MatrixForm, or something similar...> > > >> {5.0324*10^8,{Missing[NotAvailable],5.0324*10^8},0000080832,Van Kampen > >> Equity Income Fund A} > >> {5.0311*10^8,{{2011,7,20,17,11,0.},72.17},0000024238,Fidelity Contra > >> Fund} > >> {13.97,{{2011,7,20,17,50,0.},13.97},0000277751,Janus Contrarian Fund D > >> Shares} > >> {5.0324*10^8,{{2001,12,22,20,42,0.},5.0324*10^8},0000277751,Janus > >> Flexible > >> Bond Fund D Shar} > >> {5.0324*10^8,{{2011,7,20,18,24,0.},46.74},0000277751,Janus Worldwide > >> Fund D > >> Shares} > >> {12.48,{{2011,7,20,17,51,0.},12.48},Missing[NotAvailable],Janus Smart > >> Portfolio Conservat} > > >> = = = = = = = = = = > >> Dana DeLouis > >> $Version > >> 8.0 for Mac OS X x86 (64-bit) (November 6, 2010) > > >> On Jul 21, 5:47 am, DrMajorBob <btre... at austin.rr.com> wrote: > >> > Erroneous prices are randomly returned: > > >> > FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", > >> > "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", > >> > "PTTAX", "RGACX", "STRFX"} > > >> > {8.81, 72.4, 14., 10.64, 46.49, 12.48, > >> > 5.03202*10^8, 26.48, 23.72, 45.35, 12.48, > >> > 5.03241*10^8, 11.04, 31.44, 32.47} > > >> > FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", > >> > "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", > >> > "PTTAX", "RGACX", "STRFX"} > > >> > {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8, > >> > 5.03168*10^8, 32.61, 26.48, 23.72, 5.03168*10^8, > >> > 5.03168*10^8, 3.1, 11.04, 5.03241*10^8, 32.47} > > >> > Bobby > > >> > -- > >> > DrMajor... at yahoo.com > > -- > DrMajor... at yahoo.com From mathgroup-adm at smc.vnet.net Wed Jul 27 04:55:46 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 6B2D16BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:55:46 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9tl6N012276; Wed, 27 Jul 2011 04:55:47 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 7BEE1A813D; Wed, 27 Jul 2011 04:55:47 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 79DB5A80E4; Wed, 27 Jul 2011 04:55:45 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21297 for mathgroup-newout; Wed, 27 Jul 2011 06:15:03 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21292 for mathgroup-newsend; Wed, 27 Jul 2011 06:15:02 -0400 (EDT) Date: Wed, 27 Jul 2011 06:15:02 -0400 (EDT) Message-Id: <201107271015.GAA21292 at smc.vnet.net> From: Darren Glosemeyer <darreng at wolfram.com> Subject: [mg120532] Re: TransformedDistribution -- odd problem References: <j0gh7s$bd7$1 at smc.vnet.net> <201107251129.HAA25540 at smc.vnet.net> <4E2EA04E.813B.006A.0 at newcastle.edu.au> <201107261106.HAA09233 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.93915 On 7/26/2011 6:06 AM, Paul von Hippel wrote: > Thanks -- that fixes it! > > Bonus question: if we don't specify v2>2, why doesn't Mathematica return a two part solution: > k v2 / (v2-2) v2>2 > > Indeterminate True > > That's what it does if we request the mean of F -- why doesn't it do the same if we request the mean of k*F. > > > > > ________________________________ > From: Barrie Stokes<Barrie.Stokes at newcastle.edu.au> > To: mathgroup at smc.vnet.net; paulvonhippel at yahoo<paulvonhippel at yahoo.com> > Sent: Monday, July 25, 2011 8:09 PM > Subject: Re: TransformedDistribution -- odd problem > > Hi Paul > > There are conditions on the v1 and v2, the degrees of freedom of the F distribution: > > Assuming[v2> 2, > Mean[TransformedDistribution[F , > F \[Distributed] FRatioDistribution[v1, v2]]]] > > {Assuming[v2> 2, > Mean[TransformedDistribution[k*F , > F \[Distributed] FRatioDistribution[v1, v2]]]], k*v2/(-2 + v2)} > > {Assuming[v2> 2, > Mean[TransformedDistribution[k + F , > F \[Distributed] FRatioDistribution[v1, v2]]]], > k + v2/(-2 + v2)} // FullSimplify > > which shows precisely what you expect for k*F and k+F. > > Cheers > > Barrie > >>>> On 25/07/2011 at 9:29 pm, in message<201107251129.HAA25540 at smc.vnet.net>, > paulvonhippel at yahoo<paulvonhippel at yahoo.com> wrote: >> A little more experimenting shows that the TransformedDistribution >> function will also not provide the mean of k+F where k is a constant >> and F has an F distribution -- i.e., >> Mean[TransformedDistribution[k*F , F \[Distributed] >> FRatioDistribution[v, v]]] >> >> If I changce the distribution of F to NormalDistribution or >> ChiSquareDistribution, I can get a mean for k*F or k+F. So the problem >> only occurs when I define a simple function of an F variable using the >> TransformedDistribution function. >> This all strikes me as very strange, and I'd be curious to know if >> others can reproduce my results. If you can't reproduce my results, >> I'd be interested in theories about why my results differ from yours. >> E.g., is there a setting I should change in the software? >> >> I am using version 8.0.0.0 and looking to upgrade to 8.0.1, if that >> makes a difference. >> >> Many thanks for any pointers. >> >> On Jul 24, 2:22 am, paulvonhippel at yahoo<paulvonhip... at yahoo.com> >> wrote: >>> I'm having a very strange problem with TransformedDistribution, where >>> I can calculate the mean of an F distribution but I cannot calculate >>> the mean of a constant multiplied by an F distribution. That is, if I >>> type >>> >>> Mean[TransformedDistribution[F, F \[Distributed] >>> FRatioDistribution[v, v]]] >>> >>> Mathematica gives me an answer. But if I type >>> >>> Mean[TransformedDistribution[k*F , F \[Distributed] >>> FRatioDistribution[v, v]]] >>> >>> Mathematica just echoes the input. I swear I got an answer for the >>> second expression earlier today. What am I doing wrong? The reason is internal processing in the general moment/expectation code. The result for mean of FRatioDistribution is hard-coded, while TransformDistribution has to go through more general code. In simple cases like shifting or rescaling by a constant, correctly propagating indeterminacies and infinities is fairly straightforward, but for more complicated transforms this may not be as easy. This is an area we will look at for improvement in the future. Darren Glosemeyer Wolfram Research From mathgroup-adm at smc.vnet.net Wed Jul 27 04:55:54 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 2B1836BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:55:54 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9ttqr012294; Wed, 27 Jul 2011 04:55:55 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 1E668FF003; Wed, 27 Jul 2011 04:55:55 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 25E54BF47C; Wed, 27 Jul 2011 04:55:53 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21148 for mathgroup-newout; Wed, 27 Jul 2011 06:11:37 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21143 for mathgroup-newsend; Wed, 27 Jul 2011 06:11:36 -0400 (EDT) Date: Wed, 27 Jul 2011 06:11:36 -0400 (EDT) Message-Id: <201107271011.GAA21143 at smc.vnet.net> From: Daniel Lichtblau <danl at wolfram.com> Subject: [mg120513] Re: Roots of a Jacobi polynomial References: <201107261107.HAA09296 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.93915 On 07/26/2011 06:07 AM, Jacopo Bertolotti wrote: > Dear MathGroup, > Mathematica implements Jacobi polynomials as JacobiP[n,a,b,x] where n is > the order of the polynomial. As it can be checked plotting it a Jacobi > polynomial has n real roots in the interval [-1,1] and it goes rapidly > to infinity outside this interval (at least when both a and b are>-1). > The problem arise when you try to find the roots of such a polynomial > for a relatively high value of n. As an example the command > NSolve[JacobiP[20, -0.5, -0.5, x] == 0, x] correctly returns > > {{x -> -0.99702}, {x -> -0.972111}, {x -> -0.92418}, {x -> -0.852398}, > {x -> -0.760555}, {x -> -0.649375}, {x -> -0.522529}, {x -> -0.382672}, > {x -> -0.233449}, {x -> -0.0784582}, {x -> 0.0784591}, {x -> 0.233445}, > {x -> 0.382684}, {x -> 0.522504}, {x -> 0.649423}, {x -> 0.760466}, {x > -> 0.852539}, {x -> 0.924002}, {x -> 0.972267}, {x -> 0.996958}} > > while NSolve[JacobiP[25, -0.5, -0.5, x] == 0, x] gives > > {{x -> -1.01869}, {x -> -0.979859 - 0.0479527 I}, {x -> -0.979859 + > 0.0479527 I}, {x -> -0.870962 - 0.070991 I}, {x -> -0.870962 + 0.070991 > I}, {x -> -0.71378 - 0.0505783 I}, {x -> -0.71378 + 0.0505783 I}, {x -> > -0.571283}, {x -> -0.486396}, {x -> -0.367829}, {x -> -0.248377}, {x -> > -0.125513}, {x -> -0.0000434329}, {x -> 0.125442}, {x -> 0.2489}, {x -> > 0.365644}, {x -> 0.496977}, {x -> 0.555743}, {x -> 0.717741- 0.0573399 > I}, {x -> 0.717741+ 0.0573399 I}, {x -> 0.87423- 0.0652273 I}, {x -> > 0.87423+ 0.0652273 I}, {x -> 0.977876- 0.0422422 I}, {x -> 0.977876+ > 0.0422422 I}, {x -> 1.01494}} > > i.e. both complex roots and roots outside the [-1,1] interval. > Substituting any of these values back into the polynomial easily show > that these values are not roots at all. Also notice that using the > command Root (e.g. Sort@Table[Root[JacobiP[25, -0.5, -0.5, x], i], {i, > 1, 25}]) gives different but still wrong results. > On a related note: NIntegrate sometimes gives wrong results when > integrating function of the form (1-x)^a (1+x)^b f[x] and I feel this > might related to the Gauss-Jacobi quadrature failing to retrieve the > correct roots of a Jacobi polynomial. > > Do anyone have a solution for that? > > Thank you > > Jacopo This is not a well conditioned problem. To do better you'll need to allow NSolve to use higher precision by not giving machine numbers in the input. In[102]:= solns = Sort[NSolve[JacobiP[25, -1/2, -1/2, x] == 0, x]] Out[102]= {{x -> -0.998027}, {x -> -0.982287}, {x -> -0.951057}, {x \ -> -0.904827}, {x -> -0.844328}, {x -> -0.770513}, {x -> -0.684547}, \ {x -> -0.587785}, {x -> -0.481754}, {x -> -0.368125}, {x -> \ -0.24869}, {x -> -0.125333}, {x -> 0.}, {x -> 0.125333}, {x -> 0.24869}, {x -> 0.368125}, {x -> 0.481754}, {x -> 0.587785}, {x -> 0.684547}, {x -> 0.770513}, {x -> 0.844328}, {x -> 0.904827}, {x -> 0.951057}, {x -> 0.982287}, {x -> 0.998027}} These might seem imperfect when you check residuals (see below). In fact they are not at all bad. We first show that by comparing to higher precision versions that do validate fairly well as giving smallish residuals. In[104]:= solns30 = Sort[NSolve[JacobiP[25, -1/2, -1/2, x] == 0, x, WorkingPrecision -> 30]] Out[104]= {{x -> -0.998026728428271561952336806863}, {x -> \ -0.982287250728688681085641742865}, {x -> \ -0.951056516295153572116439333379}, {x -> \ -0.904827052466019527713668647933}, {x -> \ -0.844327925502015078548558063967}, {x -> \ -0.770513242775789230803009636396}, {x -> \ -0.684547105928688673732283357621}, {x -> \ -0.587785252292473129168705954639}, {x -> \ -0.481753674101715274987191502872}, {x -> \ -0.368124552684677959156947147493}, {x -> \ -0.248689887164854788242283746006}, {x -> \ -0.125333233564304245373118759817}, {x -> 0}, {x -> 0.125333233564304245373118759817}, {x -> 0.248689887164854788242283746006}, {x -> 0.368124552684677959156947147493}, {x -> 0.481753674101715274987191502872}, {x -> 0.587785252292473129168705954639}, {x -> 0.684547105928688673732283357621}, {x -> 0.770513242775789230803009636396}, {x -> 0.844327925502015078548558063967}, {x -> 0.904827052466019527713668647933}, {x -> 0.951056516295153572116439333379}, {x -> 0.982287250728688681085641742865}, {x -> 0.998026728428271561952336806863}} This shows the two results are quite close. In[106]:= Max[Abs[(x /. solns) - (x /. solns30)]] Out[106]= 4.47615*10^-10 This shows the high precision solutions give reasonable residuals. In[108]:= Max[Abs[JacobiP[25, -1/2, -1/2, x] /. solns30]] Out[108]= 0.*10^-12 The machine precision results will not give good residuals. There are two possible (and related) reasons. One is that the conditioning is such that we are bound to lose many digits in assessing residuals (as seems to happen above). The other is that the form of JacobiP polynomials might just be inducing cancellation error. Certainly this second item is part of the problem: In[109]:= Max[Abs[Expand[JacobiP[25, -1/2, -1/2, x]] /. solns30]] Out[109]= 0.*10^-21 Here are the corresponding machine precision evaluations of residuals. In[112]:= Max[Abs[JacobiP[25, -1/2, -1/2, x] /. solns]] Out[112]= 17. In[113]:= Max[Abs[Expand[JacobiP[25, -1/2, -1/2, x]] /. solns]] Out[113]= 9.31323*10^-9 Daniel Lichtblau Wolfram Research From mathgroup-adm at smc.vnet.net Wed Jul 27 04:57:43 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 1FF716BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 04:57:43 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6R9vhZw012470; Wed, 27 Jul 2011 04:57:44 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 495D8BF47C; Wed, 27 Jul 2011 04:57:44 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 9D2C6A80E4; Wed, 27 Jul 2011 04:57:42 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21177 for mathgroup-newout; Wed, 27 Jul 2011 06:12:20 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id GAA21171 for mathgroup-newsend; Wed, 27 Jul 2011 06:12:19 -0400 (EDT) Date: Wed, 27 Jul 2011 06:12:19 -0400 (EDT) Message-Id: <201107271012.GAA21171 at smc.vnet.net> From: "McHale, Paul" <Paul.McHale at excelitas.com> Subject: [mg120517] Re: CDF limitations and unclear professional strategy References: <201107220107.VAA16777 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.94214 >> Disappointed... >> So much things I heard about CDF applications, >> and then, well, I have to classify them as >> documents... Very powerful documents, and almost >> touching the application world but... just >> interactive documents for an OPEN market... I agree. CDF format is a PDF on steroids. It is designed to PUBLISH on the cheap. Admittedly, it is phenomenal for just a document reader. There are two things to do with Mathematica, publish papers or do work where work is defined as change to external data or task/report being based external data. I think for Mathematica to get to the next level, sharing documents must be only one focus. Engineers also use Mathematica to parse databases, read external files, process like a program and write data out. Sharing of these efforts via a common library would be very beneficial. Then again, they are just starting to approach the corporate/enterprise are na. Who knows what they have in mind. Paul Paul McHale | Electrical Engineer, Energetics Systems | Excelit as Technologies Corp. Phone: +1 937.865.3004 | Fax: +1 937.865.5170 | Mobile: +1 937.371.2828 1100 Vanguard Blvd, Miamisburg, Ohio 45342-0312 USA Paul.McHale at Excelitas.com www.excelitas.com Please consider the environment before printing this e-mail. This email message and any attachments are confidential and proprietary to Excelitas Technologies Corp. If you are not the intended recipient of this message, please inform the sender by replying to this email or sending a message to the sender and destroy the message and any attachments. Thank you -----Original Message----- From: Fonseca [mailto:public at fonseca.info] Sent: Thursday, July 21, 2011 9:07 PM To: mathgroup at smc.vnet.net Subject: [mg120517] CDF limitations and unclear professional strategy Disappointed... So much things I heard about CDF applications, and then, well, I have to classify them as documents... Very powerful documents, and almost touching the application world but... just interactive documents for an OPEN market... Somehow nothing new than what already existed. Not that it is bad (I personally have already commented a lot of good on the subject). The problem is that I'm still unable to see how could I use this in an cooperation environment. Let's suppose two different scenarios: 1. An application to be distributed to 100 colleagues of the same company, that, well, to make it simple, just needs to import a gif image, apply some sort of simple filter, and export it to a gif file. Very simple application, but not feasible. There isn't even concrete information on the subject (besides "please contact us"). Have contacted several times on the subject, and always no solution... Has this changed? Why so much mystery on the PROfessional use of this technology (this confirms what I keep hearing from others: academic, institutes, governments, etc, but not corporate...)? 100 special licenses for such a simple application? 2. Let's suppose I developed a package that does some awesome stuff, and really toke me some time to develop it. I use it to write a report for a client, and I want to give the report as an interactive document to the client (nothing could be better than CDF!). But the interaction needs my package (there's no way of previously generating all possible outputs). So, I can't send it to my client, since I risk having it copied to my competitors. Each client to whom I send a report needs a professional version? I mean, each person in the company of my client, and their consultant partners that will evaluate my report...? Or is this now the other way around: each report or report revision needs to be converted at Wolfram for pro functionalists activation on the standard player (I sign confidential agreements with my client...)? After all the announcements I have no idea what's the strategy. Did I missed some information on WR site? I just resent some questions to WR on the "please contact us", to see if something changed in the past couple of months (when I last insisted). Waiting for the answer, but why all the mystery on the PRO version? What can't WR figure out about a professional strategy? Can someone from Wolfram clarify this here for everyone? Is there a strategy for these two very common and simple examples of my world? Is this only meant for publishing documents on an OPEN environment, or on a direct revenue strategy (selling each document/application copy for a not so small price?). It's interesting that all the examples presented in the site are of very simple applications, but how can these simple application be used on a closed corporate environment, if the licensing of the applications cost more than their internal development cost? I'm completely in the dark... I know that I already asked this before, without great success (just one person answered), but, am I the only one here? Regards, P. Fonseca From mathgroup-adm at smc.vnet.net Wed Jul 27 06:14:46 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 8E5E26BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 06:14:46 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6RBElIr024326; Wed, 27 Jul 2011 06:14:47 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id BA698BF42E; Wed, 27 Jul 2011 06:14:47 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 35EADA818D; Wed, 27 Jul 2011 06:14:46 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA23117 for mathgroup-newout; Wed, 27 Jul 2011 08:08:31 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA23112 for mathgroup-newsend; Wed, 27 Jul 2011 08:08:31 -0400 (EDT) Date: Wed, 27 Jul 2011 08:08:31 -0400 (EDT) Message-Id: <201107271208.IAA23112 at smc.vnet.net> From: Heike Gramberg <heike.gramberg at gmail.com> Subject: [mg120535] Re: File directory References: <201107271014.GAA21275 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.110032 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, BODY_SIZE_700_799 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. You could do something like SetOptions[$FrontEnd, WindowTitle -> "FullFileName"] Heike On 27 Jul 2011, at 11:14, E. Frauendorfer wrote: > Hi, > > I am often working in two kernels with Mathematica Programs coming from different directories also from different drives. After working some time, I very > often don't remember the origin of a particular open program. > > On opening a notebook the name of the program always appears on top of > the notebook, but not the origin. In my latest installation of Mathematica (8.01 on Win 7, 64 bit) I am no longer able to find the origin of an open program. > > Please tell, how to recover this feature. > > > Thanks E.F. > From mathgroup-adm at smc.vnet.net Wed Jul 27 06:15:09 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id EB8006BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Wed, 27 Jul 2011 06:15:08 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6RBFAxe024427; Wed, 27 Jul 2011 06:15:10 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 45E9AA81AA; Wed, 27 Jul 2011 06:15:10 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id EED96A818D; Wed, 27 Jul 2011 06:15:08 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA23110 for mathgroup-newout; Wed, 27 Jul 2011 08:08:21 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA23105 for mathgroup-newsend; Wed, 27 Jul 2011 08:08:19 -0400 (EDT) Date: Wed, 27 Jul 2011 08:08:19 -0400 (EDT) Message-Id: <201107271208.IAA23105 at smc.vnet.net> From: Yves Klett <yves.klett at googlemail.com> Subject: [mg120534] Re: File directory References: <j0ootl$ktp$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.27.110032 You can use NotebookDirectory[] to get the path to the current notebook. In 8.01 the Save-As-Dialog behaves not as expected and opens in the path of the last opened document as default instead of using the current document´s path. This results in widely scattered notebooks if you are not careful. Regards, Yves Am 27.07.2011 12:22, schrieb E. Frauendorfer: > Hi, > > I am often working in two kernels with Mathematica Programs coming from different directories also from different drives. After working some time, I very > often don't remember the origin of a particular open program. > > On opening a notebook the name of the program always appears on top of > the notebook, but not the origin. In my latest installation of Mathematica (8.01 on Win 7, 64 bit) I am no longer able to find the origin of an open program. > > Please tell, how to recover this feature. > > > Thanks E.F. > From mathgroup-adm at smc.vnet.net Thu Jul 28 06:01:41 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 3B36D6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:01:41 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SB1gux026312; Thu, 28 Jul 2011 06:01:42 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id DEDCCA815B; Thu, 28 Jul 2011 06:01:41 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 42568FF003; Thu, 28 Jul 2011 06:01:40 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04058 for mathgroup-newout; Thu, 28 Jul 2011 07:54:09 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04053 for mathgroup-newsend; Thu, 28 Jul 2011 07:54:08 -0400 (EDT) Date: Thu, 28 Jul 2011 07:54:08 -0400 (EDT) Message-Id: <201107281154.HAA04053 at smc.vnet.net> From: Gregory Lypny <gregory.lypny at videotron.ca> Subject: [mg120541] How Can I Make Plot Options Conditional? To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.104814 Hello everyone, Is there a preferred way to make plot options conditional? For Epilog points, for example, I've been using an IF statement within the Epilog list to determine whether the point size should be set to zero and therefore make the point invisible. Epilog -> {If[x >= xMin, PointSize[.02], PointSize[0]], Orange, Point[ptX]}, Gregory= From mathgroup-adm at smc.vnet.net Thu Jul 28 06:01:44 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id E1B8B6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:01:44 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SB1kN5026338; Thu, 28 Jul 2011 06:01:46 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 2D2E2A816B; Thu, 28 Jul 2011 06:01:46 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 2E167A815B; Thu, 28 Jul 2011 06:01:44 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04052 for mathgroup-newout; Thu, 28 Jul 2011 07:53:58 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04047 for mathgroup-newsend; Thu, 28 Jul 2011 07:53:58 -0400 (EDT) Date: Thu, 28 Jul 2011 07:53:58 -0400 (EDT) Message-Id: <201107281153.HAA04047 at smc.vnet.net> From: Zach Bjornson <zachb at wolfram.com> Subject: [mg120540] Re: Genomes Mathematica knows about and how to use them? References: <j0oobg$kmn$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.104814 The GenomeData function in Mathematica only has the human genome. However, there are a number of other genomes available via the WolframAlpha interface present in Mathematica 8. At the end of this blog post, there are some examples -- rat, zebra fish, mouse, drosophila, ... http://blog.wolframalpha.com/2010/03/10/did-you-know-that-wolframalpha-knows-your-dna/ Best, Zach W|A Computational Biology On 7/27/2011 3:13 AM, Ted Ersek wrote: > I know someone who is a researcher in biochemistry and I wanted to show them > how Mathematica could be useful in their research. I read somewhere that > besides the human genome, Mathematica has the genome of a certain species > of mouse and fruit fly in its curated data. Then I figured Mathematica > might also have the genomes of the bacteria they research in its curated > data. > > > > How does one find out what genomes are included in curated data that comes > with Mathematica? Once you know a certain genome besides the human genome > is available, how do you access it? > > > > If one is going to Import a genome from a source independent of Wolfram > Research, what are likely file formats one would Import? > > > > Thanks, > > Ted Ersek From mathgroup-adm at smc.vnet.net Thu Jul 28 06:02:03 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 406476BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:02:03 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SB248N026400; Thu, 28 Jul 2011 06:02:04 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 77163FF007; Thu, 28 Jul 2011 06:02:04 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id E37DBA815B; Thu, 28 Jul 2011 06:02:02 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04134 for mathgroup-newout; Thu, 28 Jul 2011 07:55:50 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04128 for mathgroup-newsend; Thu, 28 Jul 2011 07:55:49 -0400 (EDT) Date: Thu, 28 Jul 2011 07:55:49 -0400 (EDT) Message-Id: <201107281155.HAA04128 at smc.vnet.net> From: "Berthold Hamburger" <b-hamburger at artinso.com> Subject: [mg120550] Timing progress bar To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.104814 Hi, Is there any possibility to get visible feedback about the progress of a calculation via the Timing function? Something like a progress bar or "% completed". Thanks Berthold -- Berthold Hamburger - Cellist/Spain <http://www.artinso.com/> http://www.artinso.com | <http://www.astronomy.artinso.com/> http://www.astronomy.artinso.com | <http://www.artemis.artinso.com/> http://www.artemis.artinso.com Visit me on Facebook <https://www.facebook.com/berthold.hamburger> From mathgroup-adm at smc.vnet.net Thu Jul 28 06:04:07 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id BD37E6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:04:07 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SB48VV026798; Thu, 28 Jul 2011 06:04:08 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id CBE64FF007; Thu, 28 Jul 2011 06:04:08 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 77C3BA80BA; Thu, 28 Jul 2011 06:04:07 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04102 for mathgroup-newout; Thu, 28 Jul 2011 07:55:05 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04097 for mathgroup-newsend; Thu, 28 Jul 2011 07:55:04 -0400 (EDT) Date: Thu, 28 Jul 2011 07:55:04 -0400 (EDT) Message-Id: <201107281155.HAA04097 at smc.vnet.net> From: Helen Read <readhpr at gmail.com> Subject: [mg120546] Re: File directory References: <j0ootl$ktp$1 at smc.vnet.net> <j0ov4c$mie$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.104814 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_500_599 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. On 7/27/2011 8:08 AM, Yves Klett wrote: > > In 8.01 the Save-As-Dialog behaves not as expected and opens in the path > of the last opened document as default instead of using the current > document's path. > > This results in widely scattered notebooks if you are not careful. That's something I really wish they would fix. A simple Save-As requires me to remember what directory the file is in, and sometimes I have to browse all over the place for it. It's a huge nuisance. -- Helen Read University of Vermont From mathgroup-adm at smc.vnet.net Thu Jul 28 06:05:52 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 026536BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:05:52 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SB5qxF027385; Thu, 28 Jul 2011 06:05:52 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id A85D0FF009; Thu, 28 Jul 2011 06:05:52 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 1A525FF004; Thu, 28 Jul 2011 06:05:51 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04024 for mathgroup-newout; Thu, 28 Jul 2011 07:53:14 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04020 for mathgroup-newsend; Thu, 28 Jul 2011 07:53:14 -0400 (EDT) Date: Thu, 28 Jul 2011 07:53:14 -0400 (EDT) Message-Id: <201107281153.HAA04020 at smc.vnet.net> From: "Christoph Lhotka" <christoph.lhotka at univie.ac.at> Subject: [mg120536] Re: File directory To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.104814 thats easy, just use {$MachineName, NotebookDirectory[]} to get the name of the computer and the absoulte file directory of the notebook in which you type in the command. best, christoph On 27/07/2011 12:14, E. Frauendorfer wrote: > Hi, > > I am often working in two kernels with Mathematica Programs coming from different directories also from different drives. After working some time, I very > often don't remember the origin of a particular open program. > > On opening a notebook the name of the program always appears on top of > the notebook, but not the origin. In my latest installation of Mathematica (8.01 on Win 7, 64 bit) I am no longer able to find the origin of an open program. > > Please tell, how to recover this feature. > > > Thanks E.F. > > From mathgroup-adm at smc.vnet.net Thu Jul 28 06:08:07 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 0B1386BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:08:07 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SB88EU027700; Thu, 28 Jul 2011 06:08:08 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 3AAA7A8195; Thu, 28 Jul 2011 06:08:08 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id D9DEEA816B; Thu, 28 Jul 2011 06:08:06 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04110 for mathgroup-newout; Thu, 28 Jul 2011 07:55:16 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04105 for mathgroup-newsend; Thu, 28 Jul 2011 07:55:15 -0400 (EDT) Date: Thu, 28 Jul 2011 07:55:15 -0400 (EDT) Message-Id: <201107281155.HAA04105 at smc.vnet.net> From: James Stein <mathgroup at stein.org> Subject: [mg120547] Re: File directory References: <201107271014.GAA21275 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.105714 On a Mac: command-click on the document name to see its complete hierarchy of containing folders. Surely Windows has a similar feature... On Wed, Jul 27, 2011 at 3:14 AM, E. Frauendorfer < he.frauendorfer at t-online.de> wrote: > Hi, > > I am often working in two kernels with Mathematica Programs coming from > different directories also from different drives. After working some time, I > very > often don't remember the origin of a particular open program. > > On opening a notebook the name of the program always appears on top of > the notebook, but not the origin. In my latest installation of Mathematica > (8.01 on Win 7, 64 bit) I am no longer able to find the origin of an open > program. > > Please tell, how to recover this feature. > > > Thanks E.F. > > From mathgroup-adm at smc.vnet.net Thu Jul 28 06:10:01 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 8E31F6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:10:01 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SBA2Tb028044; Thu, 28 Jul 2011 06:10:02 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id B68F3A8138; Thu, 28 Jul 2011 06:10:02 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 234E6A80BA; Thu, 28 Jul 2011 06:10:01 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04143 for mathgroup-newout; Thu, 28 Jul 2011 07:56:01 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04137 for mathgroup-newsend; Thu, 28 Jul 2011 07:56:00 -0400 (EDT) Date: Thu, 28 Jul 2011 07:56:00 -0400 (EDT) Message-Id: <201107281156.HAA04137 at smc.vnet.net> From: Richard Fateman <fateman at cs.berkeley.edu> Subject: [mg120551] Re: And now for something completely different References: <201107251129.HAA25514 at smc.vnet.net> <201107261107.HAA09286 at smc.vnet.net> <j0oosn$kte$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.105714 On 7/27/2011 3:22 AM, Andrzej Kozlowski wrote: > Or, perhaps this is even more appropriate ;-) : > > http://kingjbible.com/genesis/1.htm > > > Andrzej Kozlowski > I suppose SW would like NKS to be compared with the King James translation of the Bible. The KJV's version of Genesis tends to be rather poetical, and hardly the touchstone for conveying clarity to a modern reader. It does have verses beginning with "And". A good catch. However, the initial "And"s are lacking in more contemporary translations intended to express the clear content of the Bible to a modern English reader: e.g. http://net.bible.org/#!bible/Genesis+1:1 I see one spot though.. "And there was light." in that translation. For drama, don't you think? From mathgroup-adm at smc.vnet.net Thu Jul 28 06:11:57 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 8F6F76BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:11:57 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SBBwqk028346; Thu, 28 Jul 2011 06:11:58 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id B3D13A816B; Thu, 28 Jul 2011 06:11:58 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 16137A815B; Thu, 28 Jul 2011 06:11:57 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04118 for mathgroup-newout; Thu, 28 Jul 2011 07:55:29 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04113 for mathgroup-newsend; Thu, 28 Jul 2011 07:55:27 -0400 (EDT) Date: Thu, 28 Jul 2011 07:55:27 -0400 (EDT) Message-Id: <201107281155.HAA04113 at smc.vnet.net> From: Alexey Popkov <lehin.p at gmail.com> Subject: [mg120548] Why FullDefinition does not work in MathLink mode? To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.110314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_1099 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Hello, When working with MathKernel in interactive session without of the FrontEnd, FullDefinition works as expected: In[1]:= a=2;FullDefinition[a] Out[1]= a = 2 But when trying to use it in MathLink mode one get ReturnPacket with unevaluated FullDefinition: In[1]:= kernel=LinkLaunch[First[$CommandLine] <> " -mathlink"]; LinkRead[kernel]; LinkWrite[kernel,Unevaluated[a=2;FullDefinition[a]]] LinkRead[kernel]//FullForm Out[4]//FullForm= ReturnPacket[FullDefinition[a]] The built-in parallelization functions have the same problem: In[2]:= ParallelEvaluate[a=2;FullDefinition[a]]//FullForm Out[2]//FullForm= List[FullDefinition[a],FullDefinition[a]] One workaround is to use ToString: In[3]:= ParallelEvaluate[a=2;ToString[FullDefinition[a]]] Out[3]= {a = 2,a = 2} Why FullDefinition returns unevaluated in MathLink session although it works as expected in interactive MathKernel session? Is it possible to make it working without any glitches? Any ideas? From mathgroup-adm at smc.vnet.net Thu Jul 28 06:14:07 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 49B8B6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:14:07 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SBE8ev028573; Thu, 28 Jul 2011 06:14:08 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 929A7A815B; Thu, 28 Jul 2011 06:14:08 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id D95F4A80BA; Thu, 28 Jul 2011 06:14:06 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04124 for mathgroup-newout; Thu, 28 Jul 2011 07:55:39 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04119 for mathgroup-newsend; Thu, 28 Jul 2011 07:55:38 -0400 (EDT) Date: Thu, 28 Jul 2011 07:55:38 -0400 (EDT) Message-Id: <201107281155.HAA04119 at smc.vnet.net> From: James Stein <mathgroup at stein.org> Subject: [mg120549] Re: Genomes Mathematica knows about and how to use them? References: <201107271011.GAA21129 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.110314 Genomic data grows daily; many different archives exist, addressing different needs by people with keen interest. (I suspect different archives also have different conventions for metadata.) I doubt Wolfram could or should compete against such specialists. If a few genomes are available, it's likely for hobbyists. On Wed, Jul 27, 2011 at 3:11 AM, Ted Ersek <ersekt at md.metrocast.net> wrote: > I know someone who is a researcher in biochemistry and I wanted to show > them > how Mathematica could be useful in their research. I read somewhere that > besides the human genome, Mathematica has the genome of a certain species > of mouse and fruit fly in its curated data. Then I figured Mathematica > might also have the genomes of the bacteria they research in its curated > data. > > > > How does one find out what genomes are included in curated data that comes > with Mathematica? Once you know a certain genome besides the human genome > is available, how do you access it? > > > > If one is going to Import a genome from a source independent of Wolfram > Research, what are likely file formats one would Import? > > > > Thanks, > > Ted Ersek > From mathgroup-adm at smc.vnet.net Thu Jul 28 06:15:47 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id C62056BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:15:47 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SBFnjX028775; Thu, 28 Jul 2011 06:15:49 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 10E3DA816B; Thu, 28 Jul 2011 06:15:49 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 24A9EA8195; Thu, 28 Jul 2011 06:15:47 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04066 for mathgroup-newout; Thu, 28 Jul 2011 07:54:21 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04061 for mathgroup-newsend; Thu, 28 Jul 2011 07:54:20 -0400 (EDT) Date: Thu, 28 Jul 2011 07:54:20 -0400 (EDT) Message-Id: <201107281154.HAA04061 at smc.vnet.net> From: Armand Tamzarian <mike.honeychurch at gmail.com> Subject: [mg120542] Re: getting ride of 0.i References: <j0oomv$krj$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.110314 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1200_1299 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. On Jul 27, 8:19 pm, Eli Fenichel <Eli.Fenic... at asu.edu> wrote: > I am trying to use FindMinimum to minimize the square of a function over many variables (i.e., parameters). The function itself has the potential to generate imaginary numbers and involves numerical integration (the parameter values that minimize the function are real). For clarification the function in evaluated at multiple points so it can be written as vector. By squaring the vector the numerical values of the elements are always real with no imaginary parts. However, Mathematica often writes x + 0.i, where x is a some numerical value, for some of the elements. > > Typically, this can be ignored, the Chop command can be used, or it simply does not cause problems. However, I keep getting an error: [cid:image003.... at 01CC4BBC.E87A0F30] > > NIntegrate::nlim: "t = Y[1.] is not a valid limit of integration." > > Y is an array with the parameters to be minimized. > > However, if evaluate the objective function to be minimized using replacement rules I get > x + 0.i. > > Is there a way for me tell Mathematica to always treat 0.i as 0 and drop it? It seems to be causing problems in the FindMinimum call. > > Thanks, > Eli Re[3 + 2 I] From mathgroup-adm at smc.vnet.net Thu Jul 28 06:18:12 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id D349F6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:18:12 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SBIE1d028976; Thu, 28 Jul 2011 06:18:14 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 27C71A8170; Thu, 28 Jul 2011 06:18:14 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 9B063A816B; Thu, 28 Jul 2011 06:18:12 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04151 for mathgroup-newout; Thu, 28 Jul 2011 07:56:12 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04146 for mathgroup-newsend; Thu, 28 Jul 2011 07:56:11 -0400 (EDT) Date: Thu, 28 Jul 2011 07:56:11 -0400 (EDT) Message-Id: <201107281156.HAA04146 at smc.vnet.net> From: Tomas Garza <tgarza10 at msn.com> Subject: [mg120552] Re: And now for something completely different To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.110614 And, could one quote a better example? -Tomas [This thread is now over - moderator] > Date: Wed, 27 Jul 2011 06:14:29 -0400 > From: akoz at mimuw.edu.pl > Subject: Re: And now for something completely different > To: mathgroup at smc.vnet.net > > Or, perhaps this is even more appropriate ;-) : > > http://kingjbible.com/genesis/1.htm > > > Andrzej Kozlowski > > > > > On 26 Jul 2011, at 13:07, ccarter at mit.edu wrote: > > > And, how is this relevant to the group topic? > > > > And, for what it is worth: > > > > HAMLET > > ACT III > > SCENE I A room in the castle. > > [Enter KING CLAUDIUS, QUEEN GERTRUDE, POLONIUS, > > OPHELIA, ROSENCRANTZ, and GUILDENSTERN] > > > > KING CLAUDIUS And can you, by no drift of circumstance, > > Get from him why he puts on this confusion, > > Grating so harshly all his days of quiet > > With turbulent and dangerous lunacy? > > > > > > > > On Mon, 25 Jul 2011, Richard Fateman wrote: > > > >> Date: Mon, 25 Jul 2011 07:29:07 -0400 (EDT) > >> From: Richard Fateman <fateman at cs.berkeley.edu> > >> To: mathgroup at smc.vnet.net > >> Subject: And now for something completely different > >> > >> > >> Can you start a paragraph with "And"? > >> > >> http://answers.yahoo.com/question/index?qid090413160418AAyfRO2 > >> > >> says, 'No.' > >> > >> > >> Stephen Wolfram often does so, and I find it annoying. > >> example > >> http://www.wolframscience.com/nksonline/page-42?firstview==1 > >> > >> This construction seems to have been removed from the online == > documentation. > >> > >> > >> --RJF > >> > >> > > > > From mathgroup-adm at smc.vnet.net Thu Jul 28 06:20:36 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id AFC3D6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:20:36 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SBKcFc029244; Thu, 28 Jul 2011 06:20:38 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id E7DE7FF00B; Thu, 28 Jul 2011 06:20:37 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 2CAE7FF003; Thu, 28 Jul 2011 06:20:16 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04091 for mathgroup-newout; Thu, 28 Jul 2011 07:54:54 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04085 for mathgroup-newsend; Thu, 28 Jul 2011 07:54:53 -0400 (EDT) Date: Thu, 28 Jul 2011 07:54:53 -0400 (EDT) Message-Id: <201107281154.HAA04085 at smc.vnet.net> From: "Donald DuBois" <donabc at comcast.net> Subject: [mg120545] Re: Grid Divider Style With Background Colors Reply-To: "Donald DuBois" <donald at ieee.org> References: <201107251128.HAA25473 at smc.vnet.net> <A6EB6AB9-1A03-404B-88A7-CE43F121134C at gmail.com> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.110614 Heike, That was a wonderful solution. Many thanks. Don -----Original Message----- From: Heike Gramberg Sent: Monday, July 25, 2011 5:19 AM To: Don Cc: mathgroup at smc.vnet.net Subject: [mg120545] Re: Grid Divider Style With Background Colors You could do something like With[{gap = 1, elemWidth=3, h = 8, w = 7}, mat = RandomInteger[10, {h, w}]; colours = Table[Blend[{Lighter[Blue], Pink}, j/w], {i, h}, {j, w}]; Framed[Grid[ MapThread[ Framed[Pane[#1, Scaled[1]], ImageMargins -> gap, Background -> #2] &, {mat, colours}, 2], Spacings -> {0, 0}, ItemSize -> elemWidth], FrameMargins -> gap]] elemWidth is the width of the elements in the Grid and gap the distance between the lines. Heike On 25 Jul 2011, at 12:28, Don wrote: > Mathematica permits divider lines between rows and columns in a table > (grid) such > as this example from the documentation: > > Grid[Table[x, {4}, {11}], Dividers -> {{{{True, False}}, -1 -> True}, > False}] > > But, the dividers are single lines only. > > Sometimes double line dividers are desired > as shown in this table on the Web: > > http://www.assetcorrelation.com/user/correlations/90 > > Notice that the background color for an item is only within > the inside line of a double line divider. > > Is there any way to produce (a) this kind of divider (double line) > and (b) with background colors for specific items that don't cross > the inside line of the double line divider? > > Thank you in advance. > > Don > From mathgroup-adm at smc.vnet.net Thu Jul 28 06:22:04 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 204D96BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:22:04 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SBM0sG029308; Thu, 28 Jul 2011 06:22:05 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 3C9CF98033; Thu, 28 Jul 2011 06:22:00 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 871F098004; Thu, 28 Jul 2011 06:21:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04030 for mathgroup-newout; Thu, 28 Jul 2011 07:53:25 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04026 for mathgroup-newsend; Thu, 28 Jul 2011 07:53:25 -0400 (EDT) Date: Thu, 28 Jul 2011 07:53:25 -0400 (EDT) Message-Id: <201107281153.HAA04026 at smc.vnet.net> From: Oliver Ruebenkoenig <ruebenko at wolfram.com> Subject: [mg120537] Re: how to ListPlot3D large data sets References: <201107271014.GAA21258 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.111215 On Wed, 27 Jul 2011, Ted Sariyski wrote: > Hi, > > In one attempt MaxPlotPoints did not help, but I was not persistent > because I have to resolve other issues before I return to ListPlot3D. > One issue is that I cannot pack data. On the big data set I verify that > it is numeric array and still I cannot get it packed. Here is an example: > > mydata={{0.00100,10.,0.},{0.00100,10.,0.00100},{0.00100,10.,0.00200},{0.00100,10.,0.00300},{0.00100,10.,0.00400}}; > > MatrixQ[mydata,NumericQ] > True > > myPackedData=ToPackedArray[mydata,Real]; > > MatrixQ[myPackedData, NumericQ] > True > > PackedArrayQ[myPackedData] > False > > What I am doing wrong? > Thanks, > --Ted Ted, possibly ToPackedArray are not on you context path either try <<Developer` or mydata = {{0.00100, 10., 0.}, {0.00100, 10., 0.00100}, {0.00100, 10., 0.00200}, {0.00100, 10., 0.00300}, {0.00100, 10., 0.00400}}; myPackedData = Developer`ToPackedArray[mydata, Real]; Developer`PackedArrayQ[myPackedData] Oliver > > On 7/25/2011 7:30 AM, Oliver Ruebenkoenig wrote: >> On Sat, 23 Jul 2011, Ted Sariyski wrote: >> >>> Hi, >>> I guess I am pushing the limits of ListPlot3D. I try to ListPlot3d a data >>> set with many millions of records. I was not able to get an image from the >>> full dataset, it takes forever. If I use e.g. every fifth record, although >>> slow, I get an image. The machine running Mathematica is Windows 7 (64 bit), >>> has 24 GB RAM and there was no swapping. I wonder what is considered as a >>> reasonable data size for ListPlot3D and are there other tools in Mathematica >>> for visualization of large data sets? >>> Thanks in advance, >>> --Ted >>> >>> >>> >> Ted, >> >> is your data packed? >> >> Developer`PackedArrayQ[yourData] >> >> Oliver >> > > > From mathgroup-adm at smc.vnet.net Thu Jul 28 06:24:06 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 22A996BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:24:06 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SBO7eV029510; Thu, 28 Jul 2011 06:24:07 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 3A470FF003; Thu, 28 Jul 2011 06:24:07 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 920C6A8138; Thu, 28 Jul 2011 06:24:05 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04037 for mathgroup-newout; Thu, 28 Jul 2011 07:53:37 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04032 for mathgroup-newsend; Thu, 28 Jul 2011 07:53:36 -0400 (EDT) Date: Thu, 28 Jul 2011 07:53:36 -0400 (EDT) Message-Id: <201107281153.HAA04032 at smc.vnet.net> From: "Oleksandr Rasputinov" <oleksandr_rasputinov at hmamail.com> Subject: [mg120538] Re: how to ListPlot3D large data sets References: <201107232354.TAA08712 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.111215 It works if you either specify ToPackedArray/PackedArrayQ by context: myPackedData = Developer`ToPackedArray[mydata,Real]; Developer`PackedArrayQ[myPackedData] True or add Developer` to $ContextPath: $ContextPath = Prepend[$ContextPath, "Developer`"] ToPackedArray[mydata,Real]; PackedArrayQ[myPackedData] True Best, (another) O. R. On Wed, 27 Jul 2011 11:21:44 +0100, Ted Sariyski <tsariysk at craft-tech.com> wrote: > Hi, > > In one attempt MaxPlotPoints did not help, but I was not persistent > because I have to resolve other issues before I return to ListPlot3D. > One issue is that I cannot pack data. On the big data set I verify that > it is numeric array and still I cannot get it packed. Here is an > example: > > mydata={{0.00100,10.,0.},{0.00100,10.,0.00100},{0.00100,10.,0.00200},{0.00100,10.,0.00300},{0.00100,10.,0.00400}}; > > MatrixQ[mydata,NumericQ] > True > > myPackedData=ToPackedArray[mydata,Real]; > > MatrixQ[myPackedData, NumericQ] > True > > PackedArrayQ[myPackedData] > False > > What I am doing wrong? > Thanks, > --Ted > > On 7/25/2011 7:30 AM, Oliver Ruebenkoenig wrote: >> On Sat, 23 Jul 2011, Ted Sariyski wrote: >>> Hi, >>> I guess I am pushing the limits of ListPlot3D. I try to ListPlot3d a >>> data >>> set with many millions of records. I was not able to get an image from >>> the >>> full dataset, it takes forever. If I use e.g. every fifth record, >>> although >>> slow, I get an image. The machine running Mathematica is Windows 7 (64 >>> bit), >>> has 24 GB RAM and there was no swapping. I wonder what is considered >>> as a >>> reasonable data size for ListPlot3D and are there other tools in >>> Mathematica >>> for visualization of large data sets? >>> Thanks in advance, >>> --Ted >>> >> Ted, >> >> is your data packed? >> >> Developer`PackedArrayQ[yourData] >> >> Oliver From mathgroup-adm at smc.vnet.net Thu Jul 28 06:26:21 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id D71E36BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:26:21 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SBQNMM030282; Thu, 28 Jul 2011 06:26:23 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id D2ED7A816B; Thu, 28 Jul 2011 06:26:22 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id ACB6AFF006; Thu, 28 Jul 2011 06:26:00 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04072 for mathgroup-newout; Thu, 28 Jul 2011 07:54:32 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04067 for mathgroup-newsend; Thu, 28 Jul 2011 07:54:31 -0400 (EDT) Date: Thu, 28 Jul 2011 07:54:31 -0400 (EDT) Message-Id: <201107281154.HAA04067 at smc.vnet.net> From: Emu <samuel.thomas.blake at gmail.com> Subject: [mg120543] Re: Roots of a Jacobi polynomial References: <j0ool2$kr9$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.111215 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ONE_WORD 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_2000_2999 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __C230066_P5 0, __CP_URI_IN_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __STOCK_PHRASE_7 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. On Jul 27, 8:18 pm, Bob Hanlon <hanl... at cox.net> wrote: > Don't use machine precision > > eqn1 = JacobiP[25, -1/2, -1/2, x] == 0; > > soln1 = NSolve[eqn1, x, WorkingPrecision -> 15]; > > Length[soln1] > > 25 > > And @@ (eqn1 /. soln1) > > True > > And @@ (-1 < # < 1 & /@ (x /. soln1)) > > True > > eqn2 = JacobiP[25, -0.5`20, -0.5`20, x] == 0; > > soln2 = NSolve[eqn2, x, WorkingPrecision -> 15]; > > soln1 == soln2 > > True > > Bob Hanlon > > ---- Jacopo Bertolotti <J.Bertolo... at utwente.nl> wrote: > > ============= > Dear MathGroup, > Mathematica implements Jacobi polynomials as JacobiP[n,a,b,x] where n is > the order of the polynomial. As it can be checked plotting it a Jacobi > polynomial has n real roots in the interval [-1,1] and it goes rapidly > to infinity outside this interval (at least when both a and b are >-1). > The problem arise when you try to find the roots of such a polynomial > for a relatively high value of n. As an example the command > NSolve[JacobiP[20, -0.5, -0.5, x] == 0, x] correctly returns > > {{x -> -0.99702}, {x -> -0.972111}, {x -> -0.92418}, {x -> -0.852398}, > {x -> -0.760555}, {x -> -0.649375}, {x -> -0.522529}, {x -> -0.382672}, > {x -> -0.233449}, {x -> -0.0784582}, {x -> 0.0784591}, {x -> 0.233445}, > {x -> 0.382684}, {x -> 0.522504}, {x -> 0.649423}, {x -> 0.760466}, {x > -> 0.852539}, {x -> 0.924002}, {x -> 0.972267}, {x -> 0.996958}} > > while NSolve[JacobiP[25, -0.5, -0.5, x] == 0, x] gives > > {{x -> -1.01869}, {x -> -0.979859 - 0.0479527 I}, {x -> -0.979859 + > 0.0479527 I}, {x -> -0.870962 - 0.070991 I}, {x -> -0.870962 + 0.070991 > I}, {x -> -0.71378 - 0.0505783 I}, {x -> -0.71378 + 0.0505783 I}, {x -> > -0.571283}, {x -> -0.486396}, {x -> -0.367829}, {x -> -0.248377}, {x -> > -0.125513}, {x -> -0.0000434329}, {x -> 0.125442}, {x -> 0.2489}, {x -> > 0.365644}, {x -> 0.496977}, {x -> 0.555743}, {x -> 0.717741- 0.0573399 > I}, {x -> 0.717741+ 0.0573399 I}, {x -> 0.87423- 0.0652273 I}, {x -> > 0.87423+ 0.0652273 I}, {x -> 0.977876- 0.0422422 I}, {x -> 0.977876+ > 0.0422422 I}, {x -> 1.01494}} > > i.e. both complex roots and roots outside the [-1,1] interval. > Substituting any of these values back into the polynomial easily show > that these values are not roots at all. Also notice that using the > command Root (e.g. Sort@Table[Root[JacobiP[25, -0.5, -0.5, x], i], {i, > 1, 25}]) gives different but still wrong results. > On a related note: NIntegrate sometimes gives wrong results when > integrating function of the form (1-x)^a (1+x)^b f[x] and I feel this > might related to the Gauss-Jacobi quadrature failing to retrieve the > correct roots of a Jacobi polynomial. > > Do anyone have a solution for that? > > Thank you > > Jacopo Here's one way to get them in Alpha. http://www.wolframalpha.com/input/?i=numerical+solutions+to+JacobiP%5B25%2C+-1%2F2%2C+-1%2F2%2C+x%5D+%3D%3D+0 Sam From mathgroup-adm at smc.vnet.net Thu Jul 28 06:28:16 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 1F2206BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:28:16 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SBSHLE030478; Thu, 28 Jul 2011 06:28:17 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 0FC6FFF004; Thu, 28 Jul 2011 06:28:17 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 88BFDA816B; Thu, 28 Jul 2011 06:28:15 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04045 for mathgroup-newout; Thu, 28 Jul 2011 07:53:47 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04041 for mathgroup-newsend; Thu, 28 Jul 2011 07:53:47 -0400 (EDT) Date: Thu, 28 Jul 2011 07:53:47 -0400 (EDT) Message-Id: <201107281153.HAA04041 at smc.vnet.net> From: DrMajorBob <btreat1 at austin.rr.com> Subject: [mg120539] Re: FinancialData still broken Reply-To: drmajorbob at yahoo.com References: <201107222344.TAA28525 at smc.vnet.net> <j0fos4$8p6$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.111514 > Would it be easier to just get the data from Yahoo rather than have to > worry about fixes and innoculations? I don't know how to do that, but I suspect it's Yahoo sending erroneous prices, anyway. Bobby On Wed, 27 Jul 2011 05:12:30 -0500, Armand Tamzarian <mike.honeychurch at gmail.com> wrote: > On Jul 24, 10:26 am, DrMajorBob <btre... at austin.rr.com> wrote: >> I usually don't see the "price > 10^8" bug, either. It may have been >> permanently gone by the time you looked for it. But it was there for a >> day >> or so. >> >> I know the occasional spurious Missing coming back is a months-old issue >> at least, and Dan Delouis confirmed it still exists. >> >> I've inoculated my code against both bugs, so I may not notice when they >> go away. >> >> Bobby > > > > Would it be easier to just get the data from Yahoo rather than have to > worry about fixes and innoculations? > > > >> >> On Sat, 23 Jul 2011 01:29:09 -0500, James Stein <mathgr... at stein.org> >> wrote: >> >> >> >> >> >> >> >> >> >> >> >> > DANA DELOUIS wrote: >> > I really hope they fix this soon, but I guess they never issue bug >> fixes. >> >> > Are these bugs in Mathematica, or bugs in Yahoo? >> > FWIW, I do not see the bug reported by the OP (DrMajorBob). >> >> > On Fri, Jul 22, 2011 at 4:44 PM, DANA DELOUIS <dana.... at gmail.com> >> wrote: >> >> >> ...> {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8... >> >> >> Hi. This function has lots of problems. >> >> In addition to the problems you point out, here's a slightly >> different >> >> view. >> >> Sometimes the Price, and Latest Price match. >> >> Other times, the Price is corrupt, but the latest price is correct, >> and >> >> sometimes it's the other way around. >> >> Sometimes the CIK codes or Exchange are missing, etc. >> >> Other issues are bugs in Option pricing, etc. >> >> I really hope they fix this soon, but I guess they never issue bug >> >> fixes. >> >> >> >> stocks={"ACEIX","FCNTX","JACNX","JANFX","JANWX","JMSCX","JNGIX","JNGLX", >> >> "JNMCX=94, >> >> "JNOSX","JNSGX","JNSTX","PTTAX","RGACX","STRFX=94}; >> >> >> Transpose[ >> >> { >> >> Map[FinancialData[#,"Price"]&,stocks], >> >> Map[FinancialData[#,"LatestTrade"]&,stocks], >> >> Map[FinancialData[#,"CIK"]&,stocks], >> >> Map[FinancialData[#,"Company"]&,stocks] >> >> }][[;;6]] >> >> >> < Just the first 6 for posting >> >> < Looks better in MatrixForm, or something similar...> >> >> >> {5.0324*10^8,{Missing[NotAvailable],5.0324*10^8},0000080832,Van >> Kampen >> >> Equity Income Fund A} >> >> {5.0311*10^8,{{2011,7,20,17,11,0.},72.17},0000024238,Fidelity Contra >> >> Fund} >> >> {13.97,{{2011,7,20,17,50,0.},13.97},0000277751,Janus Contrarian Fund >> D >> >> Shares} >> >> {5.0324*10^8,{{2001,12,22,20,42,0.},5.0324*10^8},0000277751,Janus >> >> Flexible >> >> Bond Fund D Shar} >> >> {5.0324*10^8,{{2011,7,20,18,24,0.},46.74},0000277751,Janus Worldwide >> >> Fund D >> >> Shares} >> >> {12.48,{{2011,7,20,17,51,0.},12.48},Missing[NotAvailable],Janus Smart >> >> Portfolio Conservat} >> >> >> = = = = = = = = = = >> >> Dana DeLouis >> >> $Version >> >> 8.0 for Mac OS X x86 (64-bit) (November 6, 2010) >> >> >> On Jul 21, 5:47 am, DrMajorBob <btre... at austin.rr.com> wrote: >> >> > Erroneous prices are randomly returned: >> >> >> > FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", >> >> > "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", >> >> > "PTTAX", "RGACX", "STRFX"} >> >> >> > {8.81, 72.4, 14., 10.64, 46.49, 12.48, >> >> > 5.03202*10^8, 26.48, 23.72, 45.35, 12.48, >> >> > 5.03241*10^8, 11.04, 31.44, 32.47} >> >> >> > FinancialData /@ {"ACEIX", "FCNTX", "JACNX", "JANFX", "JANWX", >> >> > "JMSCX", "JNGIX", "JNGLX", "JNMCX", "JNOSX", "JNSGX", "JNSTX", >> >> > "PTTAX", "RGACX", "STRFX"} >> >> >> > {5.03241*10^8, 72.4, 14., 10.64, 5.03241*10^8, >> >> > 5.03168*10^8, 32.61, 26.48, 23.72, 5.03168*10^8, >> >> > 5.03168*10^8, 3.1, 11.04, 5.03241*10^8, 32.47} >> >> >> > Bobby >> >> >> > -- >> >> > DrMajor... at yahoo.com >> >> -- >> DrMajor... at yahoo.com > > -- DrMajorBob at yahoo.com From mathgroup-adm at smc.vnet.net Thu Jul 28 06:29:48 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 609656BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Thu, 28 Jul 2011 06:29:48 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6SBTnsE030569; Thu, 28 Jul 2011 06:29:49 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 6ADDFFF009; Thu, 28 Jul 2011 06:29:49 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id BDC45A8195; Thu, 28 Jul 2011 06:29:47 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04082 for mathgroup-newout; Thu, 28 Jul 2011 07:54:43 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id HAA04077 for mathgroup-newsend; Thu, 28 Jul 2011 07:54:42 -0400 (EDT) Date: Thu, 28 Jul 2011 07:54:42 -0400 (EDT) Message-Id: <201107281154.HAA04077 at smc.vnet.net> From: Jacopo Bertolotti <J.Bertolotti at utwente.nl> Subject: [mg120544] Re: Roots of a Jacobi polynomial References: <201107261107.HAA09296 at smc.vnet.net> <4E2EFAAD.60403 at wolfram.com> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.28.111514 On 07/26/2011 07:34 PM, Daniel Lichtblau wrote: > On 07/26/2011 06:07 AM, Jacopo Bertolotti wrote: >> Dear MathGroup, >> Mathematica implements Jacobi polynomials as JacobiP[n,a,b,x] where n is >> the order of the polynomial. As it can be checked plotting it a Jacobi >> polynomial has n real roots in the interval [-1,1] and it goes rapidly >> to infinity outside this interval (at least when both a and b are>-1). >> The problem arise when you try to find the roots of such a polynomial >> for a relatively high value of n. As an example the command >> NSolve[JacobiP[20, -0.5, -0.5, x] == 0, x] correctly returns >> >> {{x -> -0.99702}, {x -> -0.972111}, {x -> -0.92418}, {x -> >> -0.852398}, >> {x -> -0.760555}, {x -> -0.649375}, {x -> -0.522529}, {x -> >> -0.382672}, >> {x -> -0.233449}, {x -> -0.0784582}, {x -> 0.0784591}, {x -> >> 0.233445}, >> {x -> 0.382684}, {x -> 0.522504}, {x -> 0.649423}, {x -> >> 0.760466}, {x >> -> 0.852539}, {x -> 0.924002}, {x -> 0.972267}, {x -> 0.996958}} >> >> while NSolve[JacobiP[25, -0.5, -0.5, x] == 0, x] gives >> >> {{x -> -1.01869}, {x -> -0.979859 - 0.0479527 I}, {x -> -0.979859 + >> 0.0479527 I}, {x -> -0.870962 - 0.070991 I}, {x -> -0.870962 + >> 0.070991 >> I}, {x -> -0.71378 - 0.0505783 I}, {x -> -0.71378 + 0.0505783 I}, >> {x -> >> -0.571283}, {x -> -0.486396}, {x -> -0.367829}, {x -> -0.248377}, >> {x -> >> -0.125513}, {x -> -0.0000434329}, {x -> 0.125442}, {x -> 0.2489}, >> {x -> >> 0.365644}, {x -> 0.496977}, {x -> 0.555743}, {x -> 0.717741- >> 0.0573399 >> I}, {x -> 0.717741+ 0.0573399 I}, {x -> 0.87423- 0.0652273 I}, {x -> >> 0.87423+ 0.0652273 I}, {x -> 0.977876- 0.0422422 I}, {x -> 0.977876+ >> 0.0422422 I}, {x -> 1.01494}} >> >> i.e. both complex roots and roots outside the [-1,1] interval. >> Substituting any of these values back into the polynomial easily show >> that these values are not roots at all. Also notice that using the >> command Root (e.g. Sort@Table[Root[JacobiP[25, -0.5, -0.5, x], i], {i, >> 1, 25}]) gives different but still wrong results. >> On a related note: NIntegrate sometimes gives wrong results when >> integrating function of the form (1-x)^a (1+x)^b f[x] and I feel this >> might related to the Gauss-Jacobi quadrature failing to retrieve the >> correct roots of a Jacobi polynomial. >> >> Do anyone have a solution for that? >> >> Thank you >> >> Jacopo > > This is not a well conditioned problem. To do better you'll need to > allow NSolve to use higher precision by not giving machine numbers in > the input. > > In[102]:= solns = Sort[NSolve[JacobiP[25, -1/2, -1/2, x] == 0, x]] > > Out[102]= {{x -> -0.998027}, {x -> -0.982287}, {x -> -0.951057}, {x \ > -> -0.904827}, {x -> -0.844328}, {x -> -0.770513}, {x -> -0.684547}, \ > {x -> -0.587785}, {x -> -0.481754}, {x -> -0.368125}, {x -> \ > -0.24869}, {x -> -0.125333}, {x -> 0.}, {x -> 0.125333}, {x -> > 0.24869}, {x -> 0.368125}, {x -> 0.481754}, {x -> 0.587785}, {x -> > 0.684547}, {x -> 0.770513}, {x -> 0.844328}, {x -> 0.904827}, {x -> > 0.951057}, {x -> 0.982287}, {x -> 0.998027}} > > These might seem imperfect when you check residuals (see below). In > fact they are not at all bad. We first show that by comparing to > higher precision versions that do validate fairly well as giving > smallish residuals. > > In[104]:= solns30 = > Sort[NSolve[JacobiP[25, -1/2, -1/2, x] == 0, x, > WorkingPrecision -> 30]] > > Out[104]= {{x -> -0.998026728428271561952336806863}, {x -> \ > -0.982287250728688681085641742865}, {x -> \ > -0.951056516295153572116439333379}, {x -> \ > -0.904827052466019527713668647933}, {x -> \ > -0.844327925502015078548558063967}, {x -> \ > -0.770513242775789230803009636396}, {x -> \ > -0.684547105928688673732283357621}, {x -> \ > -0.587785252292473129168705954639}, {x -> \ > -0.481753674101715274987191502872}, {x -> \ > -0.368124552684677959156947147493}, {x -> \ > -0.248689887164854788242283746006}, {x -> \ > -0.125333233564304245373118759817}, {x -> 0}, {x -> > 0.125333233564304245373118759817}, {x -> > 0.248689887164854788242283746006}, {x -> > 0.368124552684677959156947147493}, {x -> > 0.481753674101715274987191502872}, {x -> > 0.587785252292473129168705954639}, {x -> > 0.684547105928688673732283357621}, {x -> > 0.770513242775789230803009636396}, {x -> > 0.844327925502015078548558063967}, {x -> > 0.904827052466019527713668647933}, {x -> > 0.951056516295153572116439333379}, {x -> > 0.982287250728688681085641742865}, {x -> > 0.998026728428271561952336806863}} > > This shows the two results are quite close. > > In[106]:= Max[Abs[(x /. solns) - (x /. solns30)]] > Out[106]= 4.47615*10^-10 > > This shows the high precision solutions give reasonable residuals. > > In[108]:= Max[Abs[JacobiP[25, -1/2, -1/2, x] /. solns30]] > Out[108]= 0.*10^-12 > > The machine precision results will not give good residuals. There are > two possible (and related) reasons. One is that the conditioning is > such that we are bound to lose many digits in assessing residuals (as > seems to happen above). The other is that the form of JacobiP > polynomials might just be inducing cancellation error. > > Certainly this second item is part of the problem: > > In[109]:= Max[Abs[Expand[JacobiP[25, -1/2, -1/2, x]] /. solns30]] > Out[109]= 0.*10^-21 > > Here are the corresponding machine precision evaluations of residuals. > > In[112]:= Max[Abs[JacobiP[25, -1/2, -1/2, x] /. solns]] > Out[112]= 17. > > In[113]:= Max[Abs[Expand[JacobiP[25, -1/2, -1/2, x]] /. solns]] > Out[113]= 9.31323*10^-9 > > Daniel Lichtblau > Wolfram Research > Thank you Daniel. And thank you also to everyone who wrote me suggestions (both here and in private). The combination of not using machine number in the input and increasing the WorkingPrecision seems to work fine. Apparently just using one of the two tricks do not yield any sensible result. Jacopo From mathgroup-adm at smc.vnet.net Fri Jul 29 02:47:31 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 4A1026BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 02:47:31 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T7lVPH003276; Fri, 29 Jul 2011 02:47:31 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id BA27BA80BA; Fri, 29 Jul 2011 02:47:31 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 024F6BF482; Fri, 29 Jul 2011 02:47:30 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13345 for mathgroup-newout; Fri, 29 Jul 2011 04:41:22 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13339 for mathgroup-newsend; Fri, 29 Jul 2011 04:41:21 -0400 (EDT) Date: Fri, 29 Jul 2011 04:41:21 -0400 (EDT) Message-Id: <201107290841.EAA13339 at smc.vnet.net> From: Sam McDermott <samwell187 at gmail.com> Subject: [mg120556] hatched regions, shading, and fills To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.73914 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_400_499 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Hi, After looking over some old threads, it looks like there is no elegant way to add hatch marked regions in the interior of a graphic. This is regrettable, because it would really simplify things for my particular task right now. However, are there other easily accessed directives that might give a similar result? For instance, filling in a region with polka dots? Adding diagonal lines? Filling with a very simple texture? Any help is much appreciated, Thanks, Sam From mathgroup-adm at smc.vnet.net Fri Jul 29 02:48:26 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 7FFBD6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 02:48:26 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T7mRVY003355; Fri, 29 Jul 2011 02:48:27 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id B2A6EA8170; Fri, 29 Jul 2011 02:48:27 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id D3AA0BF480; Fri, 29 Jul 2011 02:48:25 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13323 for mathgroup-newout; Fri, 29 Jul 2011 04:41:00 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13318 for mathgroup-newsend; Fri, 29 Jul 2011 04:40:59 -0400 (EDT) Date: Fri, 29 Jul 2011 04:40:59 -0400 (EDT) Message-Id: <201107290840.EAA13318 at smc.vnet.net> From: Oliver Ruebenkoenig <ruebenko at wolfram.com> Subject: [mg120554] Re: Timing progress bar References: <201107281155.HAA04128 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.73914 On Thu, 28 Jul 2011, Berthold Hamburger wrote: > Hi, > > Is there any possibility to get visible feedback about the progress of a > calculation via the Timing function? Something like a progress bar or "% > completed". > > Thanks > > Berthold > > Berthold, here are two examples with NDSolve: tEnd = 100; ProgressIndicator[Dynamic[currentTime], {0, tEnd}] currentTime = 0; NDSolve[{D[u[t, x], t] == D[u[t, x], x, x], u[0, x] == 0, u[t, 0] == Sin[t], u[t, 5] == 0}, u, {t, 0, tEnd}, {x, 0, 5}, EvaluationMonitor :> (currentTime = t;)] showStatus[status_] := LinkWrite[$ParentLink, SetNotebookStatusLine[FrontEnd`EvaluationNotebook[], ToString[status]]]; clearStatus[] := showStatus[""]; clearStatus[] (* look in the lower left of the FrontEnd *) NDSolve[{D[u[t, x], t] == D[u[t, x], x, x], u[0, x] == 0, u[t, 0] == Sin[t], u[t, 5] == 0}, u, {t, 0, 10}, {x, 0, 5}, EvaluationMonitor :> showStatus["t = " <> ToString[CForm[t]]]] Oliver From mathgroup-adm at smc.vnet.net Fri Jul 29 02:48:27 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id CB5566BB19 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 02:48:26 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T7mRNv003357; Fri, 29 Jul 2011 02:48:27 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id BE645BF480; Fri, 29 Jul 2011 02:48:27 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id AEB32A80BA; Fri, 29 Jul 2011 02:48:25 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13417 for mathgroup-newout; Fri, 29 Jul 2011 04:43:02 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13412 for mathgroup-newsend; Fri, 29 Jul 2011 04:43:01 -0400 (EDT) Date: Fri, 29 Jul 2011 04:43:01 -0400 (EDT) Message-Id: <201107290843.EAA13412 at smc.vnet.net> From: Helen Read <readhpr at gmail.com> Subject: [mg120565] Re: Timing progress bar References: <j0rj1i$43r$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.73914 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_300_399 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. On 7/28/2011 8:00 AM, Berthold Hamburger wrote: > Hi, > > Is there any possibility to get visible feedback about the progress of a > calculation via the Timing function? Something like a progress bar or "% > completed". > > Thanks > > Berthold > Have you tried using ProgressIndicator? -- Helen Read University of Vermont From mathgroup-adm at smc.vnet.net Fri Jul 29 02:50:15 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 47BA36BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 02:50:15 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T7oGVS003531; Fri, 29 Jul 2011 02:50:16 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 08767A8195; Fri, 29 Jul 2011 02:50:16 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 4F836A816B; Fri, 29 Jul 2011 02:50:14 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13426 for mathgroup-newout; Fri, 29 Jul 2011 04:43:14 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13421 for mathgroup-newsend; Fri, 29 Jul 2011 04:43:13 -0400 (EDT) Date: Fri, 29 Jul 2011 04:43:13 -0400 (EDT) Message-Id: <201107290843.EAA13421 at smc.vnet.net> From: "Christoph Lhotka" <christoph.lhotka at univie.ac.at> Subject: [mg120566] Re: Timing progress bar To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.73914 hy, i like to use it a lot: Dynamic[ProgressIndicator[i]] where i is a variables between 0 and 1. If you write somewhere in your notebook the above expression and update i in your peace of code accordingly you will have a feeling about the status of the evaluation. christoph On 28/07/2011 13:55, Berthold Hamburger wrote: > Hi, > > Is there any possibility to get visible feedback about the progress of a > calculation via the Timing function? Something like a progress bar or "% > completed". > > Thanks > > Berthold > From mathgroup-adm at smc.vnet.net Fri Jul 29 02:52:18 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 7C0BB6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 02:52:18 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T7qJag003692; Fri, 29 Jul 2011 02:52:19 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 7776DBF47C; Fri, 29 Jul 2011 02:52:19 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 97388A8170; Fri, 29 Jul 2011 02:52:17 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13393 for mathgroup-newout; Fri, 29 Jul 2011 04:42:28 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13386 for mathgroup-newsend; Fri, 29 Jul 2011 04:42:27 -0400 (EDT) Date: Fri, 29 Jul 2011 04:42:27 -0400 (EDT) Message-Id: <201107290842.EAA13386 at smc.vnet.net> From: barry brunson <mathisfun at mac.com> Subject: [mg120562] CompressedData in Buttons To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.74516 Sorry if this is really obvious. I have some Buttons that display various data, e.g., area, population, density, etc. of U.S. states, and would like to update the data. I have only the buttons, not the Input code that produced them long ago. Using Show Expression on the button reveals that, instead of being in List form, much of the data appears as "CompressedData[ ... (gibberish) ...]. How can I recover the original, uncompressed, data so that I can revise it? I found nothing in the Documentation Center or Virtual Book, and none of the 74 hits on wolfram.com appear to shed any relevant light. Thanks. From mathgroup-adm at smc.vnet.net Fri Jul 29 02:54:05 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id DFB976BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 02:54:04 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T7s5NB003893; Fri, 29 Jul 2011 02:54:05 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id D720CBF47F; Fri, 29 Jul 2011 02:54:05 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 23BC9A80BA; Fri, 29 Jul 2011 02:54:04 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13368 for mathgroup-newout; Fri, 29 Jul 2011 04:41:55 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13363 for mathgroup-newsend; Fri, 29 Jul 2011 04:41:54 -0400 (EDT) Date: Fri, 29 Jul 2011 04:41:54 -0400 (EDT) Message-Id: <201107290841.EAA13363 at smc.vnet.net> From: "Chris Degnen" <degnen at cwgsy.net> Subject: [mg120559] Re: FinancialData still broken To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.74516 DrMajorBob wrote: > Armand Tamzarian wrote: >> >> Would it be easier to just get the data from Yahoo rather than have to >> worry about fixes and innoculations? > > I don't know how to do that, but I suspect it's Yahoo sending erroneous > prices, anyway. You can get quotes from Yahoo like this: quotes = Import[ "http://download.finance.yahoo.com/d/quote.csv?s=\ CLU11.NYM+^GSPC+^FTSE&f=abdlohg"]; (*www.mathematicacookbook.com/downloads/YahooDataDownload.htm*) TableForm[ Map[List, MapThread[StringJoin, {{"WTI - ", "S&P - ", "FTSE - "}, StringReplace[quotes[[All, 4]], {"<b>" -> "", "</b>" -> ""}]}]], TableHeadings -> {None, {"Last Trade"}}] From mathgroup-adm at smc.vnet.net Fri Jul 29 02:55:57 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id EF7F56BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 02:55:56 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T7twxg004669; Fri, 29 Jul 2011 02:55:58 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 4AC23FF006; Fri, 29 Jul 2011 02:55:58 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id A350AA80BA; Fri, 29 Jul 2011 02:55:56 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13382 for mathgroup-newout; Fri, 29 Jul 2011 04:42:17 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13377 for mathgroup-newsend; Fri, 29 Jul 2011 04:42:16 -0400 (EDT) Date: Fri, 29 Jul 2011 04:42:16 -0400 (EDT) Message-Id: <201107290842.EAA13377 at smc.vnet.net> From: =?ISO-8859-1?Q?Iv=E1n_Pulido_Sanchez?= <ijpulido.s at gmail.com> Subject: [mg120561] Mathematica 8 remote parallel kernels To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.74516 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, BODY_SIZE_700_799 0, FROM_NAME_PHRASE 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Hello, When I try to configure remote kernels in Mathematica via Evaluation>Parallel Kernel Configuration ... then I go to "Remote Kernels" and add hosts, after that I try to Launch the remote kernels and only some of them get launched (the number of them varies),and finally I get a msg like the following. KernelObject::rdead: Subkernel connected through remote[nodo2] appears dead. >> LinkConnect::linkc: Unable to connect to LinkObject[36154 at 192.168.1.104, 49648 at 192.168.1.104,38,12]. >> General::stop: Further output of LinkConnect::linkc will be suppressed during this calculation. >> Any ideas how to get this working? Take into account it sometimes does load some of the remote kernels but never all of them. Thanks in advance I hope you can help me with this. From mathgroup-adm at smc.vnet.net Fri Jul 29 02:58:02 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 74BD56BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 02:58:02 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T7w3BF004796; Fri, 29 Jul 2011 02:58:03 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 504E7A81B7; Fri, 29 Jul 2011 02:58:03 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 7D35FFF009; Fri, 29 Jul 2011 02:58:01 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13443 for mathgroup-newout; Fri, 29 Jul 2011 04:43:37 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13439 for mathgroup-newsend; Fri, 29 Jul 2011 04:43:36 -0400 (EDT) Date: Fri, 29 Jul 2011 04:43:36 -0400 (EDT) Message-Id: <201107290843.EAA13439 at smc.vnet.net> From: "David Park" <djmpark at comcast.net> Subject: [mg120568] Evaluating WeierstrassP at large arguments To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.74814 The WeierstrassP function is doubly periodic. Do the numerical evaluation routines for this function take this into account when evaluating for large arguments, using a Mod function on the argument? If not, would there be something to be gained by the user writing a "front end" for WeierstrassP[z,{g2,g3}] moving z to the principal period parallelogram? Especially if g2 and g3 were fixed and z was scanned only along the direction of one half-period. I'm thinking of something like a high precision mod function followed by a MachinePrecision evaluation of WeierstrassP. My experience has been that calculating the half-periods from g2-g3 has a fair loss of significance but if we only had to calculate them once we could afford extra high precision. David Park djmpark at comcast.net <http://home.comcast.net/~djmpark> http://home.comcast.net/~djmpark/ From mathgroup-adm at smc.vnet.net Fri Jul 29 03:00:18 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id D630B6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 03:00:18 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T80Jnd005040; Fri, 29 Jul 2011 03:00:19 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id D82EAFF00E; Fri, 29 Jul 2011 03:00:19 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id DE215FF00B; Fri, 29 Jul 2011 03:00:17 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13411 for mathgroup-newout; Fri, 29 Jul 2011 04:42:51 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13406 for mathgroup-newsend; Fri, 29 Jul 2011 04:42:50 -0400 (EDT) Date: Fri, 29 Jul 2011 04:42:50 -0400 (EDT) Message-Id: <201107290842.EAA13406 at smc.vnet.net> From: DrMajorBob <btreat1 at austin.rr.com> Subject: [mg120564] FinancialData errors Reply-To: drmajorbob at yahoo.com References: <201107222344.TAA28525 at smc.vnet.net> <j0fos4$8p6$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.74814 I've found a new (to me) species of error in FinancialData. One example is the price of the following stock on Feb 10, 2011: s = "JANFX"; FinancialData["JANFX", "Name"] FinancialData["JANFX", {{2011, 2, 9}, {2011, 2, 11}}] "Janus Flexible Bond Fund D Shar" {{{2011, 2, 9}, 10.25}, {{2011, 2, 10}, 10.23}, {{2011, 2, 11}, 10.24}} As you see, FinancialData says the price was 10.23. But I BOUGHT the stock through Janus Funds on that day, and the price was 10.36. Moreover, if I go to Yahoo's interactive price chart for the stock at the following page, 10.36 is the price I find: http://finance.yahoo.com/echarts?s=JANFX+Interactive#chart3:symbol=janfx;range=ytd;indicator=volume;charttype=line;crosshair=on;ohlcvalues=0;logscale=on;source=undefined So... where are the errors really coming from? This is not an astronomically large price or a Missing["Not Available"] price; it's within 2% of the correct price. But it's wrong. These errors make it very difficult to trust FinancialData for any useful purpose. Bobby -- DrMajorBob at yahoo.com From mathgroup-adm at smc.vnet.net Fri Jul 29 03:02:21 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id EEFCC6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 03:02:20 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T82MjD005299; Fri, 29 Jul 2011 03:02:22 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id DDFA5FF008; Fri, 29 Jul 2011 03:02:21 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id C514CFF007; Fri, 29 Jul 2011 03:02:19 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13359 for mathgroup-newout; Fri, 29 Jul 2011 04:41:44 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13354 for mathgroup-newsend; Fri, 29 Jul 2011 04:41:43 -0400 (EDT) Date: Fri, 29 Jul 2011 04:41:43 -0400 (EDT) Message-Id: <201107290841.EAA13354 at smc.vnet.net> From: Leonid Shifrin <lshifr at gmail.com> Subject: [mg120558] Re: Why FullDefinition does not work in MathLink mode? References: <201107281155.HAA04113 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.75414 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1400_1499 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_BODY_WEBMAIL 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. >From the documentation of Definition, in Possible Issues section: Definition is an output form; it does not evaluate: In[1]:= Definition[Plus] Out[1]= Attributes[Plus]={Flat,Listable,NumericFunction,OneIdentity,Orderless,Protected} Default[Plus]:=0 In[2]:= FullForm[%] Out[2]//FullForm= Definition[Plus] Regards, Leonid On Thu, Jul 28, 2011 at 3:55 PM, Alexey Popkov <lehin.p at gmail.com> wrote: > Hello, > > When working with MathKernel in interactive session without of the > FrontEnd, FullDefinition works as expected: > > In[1]:= a=2;FullDefinition[a] > > Out[1]= a = 2 > > But when trying to use it in MathLink mode one get ReturnPacket with > unevaluated FullDefinition: > > In[1]:= kernel=LinkLaunch[First[$CommandLine] <> " -mathlink"]; > LinkRead[kernel]; > LinkWrite[kernel,Unevaluated[a=2;FullDefinition[a]]] > LinkRead[kernel]//FullForm > > Out[4]//FullForm= ReturnPacket[FullDefinition[a]] > > The built-in parallelization functions have the same problem: > > In[2]:= ParallelEvaluate[a=2;FullDefinition[a]]//FullForm > Out[2]//FullForm= List[FullDefinition[a],FullDefinition[a]] > > One workaround is to use ToString: > > In[3]:= ParallelEvaluate[a=2;ToString[FullDefinition[a]]] > Out[3]= {a = 2,a = 2} > > Why FullDefinition returns unevaluated in MathLink session although it > works as expected in interactive MathKernel session? Is it possible to > make it working without any glitches? > > Any ideas? > > From mathgroup-adm at smc.vnet.net Fri Jul 29 03:04:31 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 9C1036BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 03:04:31 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T84WDa005580; Fri, 29 Jul 2011 03:04:32 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id A2434A816B; Fri, 29 Jul 2011 03:04:32 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 99EE9A80BA; Fri, 29 Jul 2011 03:04:29 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13403 for mathgroup-newout; Fri, 29 Jul 2011 04:42:40 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13398 for mathgroup-newsend; Fri, 29 Jul 2011 04:42:39 -0400 (EDT) Date: Fri, 29 Jul 2011 04:42:39 -0400 (EDT) Message-Id: <201107290842.EAA13398 at smc.vnet.net> From: "Berthold Hamburger" <b-hamburger at artinso.com> Subject: [mg120563] Re: Timing progress bar References: <201107281155.HAA04128 at smc.vnet.net> <Pine.LNX.4.63.1107280631410.23644 at wopr.wolfram.com> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.75414 Thanks Oliver! I also found the progress.m package: http://www.physics.ohio-state.edu/~jeremy/mathematica/progress/ Is this compatible with Mathematica 8? Regards Berthold -- Berthold Hamburger - Cellist/Spain http://www.artinso.com | http://www.astronomy.artinso.com | http://www.artemis.artinso.com http://www.facebook.com/berthold.hamburger -----Original Message----- From: Oliver Ruebenkoenig [mailto:ruebenko at wolfram.com] Sent: jueves, 28 de julio de 2011 13:34 To: Berthold Hamburger Cc: mathgroup at smc.vnet.net Subject: [mg120563] Re: Timing progress bar On Thu, 28 Jul 2011, Berthold Hamburger wrote: > Hi, > > Is there any possibility to get visible feedback about the progress of > a calculation via the Timing function? Something like a progress bar > or "% completed". > > Thanks > > Berthold > > Berthold, here are two examples with NDSolve: tEnd = 100; ProgressIndicator[Dynamic[currentTime], {0, tEnd}] currentTime = 0; NDSolve[{D[u[t, x], t] == D[u[t, x], x, x], u[0, x] == 0, u[t, 0] == Sin[t], u[t, 5] == 0}, u, {t, 0, tEnd}, {x, 0, 5}, EvaluationMonitor :> (currentTime = t;)] showStatus[status_] := LinkWrite[$ParentLink, SetNotebookStatusLine[FrontEnd`EvaluationNotebook[], ToString[status]]]; clearStatus[] := showStatus[""]; clearStatus[] (* look in the lower left of the FrontEnd *) NDSolve[{D[u[t, x], t] == D[u[t, x], x, x], u[0, x] == 0, u[t, 0] == Sin[t], u[t, 5] == 0}, u, {t, 0, 10}, {x, 0, 5}, EvaluationMonitor :> showStatus["t = " <> ToString[CForm[t]]]] Oliver From mathgroup-adm at smc.vnet.net Fri Jul 29 03:06:26 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 5F6706BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 03:06:26 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T86QMt005789; Fri, 29 Jul 2011 03:06:27 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 65B58BF42E; Fri, 29 Jul 2011 03:06:27 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 1CDF0BF47F; Fri, 29 Jul 2011 03:06:25 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13436 for mathgroup-newout; Fri, 29 Jul 2011 04:43:25 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13431 for mathgroup-newsend; Fri, 29 Jul 2011 04:43:24 -0400 (EDT) Date: Fri, 29 Jul 2011 04:43:24 -0400 (EDT) Message-Id: <201107290843.EAA13431 at smc.vnet.net> From: Joseph Gwinn <joegwinn at comcast.net> Subject: [mg120567] Re: getting ride of 0.i References: <j0oomv$krj$1 at smc.vnet.net> <j0rips$41r$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.75414 In article <j0rips$41r$1 at smc.vnet.net>, Armand Tamzarian <mike.honeychurch at gmail.com> wrote: > On Jul 27, 8:19 pm, Eli Fenichel <Eli.Fenic... at asu.edu> wrote: > > I am trying to use FindMinimum to minimize the square of a function over > many variables (i.e., parameters). The function itself has the potential > to generate imaginary numbers and involves numerical integration (the > parameter values that minimize the function are real). For clarification > the function in evaluated at multiple points so it can be written as vector. > By squaring the vector the numerical values of the elements are always real > with no imaginary parts. However, Mathematica often writes x + 0.i, where x > is a some numerical value, for some of the elements. > > > > Typically, this can be ignored, the Chop command can be used, or it simply > > does not cause problems. However, I keep getting an error: > > [cid:image003.... at 01CC4BBC.E87A0F30] > > > > NIntegrate::nlim: "t = Y[1.] is not a valid limit of integration." > > > > Y is an array with the parameters to be minimized. > > > > However, if evaluate the objective function to be minimized using > > replacement rules I get > > x + 0.i. > > > > Is there a way for me tell Mathematica to always treat 0.i as 0 and drop > > it? It seems to be causing problems in the FindMinimum call. > > > > Thanks, > > Eli > > Re[3 + 2 I] It sounds like the "0 I" is in fact a roundoff error times I, such as 10^-18 I. This problem is what Chop[] used for. Chop[x+0 I] will yield x, if roundoff error is in fact the problem. One can tell Chop[] what threshold to use. Joe Gwinn From mathgroup-adm at smc.vnet.net Fri Jul 29 03:08:04 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 037756BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 03:08:04 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T885fo005973; Fri, 29 Jul 2011 03:08:05 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id 09F7EA815B; Fri, 29 Jul 2011 03:08:05 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 1D47BA80BA; Fri, 29 Jul 2011 03:08:03 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13373 for mathgroup-newout; Fri, 29 Jul 2011 04:42:06 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13369 for mathgroup-newsend; Fri, 29 Jul 2011 04:42:05 -0400 (EDT) Date: Fri, 29 Jul 2011 04:42:05 -0400 (EDT) Message-Id: <201107290842.EAA13369 at smc.vnet.net> From: Sebastian Hofer <sebhofer at gmail.com> Subject: [mg120560] Indeterminate result (numerical problem) Reply-To: comp.soft-sys.math.mathematica at googlegroups.com To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.75714 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, SUPERLONG_LINE 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1800_1899 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __C230066_P5 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. I have a large symbolic expression which is a sum of a large number of fractions, which is the result of an integral. I can get numerical values by NIntegrate, but eventually the expression should go into a minimization problem, which would be much faster starting from an analytic expression. My troubles start even earlier though. When I try to evaluate the expression by N[expr/.parameters] I get Indeterminate. This is true independently of the precision given to N(machine or arbitrary precision) or the chosen parameters, which I initially chose to be rational numbers from an interval of about 1/10 to 10. Simplifying the symbolic expression is not possible due to its sheer size. Simplifying the separate terms and evaluating them gives me a result, but only if I set $MinPrecision=$MaxPrecision as in In[466]:= Block[{prec=MachinePrecision,$MaxPrecision,$MinPrecision},$MaxPrecision=$MinPrecision=prec;N[slist,prec]//Total] Out[466]= -0.0000554539 + 0.000957437 I where slist contains the simplified and evaluated terms. If I work with arbitrary precision instead I get In[462]:= Block[{prec=16,$MaxPrecision,$MinPrecision},$MaxPrecision=$MinPrecision=prec;N[slist,prec]//Total] Out[462]= -0.00001695456281093148 + 0.0009204297860912486 I The latter result coincides with what I obtain from NIntegrate, which I guess is correct. (Is this a valid assumption?) However, for different values of prec I get very strange results: prec=17,18,21: same as prec=16 prec=19: -0.001922263621488465141 - 0.003379886739497078367 I prec: Indeterminate prec=22: -0.0006868461930781501884710 - 0.0006068980872473164707112 I ... What is the best way to approach this problem? How do I know which results I can trust? Is there a better approach to start with? All tips are highly welcome! Sebastian From mathgroup-adm at smc.vnet.net Fri Jul 29 03:10:07 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 10BFD6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 03:10:07 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T8A7xc006119; Fri, 29 Jul 2011 03:10:07 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id DE5D7A8195; Fri, 29 Jul 2011 03:10:07 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id B1727A8170; Fri, 29 Jul 2011 03:10:04 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13317 for mathgroup-newout; Fri, 29 Jul 2011 04:40:49 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13312 for mathgroup-newsend; Fri, 29 Jul 2011 04:40:48 -0400 (EDT) Date: Fri, 29 Jul 2011 04:40:48 -0400 (EDT) Message-Id: <201107290840.EAA13312 at smc.vnet.net> From: "Kristof Lebecki" <Kristof.Lebecki at uni-konstanz.de> Subject: [mg120553] Re: NonlinearModelFit vector valued functions To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.75714 Hi everybody, One year ago following post was placed in this forum (Date: Thu, 4 Feb 2010 06:26:24 -0500 (EST); From: janos). It describes shortly and exactly my problem. Maybe in the last year somebody has found a nice solution? > NonlinearModelFit is able to fit to a scalar valued function, > including complex valued functions. > However, I would like to fit to a vector valued function. > I can do this using NMinimize, > but in that case I'll lose all the nice statistics NonlinearModelFit > provides us. > Any idea to circumvent this problem? If you are interested I can describe my problem further, with pleasure ;) Similarly, as in the case of Janos I use currently FindMinimum. I am happy with it, I use it together with ParallelSum. The only pain are mentioned already missing "nice statistics". One option would be to create statistics for FindMinimum. I have read that you can get parameter confidence intervals (mostly interesting for me) when you have Hessian matrix, invert it, etc. Anyhow you will also have to evaluate noise of your data. Shortly speaking: something terribly complex for me. Other option would be to do some tricks with NonlinearModelFit. If I had 2D real vector function I could for instance transform it into 1D complex function - problem solved. But my function is 3D! I can still imagine other tricks, like mapping N three-dimensional data points into 3N scalar data points. But my project is already complex. I have 3D convolutions, my function calculates seconds, so I would prefer "elegant" solution. So, any help or suggestion is appreciated. With best regards, Kristof -- Kristof M. Lebecki, Dr, Fachbereich Physik Postfach 674 Universitat Konstanz D-78457 Konstanz, Germany voice: +49 (0)7531 88 - 3796 fax: +49 (0)7531 88 - 5325 web: theorie.physik.uni-konstanz.de/lebecki From mathgroup-adm at smc.vnet.net Fri Jul 29 03:11:59 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 70F586BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 03:11:59 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T8C0bH006260; Fri, 29 Jul 2011 03:12:00 -0500 Received: from mx4.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id AB9EABF47F; Fri, 29 Jul 2011 03:12:00 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id B7318BF480; Fri, 29 Jul 2011 03:11:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13353 for mathgroup-newout; Fri, 29 Jul 2011 04:41:33 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13348 for mathgroup-newsend; Fri, 29 Jul 2011 04:41:32 -0400 (EDT) Date: Fri, 29 Jul 2011 04:41:32 -0400 (EDT) Message-Id: <201107290841.EAA13348 at smc.vnet.net> From: DrMajorBob <btreat1 at austin.rr.com> Subject: [mg120557] FinancialData errors Reply-To: drmajorbob at yahoo.com References: <201107222344.TAA28525 at smc.vnet.net> <j0fos4$8p6$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.75714 FUNNY STORY: Here is Tech Support's non-response to my problem, described farther down: Hello, Thank you for taking the time to send in this report to us. The accuracy of the financial data depends on how quickly our sources of data provide updates. A 15 minutes delay on current prices is common. Longer delays are possible depending on the data. A complete list of the sources queried by FinancialData is available at: http://reference.wolfram.com/mathematica/note/FinancialDataSourceInformatio n.html We are always looking for alternative sources of financial information to query. If you have any suggestions on alternate sources of information we should consider, please let us know. Sincerely, Sean Clarke ======================================================================== Now, isn't that special? The data is 5 months old, and TS tells me there's a 15-minute delay? ======================================================================== I've found a new (to me) species of error in FinancialData. One example is the price of the following stock on Feb 10, 2011: s = "JANFX"; FinancialData["JANFX", "Name"] FinancialData["JANFX", {{2011, 2, 9}, {2011, 2, 11}}] "Janus Flexible Bond Fund D Shar" {{{2011, 2, 9}, 10.25}, {{2011, 2, 10}, 10.23}, {{2011, 2, 11}, 10.24}} As you see, FinancialData says the price was 10.23. But I BOUGHT the stock through Janus Funds on that day, and the price was 10.36. Moreover, if I go to Yahoo's interactive price chart for the stock at the following page, 10.36 is the price I find: http://finance.yahoo.com/echarts?s=JANFX+Interactive#chart3:symbol=janfx;range=ytd;indicator=volume;charttype=line;crosshair=on;ohlcvalues=0;logscale=on;source=undefined So... where are the errors really coming from? This is not an astronomically large price or a Missing["Not Available"] price; it's within 2% of the correct price. But it's wrong. These errors make it very difficult to trust FinancialData for any useful purpose. Bobby -- DrMajorBob at yahoo.com From mathgroup-adm at smc.vnet.net Fri Jul 29 03:14:05 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 905626BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 03:14:05 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T8E6gc006478; Fri, 29 Jul 2011 03:14:06 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 9273DBF47C; Fri, 29 Jul 2011 03:14:06 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 91C6ABF42E; Fri, 29 Jul 2011 03:14:04 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13333 for mathgroup-newout; Fri, 29 Jul 2011 04:41:11 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13328 for mathgroup-newsend; Fri, 29 Jul 2011 04:41:10 -0400 (EDT) Date: Fri, 29 Jul 2011 04:41:10 -0400 (EDT) Message-Id: <201107290841.EAA13328 at smc.vnet.net> From: Oliver Ruebenkoenig <ruebenko at wolfram.com> Subject: [mg120555] Re: how to ListPlot3D large data sets References: <201107281153.HAA04026 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.80314 On Thu, 28 Jul 2011, Oliver Ruebenkoenig wrote: > On Wed, 27 Jul 2011, Ted Sariyski wrote: > >> Hi, >> >> In one attempt MaxPlotPoints did not help, but I was not persistent >> because I have to resolve other issues before I return to ListPlot3D. >> One issue is that I cannot pack data. On the big data set I verify that >> it is numeric array and still I cannot get it packed. Here is an example: >> >> mydata={{0.00100,10.,0.},{0.00100,10.,0.00100},{0.00100,10.,0.00200},{0.00100,10.,0.00300},{0.00100,10.,0.00400}}; >> >> MatrixQ[mydata,NumericQ] >> True >> >> myPackedData=ToPackedArray[mydata,Real]; >> >> MatrixQ[myPackedData, NumericQ] >> True >> >> PackedArrayQ[myPackedData] >> False >> >> What I am doing wrong? >> Thanks, >> --Ted > > > Ted, possibly ToPackedArray are not on you context path > > either try > > <<Developer` > > or > > mydata = {{0.00100, 10., 0.}, {0.00100, 10., 0.00100}, {0.00100, 10., > 0.00200}, {0.00100, 10., 0.00300}, {0.00100, 10., 0.00400}}; > myPackedData = Developer`ToPackedArray[mydata, Real]; > Developer`PackedArrayQ[myPackedData] > > Oliver Daniel Lichtblau actually pointed out to me that I might have misunderstood the implications of you result. Some comments: Entering a list like mydata by "hand" (tying, cut©&paste) will always be an unpacked list. You'd have to check PackedArrayQ directly on the import of your large data set, assuming that returned False, you could wrap a N[yourLargeDataImport] around it and see if it then is packed. Should that still not be the case, there might be non numerical stuff in your imported list and you could give it a shot at removing that and the see if and that affects performance for you plot. I hope this helps in a better way. Oliver > >> >> On 7/25/2011 7:30 AM, Oliver Ruebenkoenig wrote: >>> On Sat, 23 Jul 2011, Ted Sariyski wrote: >>> >>>> Hi, >>>> I guess I am pushing the limits of ListPlot3D. I try to ListPlot3d a data >>>> set with many millions of records. I was not able to get an image from the >>>> full dataset, it takes forever. If I use e.g. every fifth record, although >>>> slow, I get an image. The machine running Mathematica is Windows 7 (64 bit), >>>> has 24 GB RAM and there was no swapping. I wonder what is considered as a >>>> reasonable data size for ListPlot3D and are there other tools in Mathematica >>>> for visualization of large data sets? >>>> Thanks in advance, >>>> --Ted >>>> >>>> >>>> >>> Ted, >>> >>> is your data packed? >>> >>> Developer`PackedArrayQ[yourData] >>> >>> Oliver >>> >> >> >> > > From mathgroup-adm at smc.vnet.net Fri Jul 29 03:15:03 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 22BD56BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 03:15:03 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6T8F4Vh006563; Fri, 29 Jul 2011 03:15:04 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id 5CF8DA8138; Fri, 29 Jul 2011 03:15:04 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 56791FF008; Fri, 29 Jul 2011 03:15:02 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13452 for mathgroup-newout; Fri, 29 Jul 2011 04:43:48 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id EAA13447 for mathgroup-newsend; Fri, 29 Jul 2011 04:43:47 -0400 (EDT) Date: Fri, 29 Jul 2011 04:43:47 -0400 (EDT) Message-Id: <201107290843.EAA13447 at smc.vnet.net> From: Richard Kendall-Smith <richpks at gmail.com> Subject: [mg120569] Re: Roots of a Jacobi polynomial References: <201107261107.HAA09296 at smc.vnet.net> <4E2EFAAD.60403 at wolfram.com> <201107281154.HAA04077 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.80314 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __C230066_P5 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __RUS_OBFU_PHONE 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Hi, I'm trying to solve a set of non-linear equations by doing the following: eqlist = {101.74 == a + ((0.055/(479248/c))*(352343 + ((479248/c)*a) - (158194*b/c))), 47205 + ((158194/c)*a) - ((61842/c)*b) == 68043.98 + (299.73*b), 460584 + (479248*(a^2)/(c^2)) - (158194*b*a/(c^2)) + (61842*(b^2)/(c^2)) == 21986 + (3576*c)} NSolve[eqlist, {a, b, c}, Reals] But it interprets c as Musical Notation. I have tried altering the variables to x y and z but then it comes up with a Visual Form error. I'm new to Mathematica but I don't see why this is happening because aren't we specifying a, b, c as variables to be solved? Thanks, Richard On Thu, Jul 28, 2011 at 5:54 AM, Jacopo Bertolotti <J.Bertolotti at utwente.nl>wrote: > On 07/26/2011 07:34 PM, Daniel Lichtblau wrote: > > On 07/26/2011 06:07 AM, Jacopo Bertolotti wrote: > >> Dear MathGroup, > >> Mathematica implements Jacobi polynomials as JacobiP[n,a,b,x] where n is > >> the order of the polynomial. As it can be checked plotting it a Jacobi > >> polynomial has n real roots in the interval [-1,1] and it goes rapidly > >> to infinity outside this interval (at least when both a and b are>-1). > >> The problem arise when you try to find the roots of such a polynomial > >> for a relatively high value of n. As an example the command > >> NSolve[JacobiP[20, -0.5, -0.5, x] == 0, x] correctly returns > >> > >> {{x -> -0.99702}, {x -> -0.972111}, {x -> -0.92418}, {x -> > >> -0.852398}, > >> {x -> -0.760555}, {x -> -0.649375}, {x -> -0.522529}, {x -> > >> -0.382672}, > >> {x -> -0.233449}, {x -> -0.0784582}, {x -> 0.0784591}, {x -> > >> 0.233445}, > >> {x -> 0.382684}, {x -> 0.522504}, {x -> 0.649423}, {x -> > >> 0.760466}, {x > >> -> 0.852539}, {x -> 0.924002}, {x -> 0.972267}, {x -> 0.996958}} > >> > >> while NSolve[JacobiP[25, -0.5, -0.5, x] == 0, x] gives > >> > >> {{x -> -1.01869}, {x -> -0.979859 - 0.0479527 I}, {x -> -0.979859 + > >> 0.0479527 I}, {x -> -0.870962 - 0.070991 I}, {x -> -0.870962 + > >> 0.070991 > >> I}, {x -> -0.71378 - 0.0505783 I}, {x -> -0.71378 + 0.0505783 I}, > >> {x -> > >> -0.571283}, {x -> -0.486396}, {x -> -0.367829}, {x -> -0.248377}, > >> {x -> > >> -0.125513}, {x -> -0.0000434329}, {x -> 0.125442}, {x -> 0.2489}, > >> {x -> > >> 0.365644}, {x -> 0.496977}, {x -> 0.555743}, {x -> 0.717741- > >> 0.0573399 > >> I}, {x -> 0.717741+ 0.0573399 I}, {x -> 0.87423- 0.0652273 I}, {x -> > >> 0.87423+ 0.0652273 I}, {x -> 0.977876- 0.0422422 I}, {x -> 0.977876+ > >> 0.0422422 I}, {x -> 1.01494}} > >> > >> i.e. both complex roots and roots outside the [-1,1] interval. > >> Substituting any of these values back into the polynomial easily show > >> that these values are not roots at all. Also notice that using the > >> command Root (e.g. Sort@Table[Root[JacobiP[25, -0.5, -0.5, x], i], {i, > >> 1, 25}]) gives different but still wrong results. > >> On a related note: NIntegrate sometimes gives wrong results when > >> integrating function of the form (1-x)^a (1+x)^b f[x] and I feel this > >> might related to the Gauss-Jacobi quadrature failing to retrieve the > >> correct roots of a Jacobi polynomial. > >> > >> Do anyone have a solution for that? > >> > >> Thank you > >> > >> Jacopo > > > > This is not a well conditioned problem. To do better you'll need to > > allow NSolve to use higher precision by not giving machine numbers in > > the input. > > > > In[102]:= solns = Sort[NSolve[JacobiP[25, -1/2, -1/2, x] == 0, x]] > > > > Out[102]= {{x -> -0.998027}, {x -> -0.982287}, {x -> -0.951057}, {x \ > > -> -0.904827}, {x -> -0.844328}, {x -> -0.770513}, {x -> -0.684547}, \ > > {x -> -0.587785}, {x -> -0.481754}, {x -> -0.368125}, {x -> \ > > -0.24869}, {x -> -0.125333}, {x -> 0.}, {x -> 0.125333}, {x -> > > 0.24869}, {x -> 0.368125}, {x -> 0.481754}, {x -> 0.587785}, {x -> > > 0.684547}, {x -> 0.770513}, {x -> 0.844328}, {x -> 0.904827}, {x -> > > 0.951057}, {x -> 0.982287}, {x -> 0.998027}} > > > > These might seem imperfect when you check residuals (see below). In > > fact they are not at all bad. We first show that by comparing to > > higher precision versions that do validate fairly well as giving > > smallish residuals. > > > > In[104]:= solns30 = > > Sort[NSolve[JacobiP[25, -1/2, -1/2, x] == 0, x, > > WorkingPrecision -> 30]] > > > > Out[104]= {{x -> -0.998026728428271561952336806863}, {x -> \ > > -0.982287250728688681085641742865}, {x -> \ > > -0.951056516295153572116439333379}, {x -> \ > > -0.904827052466019527713668647933}, {x -> \ > > -0.844327925502015078548558063967}, {x -> \ > > -0.770513242775789230803009636396}, {x -> \ > > -0.684547105928688673732283357621}, {x -> \ > > -0.587785252292473129168705954639}, {x -> \ > > -0.481753674101715274987191502872}, {x -> \ > > -0.368124552684677959156947147493}, {x -> \ > > -0.248689887164854788242283746006}, {x -> \ > > -0.125333233564304245373118759817}, {x -> 0}, {x -> > > 0.125333233564304245373118759817}, {x -> > > 0.248689887164854788242283746006}, {x -> > > 0.368124552684677959156947147493}, {x -> > > 0.481753674101715274987191502872}, {x -> > > 0.587785252292473129168705954639}, {x -> > > 0.684547105928688673732283357621}, {x -> > > 0.770513242775789230803009636396}, {x -> > > 0.844327925502015078548558063967}, {x -> > > 0.904827052466019527713668647933}, {x -> > > 0.951056516295153572116439333379}, {x -> > > 0.982287250728688681085641742865}, {x -> > > 0.998026728428271561952336806863}} > > > > This shows the two results are quite close. > > > > In[106]:= Max[Abs[(x /. solns) - (x /. solns30)]] > > Out[106]= 4.47615*10^-10 > > > > This shows the high precision solutions give reasonable residuals. > > > > In[108]:= Max[Abs[JacobiP[25, -1/2, -1/2, x] /. solns30]] > > Out[108]= 0.*10^-12 > > > > The machine precision results will not give good residuals. There are > > two possible (and related) reasons. One is that the conditioning is > > such that we are bound to lose many digits in assessing residuals (as > > seems to happen above). The other is that the form of JacobiP > > polynomials might just be inducing cancellation error. > > > > Certainly this second item is part of the problem: > > > > In[109]:= Max[Abs[Expand[JacobiP[25, -1/2, -1/2, x]] /. solns30]] > > Out[109]= 0.*10^-21 > > > > Here are the corresponding machine precision evaluations of residuals. > > > > In[112]:= Max[Abs[JacobiP[25, -1/2, -1/2, x] /. solns]] > > Out[112]= 17. > > > > In[113]:= Max[Abs[Expand[JacobiP[25, -1/2, -1/2, x]] /. solns]] > > Out[113]= 9.31323*10^-9 > > > > Daniel Lichtblau > > Wolfram Research > > > Thank you Daniel. And thank you also to everyone who wrote me > suggestions (both here and in private). The combination of not using > machine number in the input and increasing the WorkingPrecision seems to > work fine. Apparently just using one of the two tricks do not yield any > sensible result. > > Jacopo > > From mathgroup-adm at smc.vnet.net Fri Jul 29 06:09:14 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id AA1306BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 06:09:14 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6TB9FuD004369; Fri, 29 Jul 2011 06:09:16 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 94F13BF4AE; Fri, 29 Jul 2011 06:09:15 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id E4A1FA815B; Fri, 29 Jul 2011 06:09:13 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA15676 for mathgroup-newout; Fri, 29 Jul 2011 08:02:07 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA15671 for mathgroup-newsend; Fri, 29 Jul 2011 08:02:06 -0400 (EDT) Date: Fri, 29 Jul 2011 08:02:06 -0400 (EDT) Message-Id: <201107291202.IAA15671 at smc.vnet.net> From: Alexey Popkov <lehin.p at gmail.com> Subject: [mg120571] Is it possible to delete "context" from the list of loaded Contexts[]? To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.105414 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_200_299 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, SMALL_BODY 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Hello, We can remove all symbols in a particular context by using Remove["context`*"]. But is it possible to remove "context`" itself from the system so that it will no longer be listed in Contexts[]? From mathgroup-adm at smc.vnet.net Fri Jul 29 06:09:40 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id E9EFA6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 06:09:40 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6TB9gic004423; Fri, 29 Jul 2011 06:09:42 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx4.wolfram.com (Postfix) with SMTP id 32001BF483; Fri, 29 Jul 2011 06:09:42 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id 9ADE3A81BA; Fri, 29 Jul 2011 06:09:40 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA15654 for mathgroup-newout; Fri, 29 Jul 2011 08:01:56 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA15650 for mathgroup-newsend; Fri, 29 Jul 2011 08:01:55 -0400 (EDT) Date: Fri, 29 Jul 2011 08:01:55 -0400 (EDT) Message-Id: <201107291201.IAA15650 at smc.vnet.net> From: gopher <gophergoon at gmail.com> Subject: [mg120570] NIntegrate issue with symbolic parameters To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.105414 X-PMX-Spam: Gauge=XXXIIII, Probability=34%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, FROM_NAME_ONE_WORD 0.05, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1000_LESS 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, BODY_SIZE_700_799 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NO_MAILTO 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIIII, Probability=34%, DEPRECATED. Use X-PMX-Spam. The docs say that NIntegrate evaluates the integrand with the variables being symbolic, and then repeatedly evaluates the result numerically. This is a problem for me as my integrand calls Eigenvectors which results in a symbolic calculation of the eigenvectors. If the variables were passed numerically instead, there would be no problem. In the end, I get errors about oscillation and convergence, 'slwcon' and 'eincr', which should never occur since the integrand is actually constant! (theoretically and also confirmed by Plot3D). Is there a way out? Since the details are a bit long, I am putting a link to the file below: https://netfiles.uiuc.edu/aroy2/www/nintegrate-issue.nb Thanks for any help, Abhishek From mathgroup-adm at smc.vnet.net Fri Jul 29 06:09:59 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 9CEA86BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 06:09:59 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6TBA020004438; Fri, 29 Jul 2011 06:10:00 -0500 Received: from mx3.wolfram.com (puremessage-vm2.wolfram.com [140.177.205.141]) by mx3.wolfram.com (Postfix) with SMTP id AE959A81BA; Fri, 29 Jul 2011 06:10:00 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id EB096A81B0; Fri, 29 Jul 2011 06:09:58 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA15698 for mathgroup-newout; Fri, 29 Jul 2011 08:02:40 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA15692 for mathgroup-newsend; Fri, 29 Jul 2011 08:02:39 -0400 (EDT) Date: Fri, 29 Jul 2011 08:02:39 -0400 (EDT) Message-Id: <201107291202.IAA15692 at smc.vnet.net> From: A Retey <awnl at gmx-topmail.de> Subject: [mg120574] Re: CompressedData in Buttons References: <j0trvu$d59$1 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.105414 Hi, > I have some Buttons that display various data, e.g., area, > population, density, etc. of U.S. states, and would like to update > the data. I have only the buttons, not the Input code that produced > them long ago. Using Show Expression on the button reveals that, > instead of being in List form, much of the data appears as > "CompressedData[ ... (gibberish) ...]. > > How can I recover the original, uncompressed, data so that I can > revise it? I found nothing in the Documentation Center or Virtual > Book, and none of the 74 hits on wolfram.com appear to shed any > relevant light. I think you will just need to apply Uncompress to the "glibberish", which should be a string. If you have the CompressedData[..] as an expression, you can convert the compressed part with: CompressedData["..."] /. Verbatim[CompressedData][s_String] :> Uncompress[s] hth, albert From mathgroup-adm at smc.vnet.net Fri Jul 29 06:12:22 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 4ABCD6BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 06:12:22 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6TBCM1k004712; Fri, 29 Jul 2011 06:12:22 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 23344BF482; Fri, 29 Jul 2011 06:12:22 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 07409BF480; Fri, 29 Jul 2011 06:12:20 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA15690 for mathgroup-newout; Fri, 29 Jul 2011 08:02:29 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA15685 for mathgroup-newsend; Fri, 29 Jul 2011 08:02:28 -0400 (EDT) Date: Fri, 29 Jul 2011 08:02:28 -0400 (EDT) Message-Id: <201107291202.IAA15685 at smc.vnet.net> From: gal bevc <gal.bevc at gmail.com> Subject: [mg120573] Poincare section for double pendulum To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.110315 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1400_1499 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, NO_URI_FOUND 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. Hello, I'm a relatively new user of Mathematica, who doesn't have much of programming skills. For my undergraduate assingment I must analyze chaotic motion of double pendulum. Until now i have got system of differential equations for equations of motion for double pendulum(i have x''[t]=function(t) and y''[t]=function(t)). System of differential equations can be solved for 4 inital conditions, x[0],y[0],x'[0] and y'[0]. With using function NDSolve i got functions of angles and angular velocities for upper and lower pendulum with respect to time, x[t],x'[t],y[t] and y'[t]. To get a poincare section of double pendulum, i have to record position of y[t] and y'[t] whenever x[t] is equal to zero and the velocity of x'[t] is a positive number. In the end I must get some sort of phase diagram y[t] and y'[t]. Because this is a Hamilton non-dissipative system, inital energy of the system is a constant of time and initial energy is a function of initial conditions. To get a real poincare diagram i must repeat the procedure described above for different initial conditions, but for the same energy level. I need mathematica to use some random numbers for initial conditions in a way that the initial energy of the system stays the same. So i must repeat procedure for poincare section(surface of section) for let's say 50 different initial conditions and then display all results in one y[t],y'[t] diagram. Hope that someone can help me. Thank you, Gal Bevc From mathgroup-adm at smc.vnet.net Fri Jul 29 06:14:09 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 664406BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 06:14:09 -0500 (CDT) Received: from mx4.wolfram.com (mx4.wolfram.com [140.177.205.144]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6TBEAIl004868; Fri, 29 Jul 2011 06:14:10 -0500 Received: from mx4.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx4.wolfram.com (Postfix) with SMTP id 6CCB5BF482; Fri, 29 Jul 2011 06:14:10 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx4; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx4.wolfram.com (Postfix) with ESMTP id 893F5BF480; Fri, 29 Jul 2011 06:14:08 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA15684 for mathgroup-newout; Fri, 29 Jul 2011 08:02:18 -0400 (EDT) Received: (from steve@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA15679 for mathgroup-newsend; Fri, 29 Jul 2011 08:02:17 -0400 (EDT) Date: Fri, 29 Jul 2011 08:02:17 -0400 (EDT) Message-Id: <201107291202.IAA15679 at smc.vnet.net> From: Pierpaolo Bernardi <olopierpa at gmail.com> Subject: [mg120572] Re: FinancialData errors References: <201107222344.TAA28525 at smc.vnet.net> To: mathgroup at smc.vnet.net X-Wrienvfrom: <mathgroup-adm at smc.vnet.net> X-Wrienvto: <stevec at wolfram.com> X-Wrienvto: <marykab at wolfram.com> X-Wrienvto: <pratikd at wolfram.com> X-Wrienvto: <jjones at wolfram.com> X-Wrienvto: <jasonh at wolfram.com> X-Wrienvto: <dkapadia at wolfram.com> X-Wrienvto: <vminer at wolfram.com> X-Wrienvto: <jaebum at wolfram.com> X-Wrienvto: <ailingz at wolfram.com> X-Wrienvto: <carlson at wolfram.com> X-Wrienvto: <wandzura at wolfram.com> X-Wrienvto: <manojr at wolfram.com> X-Wrienvto: <darreng at wolfram.com> X-Wrienvto: <fredm at wolfram.com> X-Wrienvto: <larrya at wolfram.com> X-Wrienvto: <l-mathgroup at wolfram.com> X-Wrienvto: <jfklein at wolfram.com> X-Wrienvto: <brenton at wolfram.com> X-Wrienvto: <sgifford at wolfram.com> X-Wrienvto: <xwen at wolfram.com> X-Wrienvto: <andyr at wolfram.com> X-Wrienvto: <onkars at wolfram.com> X-Wrienvto: <ewort at wolfram.com> X-PMX-Version: 5.6.1.2065439, Antispam-Engine: 2.7.2.376379, Antispam-Data: 2011.7.29.110315 X-PMX-Spam: Gauge=XXXIII, Probability=33%, Report=' __PHISH_SPEAR_STRUCTURE_1! 0, __TO_MALFORMED_2! 0, __URI_NO_PATH! 0, __URI_NO_WWW! 0, RDNS_SUSP_FORGED_FROM 3.5, FORGED_FROM_GMAIL 0.1, BODYTEXTP_SIZE_3000_LESS 0, BODY_SIZE_1500_1599 0, BODY_SIZE_2000_LESS 0, BODY_SIZE_5000_LESS 0, BODY_SIZE_7000_LESS 0, RDNS_GENERIC_POOLED 0, RDNS_SUSP 0, RDNS_SUSP_GENERIC 0, __ANY_URI 0, __FRAUD_WEBMAIL 0, __FRAUD_WEBMAIL_FROM 0, __FROM_GMAIL 0, __HAS_MSGID 0, __MIME_TEXT_ONLY 0, __SANE_MSGID 0, __STOCK_PHRASE_1 0, __STOCK_PHRASE_6 0, __SUBJ_ALPHA_END 0, __TO_NO_NAME 0, __URI_NS ' X-PerlMx-Spam: Gauge=XXXIII, Probability=33%, DEPRECATED. Use X-PMX-Spam. On Fri, Jul 29, 2011 at 10:41, DrMajorBob <btreat1 at austin.rr.com> wrote: > FUNNY STORY: Here is Tech Support's non-response to my problem, described > farther down: > I've found a new (to me) species of error in FinancialData. > > One example is the price of the following stock on Feb 10, 2011: > > s = "JANFX"; > FinancialData["JANFX", "Name"] > FinancialData["JANFX", {{2011, 2, 9}, {2011, 2, 11}}] > > "Janus Flexible Bond Fund D Shar" > > {{{2011, 2, 9}, 10.25}, {{2011, 2, 10}, 10.23}, {{2011, 2, 11}, > =C2 =C2 10.24}} > > As you see, FinancialData says the price was 10.23. > > But I BOUGHT the stock through Janus Funds on that day, and the price was > 10.36. > > Moreover, if I go to Yahoo's interactive price chart for the stock at the > following page, 10.36 is the price I find: Prices do vary continuously, they don't stay the same for a whole day, At the moment you bought it was 10.36. At the moment the data source was sampled it was 10.23. Usually historical data use the closing price, AFAIK. I see nothing strange in this. > So... where are the errors really coming from? > > This is not an astronomically large price or a Missing["Not Available"] > price; it's within 2% of the correct price. But it's wrong. > > These errors make it very difficult to trust FinancialData for any useful > purpose. If a difference of less than 2% in the historical market data influences your algorithms, I won't trust your conclusions. :) Cheers From mathgroup-adm at smc.vnet.net Fri Jul 29 06:15:54 2011 Return-Path: <mathgroup-adm at smc.vnet.net> X-Original-To: l-mathgroup at mail-archive0.wolfram.com Delivered-To: l-mathgroup at mail-archive0.wolfram.com Received: from wolfram.com (mailhub.wolfram.com [140.177.10.16]) by mail-archive0.wolfram.com (Postfix) with ESMTP id 7A5826BB18 for <l-mathgroup at mail-archive0.wolfram.com>; Fri, 29 Jul 2011 06:15:54 -0500 (CDT) Received: from mx3.wolfram.com (mx3.wolfram.com [140.177.205.143]) by wolfram.com (8.13.8/8.13.8) with ESMTP id p6TBFtjw005068; Fri, 29 Jul 2011 06:15:55 -0500 Received: from mx3.wolfram.com (puremessage-vm1.wolfram.com [140.177.205.140]) by mx3.wolfram.com (Postfix) with SMTP id A1140A8170; Fri, 29 Jul 2011 06:15:55 -0500 (CDT) Received-SPF: none (smc.vnet.net: No applicable sender policy available) receiver=mx3; identity=mailfrom; envelope-from="mathgroup-adm at smc.vnet.net"; helo=smc.vnet.net; client-ip=66.193.208.85 Received: from smc.vnet.net (66-193-208-85.static.twtelecom.net [66.193.208.85]) by mx3.wolfram.com (Postfix) with ESMTP id D680FA8169; Fri, 29 Jul 2011 06:15:53 -0500 (CDT) Received: (from daemon@localhost) by smc.vnet.net (8.8.8+Sun/8.8.8) id IAA15704 for mathgroup-newout; Fri, 29 Jul 2011 08:02:51 -0400 (EDT) Received: (from steve@localhost) by smc.v