Skip to main content

front end - Magnification, ScreenResolution, ScreenInformation and Printing: Please shine some Light into it!


According to How to set default magnification for all windows Mathematica assumes 72 dpi screen resolution. In my computer, the screen resolution actually is 120 dpi which is a very common value on recent laptops.


Since I worry about



  • different appearance on the screen and on printed notebooks,


  • characters on the screen being too small,

  • strange things happening when editing, sometimes the cursor operates one character left of where it is displayed, which really makes headache!

  • using paragraphs with a negative indent and wanting to use a tab to outdent the first word of such a paragraph


I got the idea, to set the screen resolution to 120 dpi which is very close to what my screen really has (it has 120.4 dpi, but I can't enter a decimal number here). I used OptionInspector this way:


ScreenResolution in OptionsInspector . The original value in this place was 72. Probably It might haven been the same as executing


SetOptions[$FrontEnd, 
           FontProperties->{"AutoSpaceWidth"->{0.221`,0.439`},
                            "FontMonospaced"->Automatic,
                            "FontSerifed"->Automatic,

                            "ScreenResolution"->120
                           }
          ]

(unfortunately I find nothing in the documentation what AutoSpaceWidth influences! Does anyone have an idea, what it affects? BTW: How would I just modify the setting for ScreenResolution without affecting any of the others?).


Then I modified Default.nb to use Courier 10 pt for Input (bold), Output (regular) and Print (regular) and also I set all Text cells to Arial 10 pt. Now everything looks nice on the screen. But when I printed my notebook, everything came out as something like 6 points size, which also makes headache! (I printed in the working environment).


Later I came across a discussion about ScreenInformation


inconsistent magnification!


Strangely the Magnification indicated in the lower right corner and the one returned from the command differ!


Is there someone who can shine some light





  • which of those many adjustment screws serves which purpose and




  • how to set them to get WYSIWYG for Input, Output, Print and Text cells?






Comments

Post a Comment

Popular posts from this blog

front end - keyboard shortcut to invoke Insert new matrix

I frequently need to type in some matrices, and the menu command Insert > Table/Matrix > New... allows matrices with lines drawn between columns and rows, which is very helpful. I would like to make a keyboard shortcut for it, but cannot find the relevant frontend token command (4209405) for it. Since the FullForm[] and InputForm[] of matrices with lines drawn between rows and columns is the same as those without lines, it's hard to do this via 3rd party system-wide text expanders (e.g. autohotkey or atext on mac). How does one assign a keyboard shortcut for the menu item Insert > Table/Matrix > New... , preferably using only mathematica? Thanks! Answer In the MenuSetup.tr (for linux located in the $InstallationDirectory/SystemFiles/FrontEnd/TextResources/X/ directory), I changed the line MenuItem["&New...", "CreateGridBoxDialog"] to read MenuItem["&New...", "CreateGridBoxDialog", MenuKey["m", Modifiers-...
Post a Comment
Read more

How to thread a list

I have data in format data = {{a1, a2}, {b1, b2}, {c1, c2}, {d1, d2}} Tableform: I want to thread it to : tdata = {{{a1, b1}, {a2, b2}}, {{a1, c1}, {a2, c2}}, {{a1, d1}, {a2, d2}}} Tableform: And I would like to do better then pseudofunction[n_] := Transpose[{data2[[1]], data2[[n]]}]; SetAttributes[pseudofunction, Listable]; Range[2, 4] // pseudofunction Here is my benchmark data, where data3 is normal sample of real data. data3 = Drop[ExcelWorkBook[[Column1 ;; Column4]], None, 1]; data2 = {a #, b #, c #, d #} & /@ Range[1, 10^5]; data = RandomReal[{0, 1}, {10^6, 4}]; Here is my benchmark code kptnw[list_] := Transpose[{Table[First@#, {Length@# - 1}], Rest@#}, {3, 1, 2}] &@list kptnw2[list_] := Transpose[{ConstantArray[First@#, Length@# - 1], Rest@#}, {3, 1, 2}] &@list OleksandrR[list_] := Flatten[Outer[List, List@First[list], Rest[list], 1], {{2}, {1, 4}}] paradox2[list_] := Partition[Riffle[list[[1]], #], 2] & /@ Drop[list, 1] RM[list_] := FoldList[Transpose[{First@li...
Post a Comment
Read more

functions - Get leading series expansion term?

Given a function f[x] , I would like to have a function leadingSeries that returns just the leading term in the series around x=0 . For example: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x)] x and leadingSeries[(1/x + 2 + (1 - 1/x^3)/4)/(4 + x)] -(1/(16 x^3)) Is there such a function in Mathematica? Or maybe one can implement it efficiently? EDIT I finally went with the following implementation, based on Carl Woll 's answer: lds[ex_,x_]:=( (ex/.x->(x+O[x]^2))/.SeriesData[U_,Z_,L_List,Mi_,Ma_,De_]:>SeriesData[U,Z,{L[[1]]},Mi,Mi+1,De]//Quiet//Normal) The advantage is, that this one also properly works with functions whose leading term is a constant: lds[Exp[x],x] 1 Answer Update 1 Updated to eliminate SeriesData and to not return additional terms Perhaps you could use: leadingSeries[expr_, x_] := Normal[expr /. x->(x+O[x]^2) /. a_List :> Take[a, 1]] Then for your examples: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x), x] leadingSeries[Exp[x], x] leadingSeries[(1/x + 2 + (1 - 1/x...
Post a Comment
Read more