R/print.R

In stokes: The Exterior Calculus

`print.ktensor` <- function(x,...){
    m <- max(0,index(x))
    if(is.zero(x)){
        cat(paste("The zero linear map from V^",arity(x)," to R with V=R^n:\n",sep=""))
    } else {
        cat(paste("A linear map from V^",arity(x)," to R with V=R^",m,":\n",sep=""))
    }
    if(isTRUE(getOption("ktensor_symbolic_print"))){
        cat(as.symbolic(x,d="d",symbols=as.character(seq_len(m))),"\n")
    } else {
        class(x) <- "spray"
        print(x,...)
    }
    return(invisible(x))
}

`print.kform` <- function(x,...){
    m <- max(0,index(x))
    if(is.zero(x)){
        cat(paste("The zero alternating linear map from V^",arity(x)," to R with V=R^n:\n",sep=""))
    } else {
        cat(paste("An alternating linear map from V^",arity(x)," to R with V=R^",m,":\n",sep=""))
    }
    po <- getOption("kform_symbolic_print") # po == print option
    if(!is.null(po)){
        switch(po,
               dx   = cat(as.symbolic(x,d="d",symbols=letters[24:26]),"\n"),       # dx dy dz
               txyz = cat(as.symbolic(x,d="d",symbols=c("t","x","y","z")),"\n"), # dt dx dy dz
                      cat(as.symbolic(x,d="dx",symbols=as.character(seq_len(m))),"\n")   # default symbolic, dx1^dx2
               )
    } else {
        class(x) <- "spray"
        print(x,...)
    }
    return(invisible(x))
}