MathGroup Archive 2008

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

Search the Archive

Re: Mixing graphics and text


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