Sharpie

" Ensure correct syntax highlighting and auto-indentation for Fortran free-form
" source code.
let fortran_free_source=1
let fortran_do_enddo=1
filetype plugin indent on
syntax on

" Turn on line numbers and row/column numbers.
set nu

Sharpie

# Load Data
grainData <- read.csv('grainSize.csv', check.names=F, na.strings='--' )

# Calculate Derived Sample Values
grainData[['Phi Diameter']] <- -log2( grainData[['Grain Diameter']] )
totalWeight <- sum( grainData[['Sample Weight']] )
grainData[["Percent Retained"]] <- grainData[['Sample Weight']] / totalWeight
grainData[["Cumulative Percent"]] <- cumsum( grainData[["Percent Retained"]] )
grainData[['Percent Finer']] <- 1 - grainData[['Cumulative Percent']]

Sharpie

//myRunif.c 
#include <R.h>
#include <Rinternals.h>

SEXP myRunif( SEXP n, SEXP min, SEXP max ){

  SEXP statsPackage;
  PROTECT(
    statsPackage = eval( lang2( install("getNamespace"),
      ScalarString(mkChar("stats")) ),

Sharpie

program procTest                                            
  implicit none                                             

  integer :: n

  interface

    function forced()
      integer:: forced
    end function forced

Sharpie

# Arrgh... QGIS doesn't appear to have a way of editing the coordinates of a point.  Only input via CSV
# files.  This is the way to go for large numbers of coordinates but it just plain sucks balls for
# dealing with a handful of points.  I don't know much about the guts of QGIS so I can't submit a formal
# fix, but it does have a python interpreter...

# Based on code given in this post by Carson Farmer:
#
#   http://www.mail-archive.com/qgis-user@lists.osgeo.org/msg01446.html
#
# Date: 11/04/2008

Sharpie

@techreport{caltrans2002,
    	Author = {{California Department of Transportation}},
    	Title = {{Humboldt Bay Bridges Seismic Substructure Retrofit Environmental  Assessment/Finding of No Significant Impact (EA/FONSI)}},
    	Year = {2002}}

Sharpie

\documentclass{minimal}

\usepackage{tikz}

\usepackage[active,tightpage]{preview}
\PreviewEnvironment{tikzpicture}
\setlength\PreviewBorder{5pt}

\begin{document}

Sharpie

%  Decoding the PDF primitives used by these functions is somewhat possible with
%  the help of the PDF spec:
%
%      http://www.adobe.com/devnet/pdf/pdf_reference.html
%

% Attempt #1
% Adapted from a post by Herbert Voss on comp.text.tex:
%
%    https://groups.google.com/d/msg/comp.text.tex/hjYT89EzN_E/MWXw1eksMhkJ

Sharpie

"""
/***************************************************************************
 ipythonDialog
                                 A QGIS plugin
 An enhanced QGIS console powered by IPython
                             -------------------
        begin                : 2011-02-06
        copyright            : (C) 2011 by Charlie Sharpsteen
        email                : source@sharpsteen.net
 ***************************************************************************/

Sharpie

require(itertools)
    
permutations <- function(iterable) {
  # Returns permutations of iterable. Based on code given in the documentation
  # of the `permutation` function in the Python itertools module:
  #   http://docs.python.org/library/itertools.html#itertools.permutations
  n <- length(iterable)
  indicies <- seq(n)
  cycles <- rev(indicies)
  stop_iteration <- FALSE