Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Mixing graphics and text

  • To: mathgroup at smc.vnet.net
  • Subject: [mg86817] Re: [mg86802] Mixing graphics and text
  • From: Curtis Osterhoudt <cfo at lanl.gov>
  • Date: Sat, 22 Mar 2008 00:52:27 -0500 (EST)
  • Organization: LANL
  • References: <200803210655.BAA18440@smc.vnet.net>
  • Reply-to: cfo at lanl.gov

graphs = GraphData[]; 
n = 3; Row[Join[Riffle[GraphData /@ graphs[[2 ;; 1 + n]], 
        Table[
    "\!\(\*\nStyleBox[\"+\",\nFontSize->72,\nFontColor->RGBColor[0\
    , 0, 1]]\)", {n - 
      1}]], {"\!\(\*\nStyleBox[\"=\",\nFontSize->72]\)", 
        GraphData[First[graphs]]}]]

  I did this by highlighting the symbols I wanted changed, then going to the 
Format -> Size menu and choosing 72 point font. 

        Hope that helps!
                  

On Friday 21 March 2008 00:55:06 Yaroslav Bulatov wrote:
> What is the easiest way to get an "equation" like the one below, but
> with "+" and "=" symbols being about 6 times larger?
>
> graphs = GraphData[];
> n = 3; Riffle[GraphData /@ graphs[[2 ;; 1 + n]], Table["+", {n - 1}]]~
>   Join~{"=", GraphData[graphs // First]} // Row



-- 
==========================================================
Curtis Osterhoudt
cfo at remove_this.lanl.and_this.gov
PGP Key ID: 0x4DCA2A10
Please avoid sending me Word or PowerPoint attachments
See http://www.gnu.org/philosophy/no-word-attachments.html
==========================================================


  • Prev by Date: Re: Saving Packages
  • Next by Date: nondimensionalize a differential equation (ODE or PDE) in Mathematica
  • Previous by thread: Mixing graphics and text
  • Next by thread: Mixing immediate assignment and delayed assignment